WMF nach BMP konvertieren |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
Folgende Prozedur konvertiert ein Bild, das im WMF-Format vorliegt, in ein Bitmap. Sie erwartet als Parameter ein Objekt vom Typ TMetaFile, welches das WMF-Bild enthält und zur Ausgabe ein Objekt der Klasse TBitmap:
procedure WmfToBmp(const AWMF: TMetaFile; const ABitmap: TBitmap);
begin
ABitmap.Height:=AWMF.Height;
ABitmap.Width:=AWMF.Width;
ABitmap.Canvas.Draw(0, 0, AWMF);
end;
begin
ABitmap.Height:=AWMF.Height;
ABitmap.Width:=AWMF.Width;
ABitmap.Canvas.Draw(0, 0, AWMF);
end;
Untenstehendes Beispiel lädt eine WMF-Datei, konvertiert sie in ein Bitmap und gibt es in einer TImage-Komponente aus:
procedure TForm1.Button2Click(Sender: TObject);
var
MetaFile: TMetafile;
begin
if OpenDialog1.Execute then
begin
Metafile := TMetaFile.Create;
try
MetaFile.LoadFromFile(OpenDialog1.Filename);
WmfToBmp(MetaFile, Image1.Picture.Bitmap);
finally
MetaFile.Free;
end;
end;
end;
var
MetaFile: TMetafile;
begin
if OpenDialog1.Execute then
begin
Metafile := TMetaFile.Create;
try
MetaFile.LoadFromFile(OpenDialog1.Filename);
WmfToBmp(MetaFile, Image1.Picture.Bitmap);
finally
MetaFile.Free;
end;
end;
end;