Discussion :

[djiga4me]

Bonjour,
J'utilise trois threads qui font (certains seulement) appels à des variables globales (unité parente), mais un seul s'arrête prématurément (vérifié grâce à la propriété "finished"), alors que j'utilise des TCriticalSection pour tous les trois (et les appele avec Synchronize ), et celà après un certain flux intensif !!

Une idée ?? !!

[Andnotor]

Tu as une exception qui survient dans ton thread. C'est la seule chose qui pourrait te faire sortir de la boucle Execute. (Si il y a un While not Terminated)

[djiga4me]

Je pense que oui;
Mais alors comment ça se fait que je ne reçois pas de message d'erreur !
Et comment je pourrais débugger ça convenablement et efficament ?!!
Merci.

[Andnotor]

Parce que l'exception est propre au thread secondaire et que le thread principal n'en a pas connaissance. TApplication (tournant dans le thread principal) ne peut donc rien afficher .

Il y a deux parades possibles:

Utiliser directement l'API MessageBox dans le thread:

Code :

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

1
2
3
4
5
6
7
8
9
procedure TMyThread.Execute;
begin
  try
    Raise Exception.Create('Oups... Erreur');
  except
    on E:Exception do
      MessageBox(0, PChar(E.Message), nil, MB_OK or MB_ICONERROR);
  end;
end;

ou faire afficher l'exception par un appel synchronisé au thread principal:

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
type
  TMyThread = class(TThread)
  private
    FException :Exception;
  protected
    procedure ShowException;
    procedure Execute; override;
  end;
 
implementation
 
procedure TMyThread.Execute;
begin
  try
    Raise Exception.Create('Oups... Erreur');
  except
    FException := Exception(ExceptObject);
    Synchronize(ShowException);
  end;
end;
 
procedure TMyThread.ShowException;
begin
  Application.ShowException(FException);
end;

On pourrait aussi définir une fois pour toute une fonction générique qui prenne également en compte EAbort:

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
  TMyThread = class(TThread)
  protected
    procedure ShowException; virtual;
    procedure Execute; override;
  end;
 
implementation
 
procedure TMyThread.Execute;
begin
  try
    Raise Exception.Create('Oups... Erreur');
  except
    ShowException;
  end;
end;
 
procedure TMyThread.ShowException;
var
  E :Exception;
begin
  E := Exception(ExceptObject);
 
  if not (E is EAbort) then
    MessageBox(0, PChar(E.Message), nil, MB_OK or MB_ICONERROR);
end;

[evarisnea]

une autre astuce consiste à tester la propriété FatalException dans un gestionnaire pour l'évènement OnTerminate du Thread.

Si la méthode Execute provoque une exception qui n'est pas capturée ni gérée à l'intérieur de cette méthode, le thread se termine et définit FatalException par l'objet exception de cette exception. Les applications peuvent tester FatalException depuis un gestionnaire d'événement OnTerminate pour déterminer si l'achèvement du thread est due à une exception.

[djiga4me]

Bonjour,
En effet, c'était une exception qui se produisait.
Et maintenant que j'ai localisé l'erreur, le problème est réglé.

Merci beaucoup pour votre aide.