¿Cómo puedo convertir una imagen WMF a GIF o PNG con Delphi?

Question

¿Hay una manera de convertir un WMF imagen para GIF o PNG con las bibliotecas de tiempo de ejecución Delphi 2009 (o posterior)? Si no es así, que la biblioteca de conversión de imágenes recomendaría usted?

Answer 1

PNG no es tan difícil, Delphi 2009 incluye TPNGImage. Para GIF puede utilizar el componente TGifImage GDI + o ...

Aquí está el 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;