Discussion :

[Pasqualini]

Bonjour,
voilà quel est mon problème autour duquel je tourne depuis un "certain temps".

Je voudrais simuler une descente permanente de boules dans une autres image.

Je crée une trentaine de petites images, régulièrement espacées sur la hauteur.
Je j'augmente périodiquement de 1 pixel le Top de chaque image.
Lorsque l'image la plus basse, donc avec le Top le plus grand, je la réinstalle
en haut en soustrayant de son Top la hauteur.

Cela semble fonctionner un court moment, et encore.

Il y a un TImage, Image2, et une CheckBox, cbStop.

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
42
43
44
45
46
47
48
49
50
void __fastcall TfEssaiXE6::bImagesClick(TObject *Sender)
{
	int x1, y1, h, dy, largeur, hauteur, i, Nb, ymax, rayon, iTop;
 
	TImage** TabImages;
	largeur = Image2->Width;
	hauteur = Image2->Height;
	x1 = Image2->Left + largeur/2;
	y1 = Image2->Top;
	h = hauteur;
 
	TCanvas *pcanvas = Image2->Canvas;
	pcanvas->Brush->Color = clWhite;
	TRect aRect = TRect(0, 0, largeur, hauteur);
	pcanvas->FillRect(aRect);
 
	Nb = 30;
	dy = h/Nb;
	ymax = y1 + h - dy;
	rayon = 5;
 
	// Création des images
  	TabImages = new TImage*[Nb];
  TabImages[i]->Canvas->Brush->Color = clRed;	
	for(i = 0; i < Nb; i++)
	{
		TabImages[i] = new TImage(Application);
		TabImages[i]->Parent = fEssaiXE6;
		TabImages[i]->SetBounds(x1 - rayon, y1 + i*dy, x1 + rayon, y1 + i*dy + 2*rayon);
		TabImages[i]->Canvas->Brush->Color = clRed;		
		TabImages[i]->Canvas->Ellipse(0, 0, 2*rayon, 2*rayon);		
	}
 
	while(!cbStop->Checked)
	{    
		for(i = 0; i < Nb; i++)
		{
			iTop = TabImages[i]->Top;
			iTop++;
			if( iTop > ymax)  iTop = iTop - Nb*dy;
 
			TabImages[i]->Top = iTop;
			Application->ProcessMessages();
		}
		Application->ProcessMessages();
		Sleep(10);
	}
	Application->ProcessMessages();
 
	delete [] TabImages;

J'ai testé avec les versions XE2 et XE6 et j'ai les mêmes problèmes.
Si quelqu'un découvre l'erreur dans ce code, je suis preneur.

Merci d'avance.

[Crayon]

Salut, si tu commences un nouveau projet qui utilise des animations avec XE6, je te conseil d'utiliser FireMonkey au lieu de la VCL. Sinon si tu utilises la VCL, ne crée pas plein de TImage, dessine directement sur le Canvas de l'image pour éviter le scintillement. N'utilise pas de Sleep avec un while, prend un TTimer à la place.

Au lieu de ceci:

Code :

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

1
2
3
TImage** TabImages;
...
TabImages = new TImage*[Nb];

Je préfère ceci:

Code :

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

1
2
    DynamicArray<TImage*> TabImages;
    TabImages.Length = Nb;

Tu vas pouvoir viré cette ligne:

Code :

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

delete [] TabImages;

Il y a aussi un paquet de conteneur dans la std qui sont bien.

[Pasqualini]

Merci de vous intéresser à mon problème.
Je n'ai jamais utilisé de FireMonkey, il faudra que j'essaie.

Si je dessine directement sur l'image (ici Image2), il faudra que j'efface l'ensemble des petites images précédents avant de dessiner les nouvelles.
Cela peut se faire en remplissant un rectangle.

J'avais également essayé en mettant les images dans un container List de la stl.
Cela n'avais rien amélioré.

Je vais essayer en dessinant directement sur l'image de base.
Je ferai cet essai mercredi.

Je vous tiendrai au courant.

[Pasqualini]

J'ai essayé en dessinant directement sur le Canvas de l'image.
J'ai mis le code dans un Timer.
Cela fonctionne.

Dans ce cas particulier, est-ce qu'un Thread ajouterait quelque chose de différent d'un Timer.

J'ai essayé de mettre le code dans un Thread, ,mais j'ai des résultats aberrants.

[DjmSoftware]

Salut,

J'ai essayé de mettre le code dans un Thread, ,mais j'ai des résultats aberrants

Cette méthode est pourtant conseillée

ceci est très vraisemblablement du a des problème de synchronisation entre le thread principal de ton application utilisant la VCL et le code de ton thread interagissant avec celui ci
problème épineux lors de conflit d'accès
Résolution possible avec la méthode synchronize de l'object Thread bien que peu performant
j'utilise personnellement l'envoi de message au Thread Principal via les API Post Message
cette manière de faire est asynchrone et c'est l'OS en charge de la distribution des messages au programme principal
la réception des dit Message peut se faire de différentes manières

cdlt

Il existe sur le Net beaucoup de doc et d'exemples a ce sujet la plupart en Anglais espéranto de l'informatique

[Pasqualini]

Merci, je vais essayer de comprendre le comportement des Thread.

Dans un autre ordre de préoccupation, j'ai testé FireMonkey.
Je suis dérouté. On trouve, a priori, les mêmes composants que ceux de la VCL, mais ils n'ont ni les mêmes propriétés, ni les mêmes méthodes.
Pour le moment, je n'ai pas trouvé de documentations très "musclée" sur FireMonkey.

[Pasqualini]

L'utilisation du Thread fonctionne bien en utilisant la méthode "Synchronyse()"'.

Merci encore à Crayon

j'ai oublié, mais mes remerciements vont également à DjmSoftware