Wie kann ich ein animiertes Gif entpacken (extract) ?

[thomas2009]

Hi
wie kann alle Images von einem animiertes gif extrahieren ?

[lbccaleb]

Du hast doch da offensichtlich schon ein Programm dafür?

[thomas2009]

Ich wollte das Programm nicht kaufen sondern eigenes Tool mit Delphi erstellen

[IceBube]

Hallo!

Das ist ganz einfach. Schau mal ob du "GifImage.pas" hast, wenn nicht lade diese herunter und binde Sie bei dir in der Unit ein.
Und so greifst du auf die Bilder zu...

Delphi-Quellcode:

var
 Bild : TGifImage;
begin
//
Bild := TGifImage.Create;
Bild.LoadFromFile(FileName);
Image1.Picture.Bitmap := Bild.Images.SubImages[Position].Bitmap
end;

lg

[thomas2009]

Gut
aber ich muss vorher viele images zuerst erstellen
Nummer :=Bild.Images.count;
und dann alle Bilder drin laden

Ich weiß nicht genau wie ich am besten tun kann?

Delphi-Quellcode:

var
 Bild : TGifImage;
 zahl : Integer;
begin
//
Bild := TGifImage.Create;
Bild.LoadFromFile(FileName);
zahl:=Bild.Images.count;
with.TImage.Create(Self) do begin
width:=Bild.picture.Bitmap.width;
Height:=Bild.picture.Bitmap.Height;
Top:=10;
Left:= ... // hier muss man überlegen
parent:=ScrollBox1;
...
//Image1.Picture.Bitmap := Bild.Images.SubImages[0].Bitmap;

bild.free;
end;

wie mache ich weiter?

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

[thomas2009]

Es funktioniert wie gewünscht
Aber was wäre wenn schon eine Image bereit in Srcollbox1 existiert?
d.h. wenn Count von gif =4 ist, dann muss ich nur 3 images erstellen, da eine schon in scrollbox haben.

[Sir Rufo]

Zitat von thomas2009:

Es funktioniert wie gewünscht
Aber was wäre wenn schon eine Image bereit in Srcollbox1 existiert?
d.h. wenn Count von gif =4 ist, dann muss ich nur 3 images erstellen, da eine schon in scrollbox haben.

hmmm, ja oder es fällt ein klavier vom himmel ... was dann ... oder ein elefant ...

dann lösch alle image-Instanzen der ScrollBox

[thomas2009]

Images in Scrollbox zu löschen ist zwar eine Lösung aber nicht alternativ. Ich versuche zuerst den Code weiter zu bearbeiten. Vielleicht geht es doch ohne die Images löschen zu müssen

[DeddyH]

Dazu ist nur ein bisschen Tipparbeit und Hirnschmalz erforderlich. Die Images, die schon da sind, können aktualisiert werden, die anderen werden dann halt erzeugt. Überzählige müssen dann aber doch wieder gelöscht werden.