Wie kann ich ein animiertes Gif entpacken (extract) ?

[IceBube]

Hm, versteh ich nicht so ganz. Meinst du, du willst alle Bilder in einer Scrollbox angezeigt haben=?
So vielleicht?

Delphi-Quellcode:

var
  gif       : TgifImage;
  I, Count  : Integer;
begin
  //
  gif := TGifImage.Create;
  gif.LoadFromFile();

  //Count
  Count := gif.Images.Count;

  for I := 0 to Count - 1 do
  begin
    //
    with TImage.Create(ScrollBox1) do
    begin
      //
      Parent := ScrollBox1;
      Show();

      //
      Left            := 2 + (I*55);
      Top             := 2;

      //
      Width           := 50;
      Height          := 50;
      Proportional    := True;
      Center          := True;

      Picture.Bitmap := gif.Images.SubImages[I].Bitmap;
    end;
  end;

  //
  gif.Free;