Petite question sur les Threads et WaitFor

Bonjour,

J’ai une boucle For, dans laquelle il y a un MyThread.Start, suivi d’un MyThread.WaitFor.

Entre chaque itération, je modifier des paramètres pour le traitement de MyThread.Exécute.

A la première itération de ma boucle RAS, mais à la seconde itération de ma boucle, comment je relance MyThread ?

Le débogguer râle sur MyThread.Start, alors je doit sûrement oublier quelque chose, auriez-vous une idée de solution ?

Je vous remercie par avance de vos retours.

Tu ne peux pas le redémarrer. Le thread Windows est automatiquement libéré à la sortie de Execute.

Soit tu recrées un TThread à chaque itération, soit tu passes par des events, lus en boucle dans un while not terminated do.

Je ne comprend l’approche avec les events, aurais tu un example explicatif ?

Un exemple par event :

Code:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
program Project1;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses System.SysUtils, System.Classes, System.SyncObjs, Winapi.Windows;
 
type
  TMyThread = class(TThread)
  protected
    procedure Execute; override;
    procedure TerminatedSet; override;
  end;
 
var
  StartEvent :TEvent;
  EndEvent   :TEvent;
 
{ TMyThread }
 
procedure TMyThread.Execute;
begin
  while not Terminated do
  begin
    StartEvent.WaitFor;
 
    if not Terminated then
    begin
      Winapi.Windows.Beep(500, 100);
      Sleep(2000);
      Winapi.Windows.Beep(600, 100);
    end;
 
    EndEvent.SetEvent;
  end;
end;
 
procedure TMyThread.TerminatedSet;
begin
  StartEvent.SetEvent;
  inherited;
end;
 
begin
  var Thread := TMyThread.Create;
 
  StartEvent := TEvent.Create(nil, FALSE, FALSE, '');
  EndEvent   := TEvent.Create(nil, FALSE, FALSE, '');
 
  for var i := 1 to 5 do
  begin
    WriteLn('Démarrage');
    StartEvent.SetEvent;
 
    WriteLn('Attente');
    EndEvent.WaitFor;
 
    WriteLn('Terminé');
    WriteLn;
 
    Sleep(1000);
  end;
 
  Thread.Free;
  StartEvent.Free;
  EndEvent.Free;
end.

Ou une autre version sans event avec un WakeByAddress.
L'avantage est qu'on a pas besoin de se préoccuper de la durée de vie des events.

Code:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
program Project1;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses System.SysUtils, System.Classes, Winapi.Windows, WakeEvents;
 
type
  TMyThread = class(TThread)
  protected
    procedure Execute; override;
    procedure TerminatedSet; override;
  end;
 
var
  StartEvent :TWakeEvent;
  EndEvent   :TWakeEvent;
 
{ TMyThread }
 
procedure TMyThread.Execute;
begin
  while not Terminated do
  begin
    StartEvent.Wait;
 
    if not Terminated then
    begin
      Winapi.Windows.Beep(500, 100);
      Sleep(2000);
      Winapi.Windows.Beep(600, 100);
    end;
 
    EndEvent.SetEvent;
  end;
end;
 
procedure TMyThread.TerminatedSet;
begin
  StartEvent.SetEvent;
  inherited;
end;
 
begin
  var Thread := TMyThread.Create;
 
  for var i := 1 to 5 do
  begin
    WriteLn('Démarrage');
    StartEvent.SetEvent;
 
    WriteLn('Attente');
    EndEvent.Wait;
 
    WriteLn('Terminé');
    WriteLn;
    Sleep(1000);
  end;
 
  Thread.Free;
end.

Mille mercis Andnotor, j'ai compris, l'idée, je vais pouvoir moduler selon mes besoins :applo:

Si je comprend bien TEvent et TWakeEvent sont Treadsafe, et il me suffit de défini l'event dans un module hors classe et accessible au 2 threads...