Discussion :

[peter27x]

RESOLU


Bonjour,

j'aimerais savoir pourquoi, si une boucle infinie placée dans une fonction d'un thread, bloque l'application si elle est lancée (une seule fois, lors du premier passage dans le timer) depuis un timer du thread, et non pas si elle est lancée (une seule fois aussi grâce à un booleen) depuis le Execute du même thread ?

Sachant que le timer est mis à enabled=true dans le Execute.

Etrange !

[Reisubar]

bloque l'application si elle est lancée (une seule fois, lors du premier passage dans le timer) depuis un timer du thread

Oula... Il serait intéressant de voir le code derrière ce que tu appelles le "timer du thread"... D'où sors ce timer ? S'il s'agit d'un timer crée visuellement ou l'évènement OnTimer est implémenté dans le corps du thread, c'est tout à fait normal car ce dernier sera déclenché dans le contexte du thread principal et pas dans celui du second thread.

De toutes façons, pourquoi utiliser un timer dans un thread ? D'une part cela ne fonctionnera pas à moins de rajouter une boucle de messages dedans (boulot superflu), et d'autres part tu peux très bien utiliser d'autres constructions du langage (TEvent / boucles whlie...)

[peter27x]

Oula... Il serait intéressant de voir le code derrière ce que tu appelles le "timer du thread"... D'où sors ce timer ? S'il s'agit d'un timer crée visuellement ou l'évènement OnTimer est implémenté dans le corps du thread, c'est tout à fait normal car ce dernier sera déclenché dans le contexte du thread principal et pas dans celui du second thread.

De toutes façons, pourquoi utiliser un timer dans un thread ? D'une part cela ne fonctionnera pas à moins de rajouter une boucle de messages dedans (boulot superflu), et d'autres part tu peux très bien utiliser d'autres constructions du langage (TEvent / boucles whlie...)

Non non, il s'agit d'un timer non visuel:

Code :

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

1
2
3
4
5
6
type
  TThread232 = class(TThread)
  private
 
    timerThread232:TTimer;
    procedure procTimer(sender:Tobject);

Code :

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

1
2
3
4
5
6
7
8
constructor TThread232.create(suspend : Boolean);
begin
  inherited Create(suspend);
  timerThread232:=TTimer.create(nil);
  timerThread232.OnTimer:=procTimer;
  timerThread232.Interval:=dureeIntervalTimer232;
  timerThread232.Enabled:=false;
end;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TThread232.Execute;
begin
 
  while not self.Terminated do
  begin
    if firstExecute = true then
    begin
      firstExecute:=false;
      timerThread232.Enabled:=true;
    end;
  end;
 
end;

[Linkin]

De plus ton thread est executé en boucle sans pause (sleep). Je pense que c'est ça qui fait que l'appli se fige.

Le timer et le thread sont un peu redonnant ...
A la limite tu as juste besoin de mettre dans le Execute sans rien d'autre

Code :

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

1
2
3
4
5
 
procedure Execute;
begin
 timerThread232.Enabled:=true;
end;

Mais je pense que la meilleure solution est d'enlever le Timer, et de tout gérer dans le thread.

[CapJack]

TTimer fait partie de la VCL... je ne suis pas bien sûr qu'il soit "thread safe" (c'est comme ça qu'on dit ? ), en d'autres termes on ne peut sans doute pas l'utiliser dans un thread.

[peter27x]

De plus ton thread est executé en boucle sans pause (sleep). Je pense que c'est ça qui fait que l'appli se fige.

Le timer et le thread sont un peu redonnant ...
A la limite tu as juste besoin de mettre dans le Execute sans rien d'autre

Code :

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

1
2
3
4
5
 
procedure Execute;
begin
 timerThread232.Enabled:=true;
end;

Mais je pense que la meilleure solution est d'enlever le Timer, et de tout gérer dans le thread.

Comment se comporte l'éxecute dans ce cas là ? Il est exécuté en boucle, ou bien une seule fois lors du create du thread (vu que suspend = false) ?

Le "while not terminated" donné partout en exemple me faisait penser que le execute du thread était parcouru en boucle, non ?

==> je viens de vérifier, le execute est passé en boucle.
====> Erreur stupide, la boucle vient du While not terminated...

[peter27x]

TTimer fait partie de la VCL... je ne suis pas bien sûr qu'il soit "thread safe" (c'est comme ça qu'on dit ? ), en d'autres termes on ne peut sans doute pas l'utiliser dans un thread.

Ben si, le timer fonctionne bien (dans son utilisation normale, je l'ai un peu détourné temporairement pour faire les tests sur la boucle infinie intra-thread).

Il permet au thread d'aller voir toutes les x millisecondes si certains booleens sont à vrai afin de vérifier l'état de certaines choses...).

Ne pas utiliser le timer, je sais faire, je l'ai déjà codé, mais c'est moins simple : j'avais géré les laps de temps de passage dans le execute avec des variables de type TDateTime, et les fonctions de comparaisons de milliseconde (voir la batterie des fonctions millisecondsBetween...).

Tu penses qu'il est préférable d'utiliser la seconde méthode citée plutôt qu'un timer ? (à l'intérieur d'un thread s'entend).

[Linkin]

Tout dépend de la précision que tu veux et du temps de traitement.

Pour ma part, ces critères ne m'importent pas dans mes cas d'utilisation.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure Execute;
begin
  while not Self.Terminated do
  begin
    // Ton code
 
    // Attente
    Sleep(2000);
  end;
end;

[peter27x]

Tout dépend de la précision que tu veux et du temps de traitement.

Pour ma part, ces critères ne m'importent pas dans mes cas d'utilisation.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure Execute;
begin
  while not Self.Terminated do
  begin
    // Ton code
 
    // Attente
    Sleep(2000);
  end;
end;

Je me suis entre temps joint à toi, j'ai laissé tombé le timer (son côté VCL-like ou bien encore "not thread-safe" doit être de mauvaise augure dans un thread ).

Je gère comme je l'avais fait auparavant, via des constantes indiquant des delai en millisecondes suivant divers traitements pouvant être à mener à terme ou à vérifier (selon les cas), le tout géré dans le execute via les TDate functions...

Ca marche bien.