在MetaFile里放图片

最新推荐文章于 2024-05-16 21:47:49 发布

weixin_30787531

最新推荐文章于 2024-05-16 21:47:49 发布

阅读量408

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/yzryc/p/6373580.html

本文提供了一个使用Delphi将位图文件转换为元文件的例子。通过创建TBitmap对象加载位图，并设置TMetaFile对象的高度和宽度，然后利用TMetafileCanvas绘制位图到元文件中，最后保存并释放资源。

procedure TForm1.Button1Click(Sender: TObject);
 var
   m : TmetaFile;
   mc : TmetaFileCanvas;
   b : tbitmap;
begin
  m := TMetaFile.Create;
  b := TBitmap.create;
  b.LoadFromFile('C:\SomePath\SomeBitmap.BMP');
  m.Height := b.Height;
  m.Width := b.Width;
  mc := TMetafileCanvas.Create(m, 0);
  mc.Draw(0, 0, b);
  mc.Free;
  b.Free;
  m.SaveToFile('C:\SomePath\Test.emf');
  m.Free;
  Image1.Picture.LoadFromFile('C:\SomePath\Test.emf');
end;

 

 

  procedure TForm1.Button1Click(Sender: TObject);

  var

  m : TmetaFile;

  mc : TmetaFileCanvas;

  b : tbitmap;

  begin

  m := TMetaFile.Create;

  b := TBitmap.create;

  b.LoadFromFile('C:\SomePath\SomeBitmap.BMP');

  m.Height := b.Height;

  m.Width := b.Width;

  mc := TMetafileCanvas.Create(m, 0);

  mc.Draw(0, 0, b);

  mc.Free;

  b.Free;

  m.SaveToFile('C:\SomePath\Test.emf');

  m.Free;

  Image1.Picture.LoadFromFile('C:\SomePath\Test.emf');

  end;