Animiertes Gif ohne Qualität-Verlust öffnen

[thomas2009]

Hallo

wenn ich ein animiertes Gif öffne, dann kommt manch mal
nur das erstes Bild OK mit guter Qualität aber der Rest schlecht !
Und so öffne ich ein animiertes Bild:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
gif : TGifImage;
count: Integer;
begin
if OpenDialog1.Execute then begin
gif := TGifImage.Create;
gif.LoadFromFile(OpenDialog1.FileName);
Image1.Picture.Bitmap := gif.Images.SubImages[StrToInt(Edit1.Text)].Bitmap;
gif.free;
end;
end;

Ich habe getestet mit diesem Gif :
http://www.ahaaryog.com/construction_animated.gif

[turboPASCAL]

Du weist schon das sich ein Gif-Bild aus dem
Ersten und den darauf folgenden zusammen setzt ?

[himitsu]

Ein GIF kann so optimiert werden, daß nur die Veränderung zum vorherrigen Bild, in den Folgebildern, gespeichert werden = kleinere Dateien.
Und es gibt transparente Bereiche, welche (wie man sieht) bei dir schwarz dargestellt werden.

[Namenloser]

Ich bin mir ziemlich sicher, dass bei TGifImage ein Beispiel dabei war, das zeigte, wie man Einzelbilder eines animierten Gif korrekt anzeigt.