convert bmp to wmf (2001年1月27日).txt

delphi 编程技巧

convert bmp to wmf (2001年1月27日) 

网友更新  分类:图形图象   作者:具体不详，但肯定不是我的  推荐:weicong   阅读次数:376  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
procedure BmpToWmf (BmpFile,WmfFile:string); 
var 
MetaFile : TMetaFile; 
MFCanvas : TMetaFileCanvas; 
BMP : TBitmap; 
begin 
{Create temps} 
MetaFile := TMetaFile.Create; 
BMP := TBitmap.create; 
BMP.LoadFromFile(BmpFile); 
{Igualemos tama駉s} 
{Equalizing sizes} 
MetaFile.Height := BMP.Height; 
MetaFile.Width := BMP.Width; 
{Create a canvas for the Metafile} 
MFCanvas:=TMetafileCanvas.Create(MetaFile, 0); 
with MFCanvas do 
begin 
{Draw the BMP into canvas} 
Draw(0, 0, BMP); 
{Free the Canvas} 
Free; 
end; 
{Free the BMP} 
BMP.Free; 
with MetaFile do 
begin 
{Save the Metafile} 
SaveToFile(WmfFile); 
{Free it...} 
Free; 
end; 
end;