Delphi を使用して WMF 画像を 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;