WMF 그림을 Delphi에서 GIF 또는 PNG로 변환하려면 어떻게해야합니까?

Question

WMF 그림을 GIF 또는 PNG으로 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;