Discussion :

[Pasqualini]

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

[cedni]

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

[Pasqualini]

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 :

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

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

[cedni]

SetDelay ? En centiemes de secondes

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

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

[Pasqualini]

Lorsque j'écrit :

Code :

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

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 :

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

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 :

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

(GIF.Image[Result])

[Pasqualini]

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

Code :

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

procedure TGIFGraphicControlExtension.SetDelay(Value: WORD)

mais il y a une Propriété :

Code :

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

property Delay: WORD read GetDelay write SetDelay;

Il suffit, a priori, d'écrire

Code :

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

ext->Delay = 10;

qui est accessible.

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

Merci.