WMF nach GIF oder PNG konvertieren

[Mario]

So, ich habe nun die Möglichkeit mittels der GifImage Komponente gefunden:

Delphi-Quellcode:

procedure Convert;
var
  Wmf        : TMetaFile;
  GIF      : TGIFImage;
  Ratio           : Double;
begin
  Wmf := TMetafile.Create;
  try
    Wmf.LoadFromFile('C:\test.wmf');

    GIF := TGIFImage.Create;
    try
      Ratio := Wmf.Width / 400; // Breite in Pixel
      Wmf.Width := Round(Wmf.Width / Ratio);
      Wmf.Height := Round(Wmf.Height / Ratio);

      GIF.Assign(Wmf);
      GIF.SaveToFile('C:\test.gif');

    finally
      GIF.Free;
    end;
  finally
    Wmf.Free;
  end;
end;