Discussion :

[Wilco]

Bonjour à tous,

En delphi7, peut on faire en sorte qu'une application ne renvoie jamais de messages d'erreurs (mode silence) ?

J'ai développé une application qui affiche une liste d'informations issue d'une base de données sous mySQL. Elle tourne sur un écran de diffusion sur lequel je n'ai ni clavier ni souris.

Si pour une raison ou pour une autre (redémarrage du serveur, déconnexion temporaire du réseau, etc) l'application rencontre une anomalie un message s'affiche à l'écran, ce qui m'oblige à prendre son contrôle à distance et de cliquer sur les différents messages qui se sont affichés. Je souhaite éviter cela.

Si quelqu'un a une idée, merci d'avance.
Wilco



je souhaiterai que l'application n'affiche pas

[sjrd]

Dans Application.OnError (ou qqch du genre), tu empêches tout affichage

[pinson]

Autre moyen, tu captes l'ensemble des exceptions (try except end) et ensuite tu les renvoies dans un fichier au lieu qu'elles partent à l'écran. Un conseil (si je peux t'en donner un) serait de garder tout de même l'ensemble des messages car si tu as un problème un jour, au moins tu auras quelques traces.

ça peut faire un truc du style :

Code :

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

1
2
3
4
5
6
7
8
 
try
  //ton code
  //...
except
  on E : exception do //pour toutes les exceptions
    EcrireFichier(E.Message);
end;

Soit tu répètes cela dans chacune de tes fonctions (lourd), soit tu ne le mets que dans les procédures et fonctions premières, soit tu vois pour mettre cela dans le dpr, autour du Application.Run (je pense que ça fonctionne, pas tester).

[Wilco]

Merci sjrd pour ce début de piste.


Wilco

[banban54]

bonjour

regarde du côté de TApplication.OnException

Description (aide delphi)

L'événement OnException permet de modifier le comportement par défaut ayant lieu quand une exception non gérée a lieu dans l'application. Le gestionnaire d'événement OnException est appelé automatiquement par la méthode HandleException.

OnException ne gère que les exceptions se produisant durant le traitement des messages. Les exceptions ayant lieu avant ou après Application.Run ne génèrent pas d'événements OnException.

Si une exception se produit dans les blocs try du code de l'application, l'application appelle automatiquement la méthode HandleException. HandleException appelle le gestionnaire OnException, s'il est défini (sauf si l'objet exception est EAbort). S'il n'y a pas de gestionnaire, elle appelle ShowException pour afficher une boîte de dialogue indiquant qu'une erreur a eu lieu.

donc:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := AppException;
 
end;
 
procedure TForm1.AppException(Sender: TObject; E: Exception);
 
begin    // by pinson
  on E : exception do //pour toutes les exceptions 
    EcrireFichier(E.Message);
end;

à plus

[Laurent Dardenne]

Code :

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

1
2
3
4
5
6
7
8
 
 
procedure TForm1.AppException(Sender: TObject; E: Exception);
 
begin    // by pinson
  on E : exception do //pour toutes les exceptions 
    EcrireFichier(E.Message);
end;

Pensez à ajouter, dans le fichier de log, la classe de l'exception ça peut tjrs servir lors du debug.
Tu as aussi les outils MadExcept qui peuvent être utiles.

[banban54]

re
@Laurent Dardenne
Comment ajouter la classe, et éventuellement le nom de l'objet à l'origine de l'exception?

merci

[tourlourou]

E.ClassName ?

sinon, l'objet générateur ne doit pas pouvoir être identifié, s'il ne déclenche pas d'exception spécifique ou de message particulier...