WMF zu Bitmap Konvertieren ?

Hallo

ich kann mit meinem Code zwar eine wmf Datei erstellen, kann ich danach aber nicht
öffnen.

Delphi-Quellcode:

			procedure BmpToWmf(WmfFile: string);

var

MetaFile: TMetaFile;

MFCanvas: TMetaFileCanvas;

BMP: TBitmap;

begin

try

MetaFile := TMetaFile.Create;

BMP:=Image1.Picture.Bitmap;

MetaFile.Height := BMP.Height;

MetaFile.Width := BMP.Width;

MFCanvas := TMetafileCanvas.Create(MetaFile, 0);

MFCanvas.Draw(0, 0, BMP);

Metafile.SaveToFile(WmfFile) ;

MetaFile.Free;

except

end;

end;

Gibt es eine saubere Funktion ?
_

WMF zu Bitmap Konvertieren ?

WMF zu Bitmap Konvertieren ?

Forumregeln