Discussion :

[xenos]

Salut,

Je développe un software avec Delphi 2006 et Indy 10 sous WinXP.

J'ai un IdThreadComponent qui effectue une tâche dans l'évènement Onrun.

J'aimerais en cliquant sur un bouton l'arrêter si il travaille :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button5Click(Sender: TObject);
begin
  if (IdThread_Test.Stopped = False) then
    begin
      IdThread_Test.Stop;
    end;
end;

Malheureusement ce code ne fonctionne pas ...

D'avance merci pour vos réponses.

[xenos]

Personne n'a la moindre idée de comment arrêter un IdThreadComponent pendant qu'il travaille ?

[edam]

j'ai pas trouver la propriété stpop
voir simplement if ActiveThreads then TerminateThreads
désolé

[xenos]

J'ai essayé plusieurs possibilités d'après ce que tu m'as dis edam :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button5Click(Sender: TObject);
begin
  if (IdThread_Test.Stopped = False) then
    begin
      IdThread_Test.Terminate;
    end;
end;

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button5Click(Sender: TObject);
begin
  if (IdThread_Test.Active = True) then
    begin
      IdThread_Test.Terminate;
    end;
end;

Aucune des deux ne fonctionne ...

Il doit surement y avoir moyen d'arrêter un Thread qui travaille !

[edam]

comment sait tu que votre thréad n'est pas arrété??

[xenos]

Parce que j'ai créé justement un Thread spécialement pour apprendre à l'arrêter :

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
procedure TForm1.IdThread_TestRun(Sender: TIdThreadComponent);
var
  i : Integer;
 
begin
  for i := 0 to 50000 do
    begin
      Label1.Caption := IntToStr(i);
    end;
  IdThread_Test.Stop;
end;
 
procedure TForm1.PlayClick(Sender: TObject);
begin
  IdThread_Test.Start;
end;
 
procedure TForm1.StopClick(Sender: TObject);
begin
  if (IdThread_Test.Active = True) then
    begin
      IdThread_Test.Stop;
    end;
end;

Je met donc dans le bouton Stop la fonction qui est censé arrêter le Thread et tant que le Label1 continue à afficher des nombres c'est que j'ai pas réussi à l'arrêter ...