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 ...

[edam]

je vais peut etre dir une betise
mais tu peut mettre une point d'arret dans stopclik pour voir si il répond

[xenos]

je vais peut etre dir une betise
mais tu peut mettre une point d'arret dans stopclik pour voir si il répond

J'ai mis un point d'arrêt au niveau du bouton Stop et le logiciel s'arrête quand on clique sur le bouton, mais je ne vois pas à quoi ça avance.

[edam]

tu peut donner le corp de votre thréd??? la procedure execute

[xenos]

Je l'ai déjà donné :

Code :

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

1
2
3
4
5
6
7
8
9
10
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;

[edam]

essay

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
<div style="text-align: left;">procedure TForm1.IdThread_TestRun(Sender: TIdThreadComponent);
var
  i : Integer;
begin
i:=0
while (i<50000) and (not IdThread_Test.Stopped) do  
    begin
      inc(i);
      Label1.Caption := IntToStr(i);
    end;
  IdThread_Test.Stop;
end;</div>en plus, normalement  on accéde pas au vcl dans un thréad?????:koi:

[xenos]

En effet, avec ton code ça fonctionne très bien. On arrive à arrêter le Thread :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.IdThread_TestRun(Sender: TIdThreadComponent);
var
  i : Integer;
 
begin
  i:=0;
  while (i < 50000) and (not IdThread_Test.Stopped) do
    begin
      inc(i);
      Label1.Caption := IntToStr(i);
    end;
  IdThread_Test.Stop;
end;

Mais le problème est qu'on ne fait que stopper le processus, ce qui peut être pratique dans certaines situations. J'aimerais dés lors effectuer un bouton "Pause".

Y aurait il une fonction ou un système qui permettrait de faire facillement une pause au TThread ?

en plus, normalement on accéde pas au vcl dans un thréad?????

Dans ce cas, comment fais-t'on pour effectuer une boucle sur la vcl si chacun des cycles durent plusieurs secondes et que l'on ne veut pas bloquer toute l'application ?

[edam]

Y aurait il une fonction ou un système qui permettrait de faire facillement une pause au TThread ?

voir l'aide en ligne sur les thréad

TThread.Suspend

Interrompt l'exécution du thread.
procedure Suspend;
Description
Appelez Suspend pour interrompre temporairement l'exécution du thread. Pour reprendre l'exécution après un appel à Suspend, appelez Resume. Il est possible d'imbriquer les appels de la méthode Suspend; Resume doit alors être appelée le même nombre de fois que Suspend avant que l'exécution du thread reprenne.

et pour reprendre

TThread.Resume

Reprend l'exécution d'un thread interrompu.
procedure Resume;
Description
Appelez Resume pour provoquer un thread suspendu pour redémarrer. Il est possible d'imbriquer les appels de la méthode Suspend; Resume doit alors être appelée le même nombre de fois que Suspend avant que l'exécution du thread reprenne.

pour accéed au VCL toujour dans l'aide en ligne:

TThread.Synchronize

Exécute un appel de méthode dans le thread VCL principal.
type TThreadMethod = procedure of object;
procedure Synchronize(Method: TThreadMethod);
Description
Synchronize provoque l'exécution de l'appel spécifié de la méthode spécifiée par Method par le thread CLX principal, ce qui évite les conflits multithread. Si vous n'êtes pas sûr qu'un appel de méthode soit adapté à l'utilisation de threads, appelez-le depuis le thread CLX principal, en lui étant transmis par la méthode Synchronize.
L'exécution du thread est interrompue tant que Method s'exécute dans le thread CLX principal.
Remarque : Vous pouvez aussi protéger les méthodes non sécurisées en utilisant des sections critiques ou le synchroniseur en écriture exclusive multi-lecture.

[xenos]

Merci pour ta réponse Edam.

Cependant, il semblerait que les informations que tu m'as fournies ne sont pas valables pour les IdThreadComponent ...

Lorsque je compile le soft, il parle d'identifiant non déclaré ... et à première vue il n'y a pas de clauses Uses à rajouter.

Cependant pourrais tu quand même me donner le site sur lequel tu as trouvé ces informations ?

Bien entendu, ma question reste ouverte, comment suspendre un IdThreadComponent vu que les procédures suspend et resume ne semblent pas fonctionner.

[edam]

tout est dans l'aide de delphi