GIF-Animation

Robii · Beiträge: 236

Guten Nachmittag,
Ich bin zwar mit Google oder mit der Suchmaschine fündig geworden, allerdings klappt keine der gefunden Lösungen. Ich möchte gerne das auf Buttonklick eine *.Gif gezeigt und 'abgespielt' wird.

Ich habe mir die TGIFImage heruntergeladen und als Package installiert. Mit folgendem Code habe ich es probiert:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var
  tGif: TGifImage;
begin
tGif.Create;
try
  tGif.LoadFromFile('LadAn.Gif');
  Image1.Picture.Assign(tGif);
finally
  tGif.Free;
end;

Allerdings bekomme ich dann im Programm einen Zugriff's-Fehler.

Weiterhin habe ich versucht die *.Gif in eine *.Avi zu konvertieren und diese *.Avi dann in eine *.Res zu speichern.
Damit ich die *.Res dann mit TAnimate verwenden kann, allerdings hatt mir TAnimate dann immer den Fehler geliefert:
'Kann AVI nicht finden'

Ich hoffe ihr könnt mir nun helfen.

Lieben Gruß,
robii.

Moderiert von Narses: Code- durch Delphi-Tags ersetzt

platzwart · Verfasst: Fr 12.03.10 18:24

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var
  tGif: TGifImage;
begin
tGif:= TGifImage.Create;
try
  tGif.LoadFromFile('LadAn.Gif');
  Image1.Picture.Assign(tGif);
finally
  tGif.Free;
end;

_________________
Wissenschaft schafft Wissenschaft, denn Wissenschaft ist Wissenschaft, die mit Wissen und Schaffen Wissen schafft. (myself)

Robii · Beiträge: 236

Hey,

Danke erstmal für die schnelle Hilfe, allerdings wird mir die Animation jetzt einfach nur angezeigt, ohne das sie abgespielt wird. Wieso?

Lieben Gruß

Xentar · Verfasst: Fr 12.03.10 18:41

Weil du die Animation einem (statischem) TImage zuweist?

_________________
PROGRAMMER: A device for converting coffee into software.

Robii · Beiträge: 236

Zitat:

Weil du die Animation einem (statischem) TImage zuweist?

Wie kann ich es denn sonst machen? Habt ihr vielleicht noch eine andere Idee um ein GIf anzeigen zu können?

Lieben Gruß.

Xentar · Verfasst: Fr 12.03.10 18:44

TGifImage direkt als Komponente auf dem Formular platzieren.

_________________
PROGRAMMER: A device for converting coffee into software.

Robii · Beiträge: 236

E²: Hat sich geklärt.

Meine Lösung

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

uses
  GIFImg, ..


[..]

procedure TFORM1.XY(Sender: TObject);
var
  GIFimg: TGIFImage;
begin
GIFImageDefaultAnimate := True;
GIFimg:= TGIFImage.Create;
try
  GIFimg.LoadFromFile('*.gif');
  iLoad.Picture.Assign(GIFimg);
finally
  GIFimg.Free;
end;
end;

Man muss die Variable 'GIFImageDefaultAnimate' auf True setzen, diese regelt die globe Aktivierung von Animationen.
Quelle: melander.dk/delphi/gifimage/#faq_35

Moderiert von Narses: Code- durch Delphi-Tags ersetzt

Xentar · Verfasst: Fr 12.03.10 21:29

Hm.. bin mir grad nicht sicher, aber hat das GifImage nicht eine Eigenschaft Animated oder so, die man erst auf true setzen muss?

_________________
PROGRAMMER: A device for converting coffee into software.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme