WMF nach GIF oder PNG konvertieren

[Mario]

Hallo,

ich erstelle mit meinem Programm WMF-Grafiken. Zum Einbauen in eine Webseite, möchte ich daraus gern Gif oder PNG-Dateien machen, damit der Hintergrund transparant bleibt. Kann mir dafür jemand den Ansatz zeigen?

[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;

[sakura]

Hi Mario,

ich möchte Dich ur darauf hinweisen, daß der GIF-Algorhytmus in Deutschland noch bis Mitte nächsten Jahres unter Patentschutz steht und nur lizensiert in eigener Software zum Einsatz kommen darf.

......

P.S. Irgendwo im Forum findest Du eine Diskussion um Thema.