Discussion :

[Papy214]

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;

[ShaiLeTroll]

Un TEvent se s'arrête pas, le but est plutôt de faire un SetEvent pour obtenir un wrSignaled.
Je ne pratique pas le thread anonyme, j'utilise aussi wrTimeOut pour gérer un état Idle du thread.

la gestion de wrAbandoned est plutôt à considéré comme une défaillance, l'objet TEvent libéré de façon imprévu alors que le thread fonctionne encore
Dans ton code, tu pourrais avoir une VA sur Evt.ResetEvent en cas de wrAbandoned donc utiliser la libération ainsi semble une source d'erreur.

Cela doit émettre un wrAbandoned lors du Free mais uniquement avec un TimeOut différent de INFINITE (je ne l'utilise jamais, car j'inclus souvent un Thread Keeper)

J'utilise parfois WaitForMultiple pour avoir plusieurs TEvent, celui du cycle par exemple pour le dépilement d'une FIFO et celui d'abandon, les deux déclenchés par SetEvent

Comme je fais des Thread explicite, je peux aussi surcharge le TerminatedSet, ainsi un wrSignaled + not Terminated = cycle et wrSignaled + Terminated = abandon
voir ce code qui illustre ce cas : https://www.developpez.net/forums/d1...t/#post9620723

Ce code pour un autre sujet devrait t'intéresser même si il est avec un thread explicite : https://www.developpez.net/forums/d2.../#post11863712


Si tu es en VCL : WAIT_ABANDONED - https://learn.microsoft.com/en-us/wi...orsingleobject

The specified object is a mutex object that was not released by the thread that owned the mutex object before the owning thread terminated. Ownership of the mutex object is granted to the calling thread and the mutex state is set to nonsignaled.
If the mutex was protecting persistent state information, you should check it for consistency.

If dwMilliseconds is INFINITE, the function will return only when the object is signaled.

Si tu es en FMX, il te faudra vérifier l'implémentation du TEvent selon l'OS cible pour voir si utilisé wrSignaled est pertinent, personnellement, je ne baserais pas mon développement sur cela en dehors d'une gestion de la défaillance (faudrait s'inquiéter de l'architecture du code si cela se produisait, je l'ai jamais vu en pratique après 20 ans de programmation multi-thread)

[Andnotor]

wrAbandoned ne peut jamais survenir sur un event puisque ça concerne spécifiquement les mutex (c'est bien spécifié dans l'extrait de ShaiLeTroll)

wrAbandoned survient lorsqu'un thread se termine sans avoir pour autant libéré le mutex qu'il avait acquis. Il faut considérer cet état comme instable puisqu'on ne peut être sûr que l'action ayant entraîné le verrouillage soit allé à son terme (et que la donnée protégée soit valide).

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
procedure TForm1.FormCreate(Sender: TObject);
begin
  Mutex := TMutex.Create(nil, false, '');
 
  TThread.CreateAnonymousThread(
    procedure
    begin
      // Verrouillage
      Mutex.Acquire;
 
      // Pour être sûr que le 2ème thread
      // est démarré et en attente
      Sleep(1000);
 
      // Se termine sans libération
    end).Start;
 
  TThread.CreateAnonymousThread(
    procedure
    begin
      case Mutex.WaitFor(INFINITE) of
        wrSignaled  : Codesite.Send('signalé');
        wrAbandoned : Codesite.Send('Abandonné');
      end;
    end).Start;
end;

[Papy214]

Je suis effectivement en VCL.

Le SetEvent, je l'utilise justement depuis un autre thread qui indique à celui-ci qu'il a une action à faire (j'ai simplifié le code mis ici).

Je pensais que le wrAbandoned pouvait être déclenché d'une façon ou d'une autre mais tu m'as détrompé.
Une variable au même niveau que la déclaration du TEvent pourrait faire l'affaire effectivement en lé gérant dans wrSignaled.
Je vais étudier les codes sources dans les liens que tu m'as indiqué.

Comme d'habitude, un grand merci pour ton aide.

[Papy214]

@Andnotor

Je n'avais pas de mutex là-dedans.
En fait, j'ai un thread qui fait des traitements sur des fichiers et le second avec le TEvent qui est déclenché quand un traitement secondaire est à faire sur chaque fichier traité. La synchro entre les 2 se fait bien (visuellement dans Codesite).
Mais je ne comprenais pas pourquoi je ne passais jamais dans le cas 'Terminé'.
Au vu des vos explications, je comprends mieux maintenant

[Andnotor]

Je n'avais pas de mutex là-dedans.

J'ai bien vu .