Home » Tipps & Tricks » Grafik » Konvertierungen » JPEG in ein Bitmap konvertieren

JPEG in ein Bitmap konvertieren

Folgende Prozedur konvertiert eine JPEG-Grafikdatei in ein Bitmap. Der Prozedur muss als Parameter der Dateiname (inkl. Pfad!) der Grafikdatei übergeben werden. Es wird dann eine neue Datei an gleicher Position mit der Endung „.bmp“ angelegt:

uses jpeg;

procedure JpegToBmp(const Filename: string);
var
jpeg: TJPEGImage;
bmp: TBitmap;
begin
jpeg:=TJPEGImage.Create;
try
   jpeg.LoadFromFile(Filename);
   bmp:=TBitmap.Create;
   try
     bmp.Assign(jpeg);
     bmp.SaveToFile(ChangeFileExt(Filename, '.bmp'));
   finally
     bmp.free;
   end;
finally
   jpeg.free;
end;
end;

Aufgerufen werden kann die Prozedur beispielsweise so:

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
   JpegToBmp(OpenDialog1.Filename);
end;