Delphi: JPEG Bild in TBitmap laden

Heute möchte ich euch zeigen, wie ihr ein JPG-Bild aus einer Datei in eine TBitmap in Delphi ladet, zum Beispiel um diese danach weiterzubearbeiten.

Oben in unserer Unit müssen wir hinter "uses" die Unit "JPEG" hinzufügen:

uses Windows, ... ,JPEG;

Und hier ist unser Code, der unsere JPG läd und in die Bitmap speichert:

procedure TForm1.Button1Click(Sender: TObject);
var
   jpg: TJpegImage;
   bmp: TBitmap;
begin
   jpg := TJpegImage.Create;
   jpg.LoadFromFile('C:\bild.jpg');

   bmp := TBitmap.Create;
   bmp.Assign(jpg);

   // Bearbeitung

   bmp.free;
   jpg.free;
end;

Zunächst erzeugen wir ein neues, leeres JPG-Bild und laden mit LoadFromFile eine beliebige Datei in unser Bild.

Anschließend erzeugen wir eine leere Bitmap und können mit Assign unser JPG in die BMP laden.

Danach können wir alle gewünschten Bearbeitungen vornehmen und dürfen anschließend nicht vergessen "bmp" und "jpg" wieder freizugeben.