Load from file

[ManuMF]

So, jetzt hab ichs:

Delphi-Quellcode:

uses JPEG;

procedure JpegToBMP(JpegFileName: string; const OutBitmap : TBitmap);
  var JPG: TJPEGImage;
begin
  JPG := TJPEGImage.Create;
  try
    JPG.LoadFromFile(JpegFileName);
    OutBitmap.Assign(JPG);
  finally
    JPG.free;
  end;
end;

// Aufruf:
JpegToBMP('Dateiname', Image1.Picture.Bitmap);

Gruß
ManuMF