procedure
BMPToWMF(FichierBMP,FichierWMF:string);
var MetaFile:TMetaFile;
MetaFileCanvas:TMetaFileCanvas;
Bitmap:TBitmap;
begin
MetaFile:=TMetaFile.Create;
Bitmap:=TBitmap.Create;
try
Bitmap.LoadFromFile(FichierBMP);
MetaFile.Height:=Bitmap.Height;
MetaFile.Width:=Bitmap.Width;
MetaFileCanvas:=TMetafileCanvas.Create(MetaFile,0);
MetaFileCanvas.Draw(0,0,Bitmap);
finally
MetaFileCanvas.Free;
Bitmap.Free;
end;
MetaFile.SaveToFile(FichierWMF);
MetaFile.Free;
end;
procedure
TForm1.Button1Click(Sender: TObject);
begin
BMPToWMF('c:\test.bmp','c:\test.wmf'); //BMP
--> WMF
end;
|