Discussion :

[petitcoucou31]

Bonjours a tous ,

Comme le dit le titre , je cherche a intercepter les messages d'erreur de delphi
durant l'excution du programme et les envoyer dans composant "texte".

Par exemple: lors d'une conversion d'une chaine en entier et que cela déclenche une erreur je veux intercepter le message, le stoker et qu'il ne s'affiche pas pour l'utilisateur.

merci a tous ..

[Aka Guymelef]

Tu dois tout simplement utiliser le mécanisme d'interception des exceptions, à savoir le fameux try... catch. Voir l'aide de Delphi pour plus de précisions sur la syntaxe exacte.

[diden138]

ben oui Delphi comme d'autre langages d'ailleurs propose ça et heureusement bon un petit exemple :

Code :

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

1
2
3
4
5
6
 
Try
   StrtoInt(Chaine);
Except
  ShowMessage('Erreur de convertion');
End;

sinon dans ton exemple tu peux travailler avec la fonction TryStrtoint(je crois j'ai pas delphi sous les mains) si c'est ok ben ok si c'est non tu affiche un message.
voila
Cordialement @+

[petitcoucou31]

Salut

Je suis complément d'accord pour les try ... et si le code était parfaitement fonctionnel tout irait bien, mais voila c'est pas le cas, je sais que ma démarche est plutôt triviale et que cela n'est qu'une solution provisoire en attendant de déterminer vraiment le problème.

En fait j'ai des messages d'erreur qui apparaissent , qui ne sont pas du tout systématique et donc que je n'arrive pas a reproduire pour les corriger.
De plus d'après l'utilisateur ces messages ne semblent pas influencer le fonctionnement du programme (oui je sais bizarre !!).

Donc je voudrais éviter que ces messages apparaissent à l'utilisateur dans un 1er temps ( dans un 2eme il faudra bien trouver une solution a ce problème).

Un autre exemple de message d'erreur :

Quand l'utilisateur clique sur un bouton pour ouvrir une autre fenêtre, j'ai un message m'indiquant qu'il est impossible d'ouvrir cette nouvelle fiche et quand il ferme la boite de message d'erreur la fenêtre s'ouvre et le programme continu a fonctionner normalement !! et ceci aléatoirement avec n'importe quelle nouvelle fenêtre et n'importe 2 fois par jour ou bien plus du tout pendant 1 mois.

bye

[papadrago]

Comme le dit le titre , je cherche a intercepter les messages d'erreur de delphi
durant l'excution du programme et les envoyer dans composant "texte".

Il suffit de poser un TApplicationEvents sur la forme et définir l'événement OnException. Pour ma part, je fais quelque chose comme ça :

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
 
procedure TfmMain.ApplicationEvents1Exception(Sender: TObject;
  E: Exception);
var
  s : string;
begin
  s := '-- ' + DateTimeToStr (Now)
             + CRLF + 'Version       = ' + AppVersion // à adapter
             + CRLF + 'Exception     = ' + E.ClassName
             + CRLF + 'Message       = ' + E.Message 
             + CRLF + 'Address       = $' + IntToHex (Integer(ExceptAddr), 8)
             + CRLF + 'ActiveForm    = ' + Screen.ActiveForm.Name
             + CRLF + 'ActiveControl = ' + Screen.ActiveControl.Name
             + CRLF + 'Code page     = ' + IntToStr (GetACP);
 
  Log (s) // qui append dans un fichier texte
end;

C'est tellement utile qu'il y a meme des composants payants (et bien plus complets) pour faire ça: voir madExcept.

[diden138]

Personnellement je ne vois pas du tout mais alors du tout à afficher des messages d'erreurs à l'utilisateur(l'utilisateur n'a pas besoin de voir tel ou tel erreur il n'en a rien à cirer ,l'application doit marcher point) plutôt qu'à les résoudre .
à mon avis le Try Finally Except suffit généralement, on va pas utiliser Tapplicationevents juste pour traiter un cas d'erreur de conversion comme même .

En fait j'ai des messages d'erreur qui apparaissent , qui ne sont pas du tout systématique et donc que je n'arrive pas a reproduire pour les corriger.
De plus d'après l'utilisateur ces messages ne semblent pas influencer le fonctionnement du programme (oui je sais bizarre !!).

ah pour cela il nous faut un peu de code pour voir un peu ce qu'il y a
Cordialement @+

[Jipété]

Quand l'utilisateur clique sur un bouton pour ouvrir une autre fenêtre, j'ai un message m'indiquant qu'il est impossible d'ouvrir cette nouvelle fiche et quand il ferme la boite de message d'erreur la fenêtre s'ouvre et le programme continu a fonctionner normalement !! et ceci aléatoirement avec n'importe quelle nouvelle fenêtre et n'importe 2 fois par jour ou bien plus du tout pendant 1 mois.

Il y a donc bien quelque part dans le code un truc qui fait que selon l'enchainement des opérations menées par l'utilisateur, une fenêtre qui devrait apparaitre ne le fait pas.
Code du bouton, siouplait...
Masquer l'erreur est stupide puisque ne règle pas le problème.
Mes 2 cts,
--
jp

[petitcoucou31]

Re ..

Il y a donc bien quelque part dans le code un truc qui fait que selon l'enchainement des opérations menées par l'utilisateur, une fenêtre qui devrait apparaitre ne le fait pas.

Entièrement d'accord avec toi Jipété ( surtout que mon idée " stupide "arrange rien du tout) mais si ce client ne voyait plus ce message çà serait pas plus mal .

Je suis arrive au même conclusions que toi pour les enchainements d'actions, j'ai donc demander a ce client d'essayer de les communiquer afin de faire les mêmes
et en vain aussi ! ai je les bon enchainements.!!

Il me dit aussi que çà semble arriver plus souvent quand il se déplace vite dans le programme " ouverture d'une fenêtre fermeture de cette fenêtre , réouverture d'une autre fenêtre..et ainsi de suite "

autre cas peut être lié !
Il arrive plus rarement que le programme plante carrément avec un message " ne peux pas dessiner sur le canvas ".

je vous montre comment sont fait mes appels à mes forms au cas ou ! elle sont toutes faites sur la même base.

code d'appel à une form qui se trouve dans des DLL

Code :

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

1
2
3
4
5
6
7
 
//------------------------------------------------------------------------------
procedure TFPhoenix.BtTarage(Sender: TObject);
begin      
       Exlancetare(' ','R',PtmaxMultiplexeur,EtatRack,EtatRack1,etatTare);
end;
//------------------------------------------------------------------------------

code de création de mes forms, je teste si la fenêtre n'existe pas avant de la créer au cas ou !!

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
 
//-----------------------------------------------------------------------------
function ExLanceTare(NomProg:Pchar;typeTarage:Pchar;NbpointMax:integer;MemoEtatRack:byte;Var MemoEtatRack1:byte;Var EtatTarage:boolean):integer;stdcall;
begin
    result:=0;
    EtatRack:=MemoEtatRack;
    Tarage:=typeTarage;
 
    if assigned(Ftare) then
    begin
          Ftare.Release;
          Ftare:=nil;
    end;
 
    Ftare:=TFtare.create(application);
    try
        NombreDepointMux:=NbpointMax;
        Nomprogramme:=NomProg;
        FTare.Showmodal;
     finally
          Ftare.Release;
          Ftare:=nil;
     end;
     Exresetmux(StymuliActif);
     MemoEtatRack1:=EtatRack1;
     EtatTarage:=etatTare;
     result:=0;   
end;
//------------------------------------------------------------------------------

[Aka Guymelef]

Euh je ne suis pas sûr mais je crois qu'après un ShowModal, la fiche est détruite aussi l'appel à un Release juste derrière me semble problématique...

[diden138]

remplace vite fait ton release avec un Free
cordialement @+

[Linkin]

Hum ... pour les form, il me semble qu'il est conseillé d'utiliser le Release plutôt qu'un Free, non?

[diden138]

ben le release attend que tous les composants ont fini leurs tâches pour détruire la fiche quand à free il appel directement le destructeur destroy.
cordialement @+

[Aka Guymelef]

Néanmoins je persistes à dire qu'après l'appel au ShowModal de sa fiche FTare, cette dernière est déjà détruite à ce moment là. Donc c'est l'appel au Release qui suit dans le finally qui provoque les violations d'accès puisque la fiche est déjà détruite à ce moment là.

[Cl@udius]

Salut

Néanmoins je persistes à dire qu'après l'appel au ShowModal de sa fiche FTare, cette dernière est déjà détruite à ce moment là. Donc c'est l'appel au Release qui suit dans le finally qui provoque les violations d'accès puisque la fiche est déjà détruite à ce moment là.

Je ne suis pas d'accord, désolé.
Au retour du ShowModal la fiche appelée est toujours belle et bien existante.

Donc le Release à toute sa place.

@+ Claudius

[Linkin]

Elle n'est pas détuite mais non-visible après un ShowModal.

[Aka Guymelef]

Bon ok admettons mais cela ne résout pas le problème alors.

Du coup est-ce que ça ne serait pas l'appel d'un ShowModal d'une fiche à l'intérieur d'une DLL qui pose problème ? Peut-être que l'appel à un ShowModal n'est pas soumis aux conditions normales et que le fait de se trouver dans une DLL perturbe le fonctionnement, qu'en pensez-vous ?

Aussi dans ta méthode, tu fais appel à une autre "Exresetmux", on pourrait voir ce qu'il s'y passe également ?

[Cl@udius]

Bon ok admettons mais cela ne résout pas le problème alors.

En effet.

Du coup est-ce que ça ne serait pas l'appel d'un ShowModal d'une fiche à l'intérieur d'une DLL qui pose problème ?

Pour ma part lorsque j'utilise une fiche contenue dans une DLL, je transmet à la DLL, lors de l'appel de cette fiche, le Handle de l'application hôte. Ce qui donne globalement ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
function AfficheDialogue(const AppHandle: HWND): Integer;
begin
  Application.Handle := AppHandle;
 
  with TFormDialog.Create(nil) do
  begin
    try
      Result := ShowModal;
    finally
      Release;
    end;
  end;
end;

Ceci afin d'éviter qu'apparaisse un 2° bouton dans la barre de tâches.

Aussi dans ta méthode, tu fais appel à une autre "Exresetmux", on pourrait voir ce qu'il s'y passe également ?

+1

@+ Claudius

[petitcoucou31]

re a tous ,

Pour répondre a Aka Guymelef , le "ExresetMux" est une fonction qui se trouve dans une autre dll .

J'ai environ une 40 éne de DLL et toutes sont gérées de manière identique et certaine encore plus simplement comme si dessous .. donc les instructions supplémentaires ne semblent pas êtres en cause.

En fait des l'ouverture je teste que la fenêtre n'existe pas avant avec de l'ouvrir,et le cas échéant je la détruis avant de la créer !.. justement pour essayer de corriger mon problème.

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
 
//-----------------------------------------------------------------------------
function ExExemple:integer;stdcall;
begin
    if assigned(Ftoto) then
    begin
          Ftoto.Release;
          Ftoto:=nil;
    end;
 
    Ftoto:=Ttoto.create(application);
    try
        Ftoto.Showmodal;
    finally
         Ftoto.Release;
         Ftoto:=nil;
    end;
    result:=0;   
end;

Par contre ce client me disait que cela semblait survenir lorsqu'il ouvrait bcp de fenêtres consécutivement, peut être que je sature la mémoire ?? y a t il un moyen de contrôler cela ?
l'utilisation des mes "release" sont justement là pour détruire mes "forms' de mes DLL et donc bien libérer la mémoire.

bye.