GIF Bilder in als einzelne Dateien abspeichern

[Flax]

Tja! Wie geht das? :pale:

Habs versucht! :? Ging net! 10 Stunden für die Katz!

Folgendes hab ich gemacht:

- class TGifImage: Datei laden, versuchen zu speichern. Transparenz-Fehler. Beim zeichnen des nächsten Bildes über das vorige wurde das Vorige nicht richtig überschrieben. Wie ich es auch drehte, es ging net.

- class TJvImage mit TGifImage funktionierte also auch net

- component TJvGifAnimator: versagte schon beim Laden eines Gifs

Also was nun ? Habe auch im Inet gesucht allgemein. Nix sinnvolles gefunden.

Kennt sich da wer aus oder hat das schon mal gemacht :?: :?: :?:

[marabu]

Der Titel ist irgendwie unverständlich und aus deinem post kann ich auch nicht so richtig was erkennen, aber falls du die einzelnen Bilder einer Animation suchst, dann schau mal her - nicht schön aber funktioniert:

Delphi-Quellcode:

procedure SeparateAnimation(fileName: string);
var
  i: integer;
  ga, gi: TGifImage;
  gsi: TGifSubImage;
  pict: TPicture;
begin
  pict := TPicture.Create;
  gi := TGifImage.Create;
  ga := TGifImage.Create;
  ga.LoadFromFile(fileName);
  for i := 1 to ga.Images.Count do begin
    gsi := ga.Images[Pred(i)];
    pict.Bitmap.Assign(gsi);
    gi.Assign(pict);
    gi.SaveToFile(ChangeFileExt(fileName, Format('.%d.gif', [i])));
  end;
  ga.Free;
  gi.Free;
  pict.Free;
end;

Grüße vom marabu

[Flax]

Das probiere ich mal aus! thx.

Also ich möchte alle Einzelbilter einer Gif-Datei als Bitmaps abspeichern. Dabei sollten die Einzelbilder korrekt sein und nicht Transparenz-Fehler ausweisen. Da beim Gif nur die Veränderungen abgespeichert werden (oder er ist eine Möglichkeit), wird jedes Bild durch das nachfolgende verändert. Somit sind (alle) Bilder von Anfang bis Ende notwenidig und sie bauen aufeinander auf.

Und die Indy-Compos hatten mir da auch nicht weiter geholfen :?