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

Question

有没有办法转换 WMF 图片到 动图 或者 巴布亚新几内亚 使用 Delphi 2009（或更新版本）运行时库？如果没有，您会推荐哪个图像转换库？

Answer 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;