Discussion :

[Roland Chastain]

Bonjour !

J'aimerais bien savoir ce que vous pensez de ce programme. C'est une application graphique qui dialogue avec un programme d'échecs, en utilisant le protocole UCI. Les commandes qui appellent une réponse sont exécutées dans un thread. Un timer attend les réponses et les affiche lorsqu'elles sont disponibles.

L'application semble fonctionner correctement mais j'aimerais savoir si le code est bien fait selon vous, ou s'il y a des choses que vous auriez faites autrement. L'objectif étant d'avoir une application qui serve à présenter le protocole UCI, et au-delà d'avoir une unité qui puisse être utilisée par moi ou par d'autres pour un vrai projet (un jeu d'échecs avec des pièces et tout).

La compilation a été testée avec Delphi Berlin. J'espère que le fonctionnement du programme est assez intuitif. Les boutons s'activent ou se désactivent selon ce que vous avez le droit de faire.

L'unité uci.pas est basée sur cet exemple :
http://forum.lazarus.freepascal.org/...html#msg128820

qui pour la partie "tuyaux" semble s'être appuyé sur celui-ci :
http://www.tek-tips.com/faqs.cfm?fid=7402

[Invité]

Plutôt que d'attendre une réponse avec un Timer tu peux sans doute utiliser le TTask et un WaitForAll ou WaitForAny en fonction du nombre de thread que tu as.

[Roland Chastain]

Plutôt que d'attendre une réponse avec un Timer tu peux sans doute utiliser le TTask et un WaitForAll ou WaitForAny en fonction du nombre de thread que tu as.

Merci pour ta réponse. Je ne connais pas tout ça : je vais me documenter.

[Invité]

Les tâches permettent d'exécuter du code discrètement et séparément dans un thread, sinon un thread et utiliser le Terminate uniquement quand tu as une réponse ?

Un petit exemple pour les tâches :

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
var
	ListTasks: array[0..n] of ITask; // uses System.Threading
begin
	// création d'une tâche
	ListTasks[0] := TTask.Run(procedure
                       begin
                          MaProcQuiFaitQqch;
 
                          TThread.Synchronize(TThread.Current,
                                              procedure
                                              begin
                                                 Memo.Lines.Add('Début');
                                              end));
 
	// création de n tâches ...
 
	// tâche exécutée quand les tâches de la liste sont terminées
	// utiliser WaitForAny pour exécuter le code quand au moins une
	// tâche est terminée
	TTask.Run(procedure
              begin
                 TTask.WaitForAll(ListTasks);
 
		MaProcQuiFaitQqch_Suite;
 
                 TThread.Synchronize(TThread.Current,
                                     procedure
                                     begin
                                       Memo.Lines.Add('Terminé')
                                     end);
              end);
end;