Home » Tipps & Tricks » Grafik » Konvertierungen » WMF nach BMP konvertieren

WMF nach BMP konvertieren

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;

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;