Vielen Dank, Martin.
Ich bin mittlerweile von jpegdec zu
libjpeg-turbo gewechselt, mit den Headern von
hier. Leider, leider muss man dazu DLLs mitgeben (für 32 und 64 Bit und die borlndmm.dll), aber libjpeg-turbo ist äußerst schnell und jpegdec dekodiert leider manche JPG nicht.
Am einfachsten benutzt man den Wrapper von
hier, kopiert also
cgJpeg.pas
und
libJPEG.pas
in den Pfad und nimmt
cgJpeg
in die uses-Klausel auf.
Dann ist alles sehr einfach:
Delphi-Quellcode:
uses cgJpeg
var Bmp:TJPEGImage;
function TForm1.LadeBildInBMP(Datname:string):Boolean;
begin
Try
AktBmp.LoadFromFile(Datname);
Except
ShowMessage(SysErrorMessage(GetLastError));
End;
Result := (AktBmp <> nil);
end;
Auch dies ist natürlich nur ein Code-Gerüst zum Selberbauen.