Einzelnen Beitrag anzeigen

Benmik

Registriert seit: 11. Apr 2009
557 Beiträge
 
Delphi 12 Athens
 
#7

AW: Bild in Image mit der Maus verschieben

  Alt 29. Sep 2014, 00:01
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.

Geändert von Benmik (29. Sep 2014 um 21:22 Uhr) Grund: Hinweis wegen borlndmm.dll hinzugefügt
  Mit Zitat antworten Zitat