Comment implémenter ce Thread ?Résolu

Question

Bonjour,
dans mon application, j'ai un timer qui effectue un check toutes les 5 secondes (une verif un peu longue) et qui par sa nature provoque un petit bloquage, ce pourquoi je voulais remplacer le timer par Thread, mais je ne sais pas trop comment implémenter la fonction du timer dans le thread et effectuer donc la même vérif.

voici le code :

Variable globale : SentVerif : Boolean;


// code du timer

Begin

if sentverif the
 begin
  timer.interval:=5000; // peut-être négligé
  StatusLabel.caption:="Pas de signal";
  try
   Disconnect; // déconnecte l'appli du server
   Reconnect; // reconnecte l'appli
  except
   IsResponging:=False;
 end;

AppeleLeServeurPourUneVerif();

End;



AppeleLeServeurPourUneVerif est une procedure Public, qui envoie un simple message (spécial) au serveur, qui alors répond (et met IsRespondig à True).

Bacterius · Accepted Answer

Oui, si le freeze occure toutes les 5 secondes, il provient du code qui se situe dans la méthode CheckAnswer. Si tu utilises les composants Indy, il y a un composant TIDAntiFreeze, bien pratique pour atténuer les freeze.

Cordialement, Bacterius !

djiga4me · Answer

J'ai pensé à quelque chose dans le genre :


type
TServerCheckT=class(TThread)
Private
Procedure CheckAnswer;
Protected
Procedure Execute;override;
End;

Var {Globales} 
XToto : TServerCheckT;
SentVerif : Boolean;
SleepInterval : Integer;
IsResponding : Boolean;

// exécution du thread
Procedure TServerCheckT.Execute;
begin
while not terminted do
begin
Synchronize(CheckAnswer);
end;
end;

Procedure TServerCheckT.CheckAnswer;
begin
if sentverif the
 begin
  timer.interval:=5000; // peut-être négligé
  StatusLabel.caption:='Pas de signal';
  try
   Disconnect; // déconnecte l'appli du server
   Reconnect; // reconnecte l'appli
  except
   IsResponging:=False;
 end;

AppeleLeServeurPourUneVerif();
end;

djiga4me · Answer

Salut,
Merci bien Bacterius(les petits détails)

J'ai bien codé le thread, il fonctionne comme je le voulais,
il remplace ce que faisais le TTimer.

Mais il subsiste toujours un petit freez (chaque 5sec), je pense que c'est dû à la méthode "Diconnect" et à "Reconnect", sinon je ne vois pas d'autres raisons.

djiga4me · Answer

Bonjour,
Effectivement j'utilise les composants Indy (10 avec D2009), et oui un TIdAntiFreeze à réglé le problème.

Merci Bacterius pour votre aide.

Bacterius · Answer

Aucun problème, joyeuse fin de fêtes 

Cordialement, Bacterius !

Comment implémenter ce Thread ?

5 réponses

Votre réponse

Discussions similaires