Registriert seit: 9. Jul 2004
Ort: Aken (Anhalt-Bitterfeld)
1.335 Beiträge
Delphi XE5 Professional
|
Re: LayeredWindows, sporadische Zugriffsverletzung bei Strea
4. Jan 2009, 16:48
Bei mir gibt es unter TD keinen Fehler. Eventuell bringt es die eine Zeile:
Delphi-Quellcode:
// Start Veränderungen
AStream.Position := 0;
OleStream := TStreamAdapter.Create(AStream);
OleStream.Seek(0, 0, tPos); // <- tPos : Int64;
if GdipLoadImageFromStream(OleStream, img) <> 0 then Result := False;
// Ende Veränderungen; Diese Zeilen ersetzen "if GdipLoadImageFromFile(imageFilename, img) <> 0 then Result:=false;" im Originalcode.
Gruss Garfield
Ubuntu 22.04: Laz2.2.2/FPC3.2.2 - VirtBox6.1+W10: D7PE, DXE5Prof
|