Discussion :

[dlecomte]

Bonjour,

L'utilise le composant Indy TIdTCPServer (Version 10) et je dois mettre à jour plusieurs liste "TListView" ainsi qu'une base de données Oracle avec les informations recueillies du client (Date et Heure de connexion et de déconnexion ainsi que les commandes à traiter). J'ai essayé avec des sections critiques mais au bout d'un moment mon application se fige, j'ai vu qu'on pouvait utiliser des méthodes de synchronisation mais je ne sais pas comment les implémenter, quelqu'un pourrait-il m'aiguiller ?


Cordialement
Daniel

[Philippe Gormand]

Bonjour.

Ne connaissant pas ton code, je ne peux que te conseiller de consulter
l'aide sur deux choses.

-1- L'object TCriticalSection qui est fait pour bloquer
temporairement l'action des autres Thread.
-2- La méthode Synchronize de l'objet TThread.

Bon courage.

[DMO]

Salut,

Oui sous Indy 10, il faut savoir que le thread du serveur est plus difficile à obtenir, mais que c'est possible.
Il me semble que ton besoin est légitime (j'ai eu le même). Tu es par exemple dans le contexte (TIdContext) du OnExecute du serveur TCP, et tu dois intervenir dans l'affichage.

Il est possible d'accéder ainsi à l'instance du thread à partir d'un TIdContext.

Pour cela tu as besoin de ces uses :

Code :

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

1
2
uses
  IdThread, IdSchedulerOfThread;

Ensuite ton code de synchro ressemble à cet exmple :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  vThread: TIdThreadWithTask;
begin
  if AContext.Yarn is TIdYarnOfThread then
    begin
      vThread := TIdYarnOfThread(AContext.Yarn).Thread;
      vThread.Synchronize(TaMethodeSynchronisee);
    end;
end;

Voilà ça devrait aller mieux ainsi, et tu peux laisser tomber les TCriticalSection

[dlecomte]

Bonjour,

Merci pour toutes ces informations, j'ai reussi à effectuer la synchronisation de mes objets VCL avec votre aide.

Cordialement
Daniel