Comment puis-je convertir une image WMF en GIF ou PNG avec Delphi?

Question

Existe-t-il un moyen de convertir une image WMF en GIF ou PNG avec les bibliothèques d'exécution Delphi 2009 (ou plus récente)? Si non, quelle bibliothèque de conversion d'images recommanderiez-vous?

Answer 1

PNG n'est pas si difficile, Delphi 2009 inclut TPNGImage. Pour GIF, vous pouvez utiliser GDI + ou le composant TGIFImage ...

Voici le 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;