Discussion :

[davos56]

Bonjour!!
J'aurais besoin de conseil concernant la gestion des exceptions. Je souhaite integrer une unité dans mon projet qui sera une classe qui herite de EXCEPTION.

Je veux donc une classe qui va gere mes exceptions!! Ainsi lors de l'execution de mon programme, si une erreur ou une execption de n'importe quel type se declenche, je veux que ma classe exception soit declecnhé!

Apres quelques recherches, j'ai trouvé des informations sur : http://www.icla.be/french/article2.htm

J'ai donc repris ce systeme. Mais il ne fonctionne que partiellement. Ma classe d'exception se declenche bien mais ce n'est pas le bon message qui s'affiche

Voici mon code source :

Ma classe Exception:

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
29
30
31
32
33
34
35
36
37
38
39
40
 
unit UE00_Exception;
 
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
  ExceptionPgi = class(Exception)
 
 
  private
  LastExceptAddr : Pointer;  // Address of last exception
  Calls : String;            // Stack of called routines
 
  public
  procedure OnAppliException (Sender: TObject; E: Exception);
 
  end;
implementation
 
procedure ExceptionPgi.OnAppliException(Sender:TObject; E:Exception);
 var
 ErrorText : String;
begin
 try
   ErrorText:= 'Une erreur a été declenché!' + #13#10 + #13#10
     + ExtractFileName(Application.ExeName)+' '+DateTimeToStr(Now)+#13#10
     + 'Exception ' + E.ClassName + ' à l''adresse $'
     + IntToHex(Integer(ExceptAddr), 8) + #13#10 + #13#10
     + 'Arbre d''appels des routines:' + #13#10 + Calls;
 
   MessageDlg(ErrorText, mtError, [mbOK], 0);
   LastExceptAddr := Nil;
   Calls := '';
 Except
  MessageDlg('Erreur dans le gestionnaire d''exceptions.', mtError, [mbOk], 0);
 end;
end;
end.

Le probleme est que lorsque mon exception se declenche, c'est le message :
- Erreur dans le gestionnaire d''exceptions -
qui s'affiche!!

Si quelqu'un sait pourquoi je suis preneur!!!
Merci

[ShaiLeTroll]

Première Remarque pourquoi ExceptionPgi hérite de Exception ? ExceptionPgi n'est pas une Exception mais un Gestionnaire d'Exception, donc tu n'as déjà pas respecté l'exemple que tu as cité :

Code :

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

TAppliExceptionHandler = class(TComponent)

deplus comment as-tu rattaché ton OnAppliException à l'Event OnException de l'Application ? tu as instancié une exception ? ça me semble bien illogique tout cela ?

ensuite tu fais appels à Calls, mais il n'est pas censé contenir quelques chose puisque l'exception gérée c'est E ... en gros relit l'exemple, tu n'y as rien compris !