Bonjour
Le code suivant fonctionne et fait ce que j'attends.
Par contre, je ne comprends pas pourquoi il ne passa jamais dans le wrAbandoned.
J'ai tenté un Release, un Free, mais ça ne passe jamais dans l'envoi du mot Terminé.
Est-ce que je fais mal quelque chose ?
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 TThread.CreateAnonymousThread( procedure var Status: TWaitResult; i: Integer; S: string; Termine: Boolean; begin Termine := False; repeat case Evt.WaitFor(INFINITE) of wrSignaled: begin Codesite.Send('signalé'); end; wrAbandoned: begin Termine := True; Codesite.Send('Terminé'); end; end; Evt.ResetEvent; Codesite.Send('on relance l''écoute'); until Termine; end).Start;
Partager