Discussion :

[luiso]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ShaiLeTroll]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[totoche76]

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.

[luiso]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[totoche76]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[luiso]

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