Discussion :

[Drikcé]

Bonjour,

J'aimerai créer une boucle non bloquante pour mon application, mais je n'y arrive pas . je m'explique: j'ai deux classes, un TComponent et un TThread.
Dans ma classe TComponent j'instancie et utilise mon thread. Le probleme c'est que je veux créer une boucle de test pour determiner quand mon thread est terminé:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Destructor TPosteDecoupeWafer.Destroy;
begin
  // destruction thread
  with thread do
  begin
    if not threadTerminated then
    begin
      Terminate;
      while not threadTerminated do
        sleep(10);       // boucle bloquante
    end;
    Free;
  end;

Y aurait t'il une solution pour que la boucle ne bloque pas l'application?? (Comme application.processMessages)

Merci d'avance pour vos résponses!

Ced

[Jayceblaster]

slt...
le timer ne t'aiderait pas la dessus???

[Graffito]

Bonjour,

Utiliser un timer avec dans son event :

Code :

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

1
2
timer1.enabled:=false ;
if threadTerminated then thread.free else timer1.enabled:=true ;

[Drikcé]

bé en fait je voit ce que vous voulez dire mais le probleme c'est que je veux pas qu'elle soit bloquante dans mon application (d'autre thread qui tourne) mais il faut qu'elle le soit dans ma procedure (ici mon destroy). Car si je detruit des objets qui sont utiliser par mon thread (avant qu'il soit detruit), sa va planter :/ vous comprenez ce que je veux dire??

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
 
 
Destructor TPosteDecoupeWafer.Destroy;
begin
  // destruction thread
  with thread do
  begin
    if not threadTerminated then
    begin
      Terminate;
      while not threadTerminated do
        sleep(10);       // boucle bloquante
    end;
    Free;
  end;
 
  FTcpFins.Free;
  FAdresseMotDialogue.Free;
  FAdresseCoordonneeX.Free;
  FAdresseCoordonneeY.Free;
  FAdresseOffsetX.Free;
  FAdresseOffsetY.Free;
  FAdresseOrigineAxeX.Free;
  FAdresseOrigineAxeY.Free;
  if Assigned(FSuiviOffsetWafer) then
    Finalize(FSuiviOffsetWafer);
  inherited;
end;

[Dry]

je te suggère ceci :

Code :

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

1
2
3
4
5
while not threadTerminated do
begin
   Application.ProcessMessages;
   sleep(1);
end;

Bon dev,
Dry

[Drikcé]

Bonjour Dry,

Je peux pas utiliser application.ProcessMessages étant donner que je me "trouve" dans une classe, a moins que je crée une variable locale TApplication juste pour utiliser le processMessages, je sais pas sa ma pas l'air trop propre comme code :/. Foutu thread...

[Dry]

il me semble qu'en faisant un :

Code :

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

uses Forms

ca devrait te permettre d'utiliser la variable globale Application.

Dry

[Drikcé]

yes merci man,

en fait j'utiliser forms mais je crée une nouvelle variable TApplication, alors que c'est pas la peine :p. Enfin bref sa marche voici la solution pour ce qui rencontrerons le même problème:

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
 
destructor TPosteFour.destroy;
begin
  // destruction thread
  with thread do
  begin
    if not threadTerminated then
    begin
      Terminate;
      while not threadTerminated do
        application.processMessages;
    end;
    Free;
  end;
 
  FTcpFins.Free;
  timerAcquisition.Enabled:= false;
  timerAcquisition.free;
  FAdresseMotDialogue.free;
  FAdresseConsigneTemperature.free;
  FAdresseTempsCycle.free;
  FAdresseTemperature.free;
  if Assigned(FSuiviTemperature) then
    Finalize(FSuiviTemperature);
  inherited;
end;

[Graffito]

Bonjour,

et en modifiant le code de l'event timer ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
timer1.enabled:=false ;
if threadTerminated 
   then begin 
     thread.free 
 
     FTcpFins.Free;
     FAdresseMotDialogue.Free;
     FAdresseCoordonneeX.Free ;     FAdresseCoordonneeY.Free;
     FAdresseOffsetX.Free     ;     FAdresseOffsetY.Free;
     FAdresseOrigineAxeX.Free ;     FAdresseOrigineAxeY.Free;
     if Assigned(FSuiviOffsetWafer) then
        Finalize(FSuiviOffsetWafer);
     end 
else timer1.enabled:=true ;

[Drikcé]

Oui sa doit fonctionner aussi mais sa m'embeter de créer un timer pour arreter un thread, mais ta solution marche aussi. Le destructeur deviendrais mon timer en fait. Je prefere l'autre méthode avec l'appel de processMessages de l'application.


Merci a tous pour vos reponses