Discussion :

[heid]

Bonjour ,
situation
je crée un service qui doit être assez bavard au niveau des logs.
Aussi, je voudrais pouvoir écrire dans les logs le message d'erreur renvoyé par le système en cas de levée d'exeption.
J'ai donc utilisé ce code et, pour tester, demandé l'édition d'une requête non ouverte (j'ai aussi testé avec un strtoint('jojo') ).

Code :

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

1
2
3
4
5
6
7
8
9
10
 
try
// ouverture table pile pour voir si travail a faire
   ado1.SQL.Text:='select * from pile where Tache=''QwickMatch''';  
   ado1.edit; // erreur évidente
   ado1.close;
 
except
  EcrireLogBase('Erreur dans le traitement : '+ SysErrorMessage(getlasterror));
end;

Problème
Le résultat dans les log est ironico-paradoxal :

Erreur dans le traitement : Opération réussie

Question
Comment faire pour que le message d'erreur soit en rapport avec mon erreur et non a chaque fois : opération réussie.
Merci d'avance.



Delphi7 pro
win 2000 Serveur

[Benjamin GAGNEUX]

Salut,

Pour que le message d'erreur soit en rapport avec l'erreur, tu peux faire comme cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
try 
// ouverture table pile pour voir si travail a faire 
   ado1.SQL.Text:='select * from pile where Tache=''QwickMatch''';  
   ado1.edit; // erreur évidente 
   ado1.close; 
 
except 
  on E:Exception do begin
    EcrireLogBase('Erreur dans le traitement : '+ E.ClassName +'->'+E.message);
  end;
end;

Voila,
A+

[Edit] Si tu utilise le moteur JET, tu peux récupérer les code d'erreur avec :

Code :

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

1
2
3
4
for Index := 0 to Connection1.Errors.Count-1 do begin
  Err := IntToStr(Connection1.Errors[Index].SQLState);
....
end;

[heid]

Merci de ton, aide.

an exception handler can specify an identifier before the name of the exception class. This declares the identifier to represent the exception object during execution of the statement that follows on...do. The scope of the identifier is limited to that statement. For example,

try
...
except
on E: Exception do ErrorDialog(E.Message, E.HelpContext);
end;

C'étati dans l'aide delphi, honte sur moi