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.

[Pasqualini]

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

Merci

[cedni]

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

[Pasqualini]

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 :

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
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 :

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

#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.

[cedni]

Ok merci