TImg: Nombre de boucles (Loops) ?

Bonjour,

J'utilise Rad Studio XE C++Builder.

J'aimerais savoir comment on peut connaitre le nombre de boucles (Loops)
d'une animation Gif avec TImg TIMage.

Extrait de la partie de mon code:

Code:

---

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

#include <GIFImg.hpp>   //......   void __fastcall TForm1::Button1Click(TObject *Sender) { TGIFImage *GIF = new TGIFImage(); TGIFAppExtNSLoop *LoopExt;   //code....... //iNTERROGATION LoopExt = new TGIFAppExtNSLoop(GIF->Images->Frames[0]); // Affichage du résultat Label1->Caption = IntToStr(LoopExt->Loops);   // code...... }

---

Qu'importe le nombre de boucles, cela me renvoit toujours "0" ????

Merci d'avance pour l'éventuelle aide...
Luiso

GIF->AnimateLoop indique un etat parmis l'énumération TGIFAnimationLoop (glDisabled, glEnabled, glContinously)

Pourquoi tu fais un new ?
En lisant la doc, ce que tu devrais faire à mon avis !

Code:

---

1 2 3 4 5 6

TGIFExtension* Extension = GIF->Images->Frames[0]->Extensions->Extensions[0] if (Extension ->InheritsFrom(__classid(TGIFAppExtNSLoop))) { Label1->Caption = IntToStr(TGIFAppExtNSLoop(Extension)->Loops);   }

---

Note que Extensions est une liste, tu peux y avoir des tout ce qui de TGIFExtension donc TGIFApplicationExtension, TGIFAppExtNSLoop, TGIFGraphicControlExtension, TGIFTextExtension...
tu peux utiliser InheritsFrom ou dynamic_cast<>(), selon tes habitudes !

Evidemment, tous mes propos sont théoriques, je n'ai pas de TGIFImage en BSD2007, c'est des déductions à partir de la doc !

Hello,

En plus des indications de ShaïLeTroll, tu peux aller voir du côté du gars qui a développé le composant à l'origine, ou de celui qui a continué à bosser dessus.

Tu trouveras plein d'infos, ainsi que des exemples.

Sinon, Loops==0 indique que le GIF boucle indéfiniment.

Merci Totoche,

Mais j'ai lu la rubrique en question et elle s'adresse surtout à Delphi...
je me dépatouille un peu en CBuilder mais pas en Delphi.
En fait j'ai essayer avec l'exemple Delphi et ca fonctionne, mais pour la transpôsition en CBuilder... rien à faire pour moi...

Merci ShaiLeTroll,

J'ai essayé comme tu me l'as indiqué mais voici ce que cela donne:

Code:

---

1 2 3 4 5 6

TGIFExtension* Extension = GIF->Images->Frames[0]->Extensions->Extensions[0]; if (Extension ->InheritsFrom(__classid(TGIFAppExtNSLoop))) { EdLoop->Text = IntToStr(TGIFAppExtNSLoop(Extension)->Loops); //erreur sur cette ligne// }

---

Messages:
[BCC32 Erreur] Unit1.cpp(116): E2285 Impossible de trouver une correspondance pour 'TGIFAppExtNSLoop::TGIFAppExtNSLoop(TGIFExtension *)'
[BCC32 Erreur] Unit1.cpp(116): E2459 Les classes de style Delphi doivent être construites avec l'opérateur new

Code:

---

EdLoop->Text = IntToStr(((TGIFAppExtNSLoop*)Extension)->Loops);

---

Bravo,
un trés grand merci Totoche...
Ca fonctionne trés bien maintenant, :ccool:
je vais pouvoir continuer...
@ bientôt
luiso

lol, j'ai transtypé avec la syntaxe Delphi : type(var)
différence du transtypage C++ : (type)var
et encore plus différent pour les objets : (type*)var
En Delphi, on a que la forme dynamique des objets, donc la syntaxe est simplifié, inutile de déférencer, on utilise var.prop et non var->prop qui n'est raccourci de (*var).prop

Code:

---

EdLoop->Text = IntToStr(((TGIFAppExtNSLoop*)Extension)->Loops);

---

peut aussi s'écrire

Code:

---

EdLoop->Text = IntToStr((dynamic_cast<TGIFAppExtNSLoop*>(Extension))->Loops);

---

Merci ShaiLeTroll,

Effectivement, comme cela, ca fonctionne trés bien aussi...

Toutefois, et indépendamment de cela, je vous signale que:

1- Une animation continu = 0;
2- Une animation avec 1 boucles = 0; (et l'animation reste en continue au lieu de s'exécuter 1 fois)
3- Une animation avec 2 boucles = 1;
4- Une animation avec 3 boucles = 2;
etc...

Curieux !....

Bonjour,
Pour ceux qui pourraient être intéréssé pour un affichage correct des boucles lues (Loops).
J'ai pas trouvé plus court...
Fonctionne pareil avec "EdLoop->Text = IntToStr((dynamic_cast<TGIFAppExtNSLoop*>(Extension))->Loops);"

Code:

---

1 2 3 4 5 6 7 8

TGIFExtension* Extension = GIF->Images->Frames[0]->Extensions->Extensions[0]; if (Extension->InheritsFrom(__classid(TGIFAppExtNSLoop))) { EdLoop->Text = ((TGIFAppExtNSLoop*)Extension)->Loops; //pour un affichage juste du nombre de boucle, rajouter 1 if(EdLoop->Text>0) EdLoop->Text = StrToInt(EdLoop->Text)+1; } else EdLoop->Text = 1; //affichage Si 1 seule boucle !

---

merci encore...
luiso:D