如何使用 Delphi 将 WMF 图片转换为 GIF 或 PNG？答案

【问题标题】：How can I convert a WMF picture to GIF or PNG with Delphi?如何使用 Delphi 将 WMF 图片转换为 GIF 或 PNG？
【发布时间】：2011-01-29 18:31:58
【问题描述】：

有没有办法使用 Delphi 2009（或更新版本）运行时库将 WMF 图片转换为 GIF 或 PNG？

【问题讨论】：

标签： delphi png delphi-2009 gif wmf

【解决方案1】：

PNG 并不难，Delphi 2009 包含 TPNGImage。对于 GIF，您可以使用 GDI+ 或 TGifImage 组件...

代码如下：

procedure Test;
var
  p : TPicture;
  png : TPngImage;
begin
  try
    p := TPicture.Create;
    p.LoadFromFile('c:\INPUT.WMF');
    png := TPngImage.CreateBlank(COLOR_RGB, 8, p.Width, p.Height);
    png.Canvas.Draw(0,0, p.Graphic);
    png.SaveToFile('C:\OUTPUT.png');
  finally
    Free(p);
    Free(png);
  end;
end;

【讨论】：

变量p也可以用TMetafile类型声明，这样做的好处是我也可以使用p.LoadFromStream。
一般情况下，通过加载input.wmf初始化p.width和p.height后创建pngimage不是更好吗？当然这只是演示代码。