关于metafile的使用!(100分)

  • 主题发起人 主题发起人 ydy
  • 开始时间 开始时间
Y

ydy

Unregistered / Unconfirmed
GUEST, unregistred user!
我想用metafile Api函数进行图形处理,譬如如何创建,如何截图等,但不知道怎么
使用请各位大侠指点指点。
 
这是斑竹的帖子(以前的)我就借花献佛吧:
图形格式为MeteFile,你同样可以先将MetaFile先转换为BMP,然后再处理么。

procedure WmfToBmp(FicheroWmf,FicheroBmp:string);
var
MetaFile:TMetafile;
Bmp:TBitmap;
begin
Metafile:=TMetaFile.create;
{Create a Temporal Bitmap}
Bmp:=TBitmap.create;
{Load the Metafile}
MetaFile.LoadFromFile(FicheroWmf);
{Draw the metafile in Bitmap's canvas}
with Bmp do
begin
Height:=Metafile.Height;
Width:=Metafile.Width;
Canvas.Draw(0,0,MetaFile);
{Save the BMP}
SaveToFile(FicheroBmp);
{Free BMP}
Free;
end;
{Free Metafile}
MetaFile.Free;
end;
 
后退
顶部