GIF Bilder in als einzelne Dateien abspeichern

[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