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;