Application en mode silence

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

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

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:

---

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).

Merci sjrd pour ce début de piste.


Wilco

bonjour

regarde du côté de TApplication.OnException

Citation:

---

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:

---

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

Citation:

---

Envoyé par banban54

Code:

---

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.

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

merci

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...