It’s a bug. The conversion from instance to interface reference in RunLeakCrash should be to a temporary variable, keeping it alive for the duration of RunLeakCrash.
I’m adding an answer because local information is often preferred to just links. Here’s the key facts you need to know before you start: Many VCL controls have color properties, but those properties are going to get ignored when styles are on, and the default “common controls” like Button are going to get drawn by … Read more
Delphi versions prior to Delphi 2009 do have Unicode support built in. The WideString type has been available since Delphi 4, I think, maybe earlier. WideString isn’t as nice as the new UnicodeString type, but it still holds 16-bit Unicode characters, and you can type-cast it to PWideChar to send strings to Unicode API functions. … Read more
I asked the same question not too long ago I’ve downloaded and tried AQtime. It does seem comprehensive, but it is not an easy to use tool and is VERY expensive for an individual programmer (i.e. $600 US). I loved the fact that it was non-invasive (did not change your code), and that it could … Read more
As of release 1.102 the JEDI Code Library has support for 7-Zip built into the JclCompression unit. Haven’t used it myself yet, though.
An example using ShellExecute(): procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(0, nil, ‘cmd.exe’, ‘/C find “320” in.txt > out.txt’, nil, SW_HIDE); Sleep(1000); Memo1.Lines.LoadFromFile(‘out.txt’); end; Note that using CreateProcess() instead of ShellExecute() allows for much better control of the process. Ideally you would also call this in a secondary thread, and call WaitForSingleObject() on the process handle to … Read more
To convert to the absolute you have : ExpandFileName To have the relative path you have : ExtractRelativePath
Using Indy. Put your parameters in a StringList (name=value) and simply call Post with the URL and StringList. function PostExample: string; var lHTTP: TIdHTTP; lParamList: TStringList; begin lParamList := TStringList.Create; lParamList.Add(‘id=1’); lHTTP := TIdHTTP.Create; try Result := lHTTP.Post(‘http://blahblahblah…’, lParamList); finally lHTTP.Free; lParamList.Free; end; end;
The Sort overload you should be using is this one: procedure Sort(const AComparer: IComparer<TMyRecord>); Now, you can create an IComparer<TMyRecord> by calling TComparer<TMyRecord>.Construct. Like this: var Comparison: TComparison<TMyRecord>; …. Comparison := function(const Left, Right: TMyRecord): Integer begin Result := Left.intVal-Right.intVal; end; List.Sort(TComparer<TMyRecord>.Construct(Comparison)); I’ve written the Comparison function as an anonymous method, but you could also … Read more
tl;dr; Use GDI+ SetWorldTransform With WinAPI’s SetWorldTransform you can transform the space of device context: rotate, shear, offset, and scale. This is done by setting the members of a transform matrix of type XFORM. Fill its members according the documentation. procedure RotateBitmap(Bmp: TBitmap; Rads: Single; AdjustSize: Boolean; BkColor: TColor = clNone); var C: Single; S: … Read more