在MetaFile里放图片

Posted 游子日月长

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了在MetaFile里放图片相关的知识，希望对你有一定的参考价值。

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;

 

以上是关于在MetaFile里放图片的主要内容，如果未能解决你的问题，请参考以下文章

vscode如何在input里放图片

在数据库中的表格里放了图片的地址，要在java程序的界面上面显示出图片，怎么操作么？

根据图片的url地址下载图片到本地保存代码片段

Swift新async/await并发中利用Task防止指定代码片段执行的数据竞争(Data Race)问题

Swift新async/await并发中利用Task防止指定代码片段执行的数据竞争(Data Race)问题

CardView 不在披萨片段中显示图片