delphi-2010

问题 I wanna build Multi-Threaded procedure for the following code, but not able to correctly build it. I tried using Semaphore to sequentially complete the code but it only executed the myStream2.CopyFrom(myStream1, StrToInt64('$' + SL1[(i - 1)])); part which comes under else part. The problem presents is that if we restore those streams into output filestream (mystream2) haphazardly, the file will corrupt. Can anyone help me please. for i := 1 to SL1.Count do begin if Length(SL1[i - 1]) > 12

问题 I was just wondering if anybody knew how to determine if a TJvDockServer Form is pinned or unpinned easily. The only way I've been able to do so is by checking if a parent form is a TJvDockVSPopupPanel via... ancestor := GetAncestors(Self, 3); if (ancestor is TJvDockTabHostForm) then if ancestor.Parent <> nil then begin if ancestor.Parent is TJvDockVSPopupPanel then begin // Code here end; end; and getAncestors is... function GetAncestors(Control : TControl; AncestorLevel : integer) :

问题 I am trying to decode a base64 encoded EMF image from an XML document in my application and render it on screen, however, it never seems to appear. If I copy/paste the data from the XML document into Notepad++ and use the Base64 Decode option and save the file as a .emf it opens fine in mspaint. So I think the issue is how I am decoding it. I have tried the following decode methods described in these articles: How to encode / decode Base 64 string http://www.swissdelphicenter.ch/torry

问题 We are currently upgrading from Delphi 7 to Delphi 2010. With Delphi 7 we use Source Connection to integrate Delphi 7 with TFS, but there does not look like there is going to be a Delphi 2010 version in time. Is there any other integration option out there? 回答1: VssConneXion is not ready for Delphi 2010 yet (there is a version for Delphi 2009 on their downloads page). Currently, I'm running the (Microsoft) Team Explorer for managing my source code check-out/check-in and work-items. It works

问题 I try to investigate DeHL with Delphi 2010 custom attribute and I get problem. TAppParamTest = class public User: string; Password: string; end; TAppParam = class private FTest: TAppParamTest; public constructor Create; destructor Destroy; override; property Test: TAppParamTest read FTest write FTest; end; this works well : when I serialize I have this <TAppParam xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:DeHL="http://alex.ciobanu

问题 how to extract RTTI info about methods in Delphi records? is it possible by using new Rtti unit? 回答1: There is no RTTI for methods on records, sorry. 来源： https://stackoverflow.com/questions/2489230/delphi-rtti-info-about-methods-in-records

问题 This must be a Delphi bug... I have a unit which is the basis of my persistance framework. In that unit I have a base class for all my domain objects, a list class and a generic list class. Just recently I noticed that when I step into the unit when debugging, execution will jump to a point a little further down in the file than it should... Maybe four or five lines. Re-ordering the file makes no difference. The code would also generate access violations, but only when I debugged it. I cast

问题 I have been upgrading or migrating our software from XP OS to be able to compile and run under Windows 7. Our software is starting to show issues that we didn't notice under Windows XP. Currently, I am dealing with a user defined control flickering on a TForm. It seems to flicker every now and then not always, but when it flickers it is very noticeable. I have set DoubleBuffered for the TForm and TTrendChart Class, but it is not helping. This a user-defined control of TCustomPanel. It is

问题 I have Delphi 2007 code that looks like this: procedure WriteString(Stream: TFileStream; var SourceBuffer: PChar; s: string); begin StrPCopy(SourceBuffer,s); Stream.Write(SourceBuffer[0], StrLen(SourceBuffer)); end; I call it like this: var SourceBuffer : PChar; MyFile: TFileStream; .... SourceBuffer := StrAlloc(1024); MyFile := TFileStream.Create('MyFile.txt',fmCreate); WriteString(MyFile,SourceBuffer,'Some Text'); .... This worked in Delphi 2007, but it gives me a lot of junk characters in

问题 MS Visual Studio has a great feature: it automatically suggests the units to add in using clause when you typing the code with refrences to absent standard classes. Is there any 3-rd party tool to implement similar feature for Delphi? I'm tired to add all those SysUtils, Windows, Messages etc in each new unit. 回答1: If the unit which contains the reference is not yet in the uses list, this is how I save many manual steps: right-click on the underlined (error-insighted) text choose “Refactoring