Bitmap nach JPEG konvertieren |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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;
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;