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.

...:cat:...

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