Création d'une image animée

Bonjour,
j'utilise GIFImage pour créer une image GIF animée.
La création, l'enregistrement et la visualisation avec un programme tel que IrfanView se passent correctement.

Ce que je n'ai pas trouvé est la méthode pour imposer un intervalle de temps entre 2 images successives.

Quelqu'un peut-il m'aider ?

Merci

Salut
Le probleme c est que des composants gifimage , il y en a un paquet ...
C est celui de Melander ?
Delay , non ?

J'aurais du le préciser : c'est celui qui est fourni avec avec C++ Builder XE2.

J'ai trouvé quelque chose, mais ça n'a pas l'air de fonctionner,, même si la compilation se passe normalement :
A l'intérieur d'une boucle traitant toutes les images du GIF :

Code:

---

1 2 3

ext = new TGIFGraphicControlExtension(GIF->Images->operator [](i) ); ext->Delay = 3; GIF->Images->operator [](i)->Extensions->Add(ext);

---

SetDelay ? En centiemes de secondes

http://docwiki.embarcadero.com/Libra...nsion.SetDelay

http://docwiki.embarcadero.com/Libra...ntrolExtension

Lorsque j'écrit :

Code:

---

1 2	ext = new TGIFGraphicControlExtension(GIF->Images->operator [](i) ); ext->SetDelay(10);

---

J'ai le message "SetDelay(unsigned short)" n'est pas accessible.

Je suis surpris parce que j'ai vu, sur Internet, un exemple Delphi :

Code:

---

1 2	Ext := TGIFGraphicControlExtension.Create(GIF.Images[Resullt]); Ext.Delay:= 30; // Animation Delay (30 = 300 ms)

---

Il semble que ce soit une autre version de GIFImage. à cause de

Code:

---

(GIF.Image[Result])

---

J'ai examiné le fichier "Vcl.Imaging.GIFImg.pas".
Il y a bien une procédure protégée :

Code:

---

procedure TGIFGraphicControlExtension.SetDelay(Value: WORD)

---

mais il y a une Propriété :

Code:

---

property Delay: WORD read GetDelay write SetDelay;

---

Il suffit, a priori, d'écrire

Code:

---

ext->Delay = 10;

---

qui est accessible.

Je vais tester un peu plus et je vous tiendrai au courant.

Merci.

J'ai testé suivant ma précédente réponse.
Cela fonctionne correctement.

Merci

Postes un sample si tu veux bien , çà pourra toujours servir

Voilà un exemple d'utilisation de GIFImage pour créer une image animée gif.
L'image animée est celle d'un dodécaèdre qui tourne autour d'un axe.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

void __fastcall TfDodecaIso::bCreerGifClick(TObject *Sender) { int largeur = (eLargeur->Text).ToInt(); // largeurt de l'image int iNombre = (eNombre->Text).eNombre->Text; // Nombre d'images int Intervalle = (eIntervalle->Text).ToInt();// Intervalle de temps entre 2 images TGIFImage* GIF = new TGIFImage; Graphics::TBitmap* bmp = new Graphics::TBitmap; bmp->Width = largeur; bmp->Height = largeur; const double beta = (360.0/double(iNombre))*M_PI/180.0; TCanvas* pcanvas= bmp->Canvas; TGIFGraphicControlExtension* ext;   usDirEnregistrer = usDirImage + "\\Dodecaedre\\"; usNomFichier = usDirEnregistrer + "Dodecaedre-";     if(!DirectoryExists(usDirEnregistrer)) CreateDir(usDirEnregistrer);   for(int i = 0; i < iNombre; i++) { Rotation(0, beta, 0); Tracer(pcanvas, largeur, largeur); GIF->Add(bmp); ext = new TGIFGraphicControlExtension(GIF->Images->operator [](i) ); ext->Delay = Intervalle; GIF->Images->operator [](i)->Extensions->Add(ext); }   GIF->Animate = true; GIF->Pack(); SavePictureDialog1->Title = "Enrgistrer l'image GIF au format gif"; SavePictureDialog1->FilterIndex = 3; SavePictureDialog1->Execute(); GIF->SaveToFile(usNom);   GIF->Clear(); delete GIF;   delete bmp; } //---------------------------------------------------------------------------

---

Ne pas oublier

Code:

---

#include <Vcl.Imaging.GIFImg.hpp>

---

J'ai supprimé dans ce que je présente un certain nombre de lignes.
En effet, le programme permet de créer également des images animées d'un
icosaèdre ou d'un icosaèdre tronqué.
Je suis réceptif à toute remarque.

Ok merci