JPEG in ein Bitmap konvertieren |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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;
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;
begin
if OpenDialog1.Execute then
JpegToBmp(OpenDialog1.Filename);
end;