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 ?
_