IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Delphi Discussion :

Gestion des exceptions


Sujet :

Delphi

  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Mars 2007
    Messages
    35
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2007
    Messages : 35
    Par défaut Gestion des exceptions
    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

  2. #2
    Expert éminent
    Avatar de ShaiLeTroll
    Homme Profil pro
    Développeur C++\Delphi
    Inscrit en
    Juillet 2006
    Messages
    14 041
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Développeur C++\Delphi
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2006
    Messages : 14 041
    Par défaut
    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 !
    Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
    Attention Troll Méchant !
    "Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
    Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
    L'ignorance n'excuse pas la médiocrité !

    L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
    Il faut avoir le courage de se tromper et d'apprendre de ses erreurs

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [ADOConnect] gestion des exception en tout temps
    Par portu dans le forum Bases de données
    Réponses: 1
    Dernier message: 20/04/2005, 19h01
  2. [ORACLE 9i] Gestion des exceptions
    Par sygale dans le forum SQL
    Réponses: 6
    Dernier message: 19/08/2004, 15h06
  3. Gestion des exception (EOleException)
    Par shurized dans le forum Bases de données
    Réponses: 5
    Dernier message: 30/06/2004, 17h25
  4. [XMLRAD] gestion des exceptions
    Par pram dans le forum XMLRAD
    Réponses: 2
    Dernier message: 28/01/2003, 17h48
  5. c: gestion des exceptions
    Par vince_lille dans le forum C
    Réponses: 7
    Dernier message: 05/06/2002, 14h11

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo