Bild in Image mit der Maus verschieben

[Benmik]

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.