Ich hab gerade bemerkt, dass GenerateBitmap in dieser Form:
Delphi-Quellcode:
procedure TMJPEGThread.GenerateBitmap;
var
JPEGImage: TJPEGImage;
begin
JPEGImage := TJPEGImage.Create;
try
JPEGImage.LoadFromStream(FAktImg);
JPEGImage.Performance := jpBestSpeed;
FBitmap.Assign(JPEGImage);
ImgReady(FBitmap);
finally
FBitmap.Dormant;
FBitmap.FreeImage;
FBitmap.ReleaseHandle;
JPEGImage.Free
end;
end;
innerhalb von ca. 1 Minute satte 350MB Speicher frisst.
Wenn ich ReleaseHandle auskommentiere, ist der Speicherverbrauch gestoppt.
Ich werds mal versuchen, nur mit FreeImage laufen zu lassen.