Intercepter les messages d'erreur delphi (exceptions EIBInterbaseError)

Quelqu'un aurait-il un exemple d'un try except ou on intercepte des erreurs delphi concernant EIBInterbaseError de façon spécifique??

Par exemple, comment intercepter une violation de clé? un champ not null vide? une erreur de type?

PS : J'ai fait des recherches sur le internet mais je n'ai trouvé que la façon général d'intercepter ces erreurs. :?

:f1:

Code:

---

1 2 3 4 5 6 7 8 9 10

try .... except on E: EIBInterbaseError do begin case E.IBErrorCode of ... Valeur à trouver par tatonnement en déclenchant les exceptions que l'on connait (c'est parfois moins long que chercher une doc introuvable) end; end; end;

---

c'est ça que j'appelle façon généralisée! comme ça j'affiche le même message pour toutes les erreur EIBInterbaseError!! Ce que je voudrait c'est afficher pour chaque type d'erreur un message spécifique!

D'aprés,

Citation:

---

Envoyé par ShaiLeTroll

Code:

---

1 2 3 4 5 6 7 8 9 10

try .... except on E: EIBInterbaseError do begin case E.IBErrorCode of ... Valeur à trouver par tatonnement en déclenchant les exceptions que l'on connait (c'est parfois moins long que chercher une doc introuvable) end; end; end;

---

---

Et que :

Citation:

---

Envoyé par badilou

c'est ça que j'appelle façon généralisée! comme ça j'affiche le même message pour toutes les erreur EIBInterbaseError!! Ce que je voudrait c'est afficher pour chaque type d'erreur un message spécifique!

---

Donc, il ne te rest que de contiuner le code proposé par ShaiLeTroll

Code:

---

1 2 3 4 5 6 7 8 9 10

try ... except on EZeroDivide do ShowMessage('erreur1'); on EOverflow do ShowMessage('erreur2'); on EMathError do ShowMessage('erreur3'); else ShowMessage('Autres..'); end ;

---

:f1:

justement, l'utilisation de ces codes, c'est ce que je cherche.. par exemple pour la violation de clé? violation d'une contraine de champ unique? d'un champ not null...

Il faut tester IBErrorCode, lit bien mon code !
une fois l'exception EIBInterbaseError catché, il faut remplir un case

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

try .... except on E: EIBInterbaseError do begin case E.IBErrorCode of 1: //violation de clé; 2: //violation d'une contraine de champ unique; 3: //champ not null... end; end; end;

---

à toi de trouver les valeurs, 1, 2 et 3 ce qui ne devrait pas être difficile en les provoquant volontairement et en affichant la valeur

Code:

---

1 2 3 4 5 6 7 8

try // Code qui fera Exception je le sais ! except on E: EIBInterbaseError do begin ShowMessage(Format('IBErrorCode : %d, SQLCode : %d', [E.IBErrorCode, E.SQLCode])); end; end;

---

Après ce que tu en fais, là, ... personnellement, je n'ai jamais d'erreur de ce style, je suis en MySQL 4 au bureau, et à par l'AutoInc, et bien on fait toute la partie relation à la main soit comme des porcs (95% des applis) soit via une couche objet bien tarée de ma conception (5% des applis), et puis l'on Insert uniquement via SQL donc on a une erreur SQL pure qui débarque, et ce n'est en général que la syntaxe qui est ratée durant la phase de débug

oups!! ou avais-je la tête!! c'est vrai que c'est ce que t'avais dit! sorry!! et merci beaucoup!!