Home » Tipps & Tricks » Grafik » Konvertierungen » Bitmap nach JPEG konvertieren

Bitmap nach JPEG konvertieren

Folgende Prozedur konvertiert eine Bitmap-Datei in eine JPEG-Datei. Dem ersten Parameter wird dabei der komplette Dateiname (inkl. Pfad!) des Bitmaps übergeben. Die neu erstellte Bilddatei trägt den gleichen Dateinamen, nur dass sie die Dateiendung „.jpg“ besitzt. Dem zweiten Parameter wird ein Wert zwischen 1 und 100 übergeben. Je höher dieser Wert ist, desto besser ist die Dateiqualität, wodurch die Dateigröße allerdings erhöht wird.
Die Unit JPEG muss eingebunden werden.

uses JPEG;

procedure BmpToJpg(const Filename: string; Quality: TJPEGQualityRange=100);
var
  Bmp: TBitmap;
  Jpg: TJpegImage;
begin
  Bmp := TBitmap.Create;
  Jpg := TJpegImage.Create;
  try
    Bmp.LoadFromFile(Filename);
    Jpg.CompressionQuality:=Quality;
    Jpg.Assign(Bmp);
    Jpg.SaveToFile(ChangeFileExt(Filename, '.jpg' ));
  finally
    Jpg.Free;
    Bmp.Free;
  end;
end;