Wie kann ich ein WMF Bild zu GIF oder PNG mit Delphi konvertieren?

Question

Gibt es eine Möglichkeit, ein WMF Bild zu GIF oder PNG mit dem Delphi 2009 (oder höher) Laufzeit-Bibliotheken? Wenn nicht, welches Bild Konvertierung Bibliothek würden Sie empfehlen?

Answer 1

PNG ist nicht so schwer, Delphi 2009 enthält TPngImage. Für GIF können Sie GDI + verwenden oder die TGIFImage Komponente ...

Hier ist der Code:

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;