Como posso converter uma imagem WMF em GIF ou PNG com Delphi?

Question

Existe uma maneira de converter um Wmf imagem para Gif ou Png Com as bibliotecas Delphi 2009 (ou mais recentes) de tempo de execução? Caso contrário, qual biblioteca de conversão de imagens você recomendaria?

Answer 1

O PNG não é tão difícil, Delphi 2009 inclui tpngimage. Para GIF, você pode usar o GDI+ ou o componente Tgifimage ...

Aqui está o código:

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;