Discussion :

[cedricgirard]

Bonjour,

J'ai parfois dans un logiciel que je développpe des exceptions violation d'accès mémoire. Mon programme les récupère bien, les met dans le journal, gère ça proprement. Mon soucis est ces exceptions se produisent en production, dans un contexte plus complexe que les tests que j'arrive à faire, et que je ne sais pas comment remonter à la portion de code qui les provoque.
Une première solution est de mettre un max d'infos dans le journal pour essayer de faire un test plus complet, mais ça ne suffit pas à reproduire certains plantages.
La seconde, trouvée qq part, serait de réécrire complétement le gestionnaire d'erreur pour avoir par exemple la pile d'exécution, mais c'est assez complexe.
Donc si vous avez une troisième solution à me proposer?

Cordialement
Cédric

[cedricgirard]

Mon code est sous tests unitaires intensifs, ceci dit quelques cas ont pu m'échapper. Le logiciel en question tourne toute la journée actuellement, et a quelques plantages par semaine, plantages qui ne provoquent pas de perte de données d'ailleurs, mais une assez grosse perte de temps.
J'utilise des composants que je ne controle pas et qui ne sont pas testés unitairement, même s'ils sont testés via du code qui les utilisent.

[DMO]

Effectivement je crois que l'idéal serait que tu logues aussi la pile d'appel.
Cela la JCL te permet de le faire assez facilement. Si je me souviens bien c'est l'unité JclDebug (de mémoire, pas sur, faut chercher un peu). Regarde aussi du coté de Fichier > Nouveau... > onglet Dialogs > il y a là aussi une ExceptionDialog toute faite de la JCL que tu pourrais éventuellement utiliser.

Bien entendu il faudra alors coinstruire tes applications avec les infos de déboggage, sinon pas de pile d'appels. Mais bon le rapport service que ca rend / place que ca prend tend presque vers l'infini

Bon app'

[cedricgirard]

Ok je vais jeter un coup d'oeil sur la JCL, merci!

[Soulama]

Salut,
je viens de tester la soluce de DMO, en effet ca fonctione mais jai pas compris ce que veut dire :
Call Stack:
[0046D748]
[00403BDF]
[0046D803]
[0046D8B3]
[0043A5F0]
[0043D3A3]
[0043A228]
[0043D4DB]
[0043D3A3]
[0043D020]
[0041E5DC]
[0043D487]
[0043D3A3]
[0043D020]
[0041E5DC]
[00458BA3]
[0046DD93]

[Soulama]

jai oublié de montioner que le compo sappele:
TJvDebugHandler

[delphichem]

Salut
Les exceptions! quelle galère. Tout fonctionne sur notre machine, mais lors du déploiment...

J'ai lu cet article, il pourra t'orienter vers une solution qui te convient J'espère en tout cas.
http://delphi.about.com/od/toppicks/tp/aatpmemleak.htm

[DMO]

jai pas compris ce que veut dire: [0046D748] ...

Concernant l'utilisation de la JCL, une fois la StackList récupérée, il faut aller chercher les infos pour les loguer.

Pour cela, avec chaque élément de la StackList, il faut récupérer un TJclLocationInfo représentant la procédure ou la fonction. Et ensuite se servir de ces infos pour loguer.

Code :

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

1
2
3
var
  StackList: TJclStackInfoList;
  vInfo: TJclLocationInfo;

Ce code ne compilera pas car je log dans un XML et je ne vais pas coller tout les Data Binding, mais il montre comment je procède :

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
  StackList := JclLastExceptStackList;
  if Assigned(StackList) then
    for vIndice := 0 to StackList.Count-1 do
      if GetLocationInfo(StackList[vIndice].CallerAdr, vInfo) then
        with vLog.PileAppels.Add do
          begin
            Addresse := '$' + IntToHex(Cardinal(StackList[vIndice].CallerAdr), 8);
            NomUnite := vInfo.UnitName;
            FichierSource := vInfo.SourceName;
            Classe := Copy(vInfo.ProcedureName, 1, AnsiPos('.', vInfo.ProcedureName)-1);
            NomMethode := Copy(vInfo.ProcedureName, AnsiPos('.', vInfo.ProcedureName)+1, Length(vInfo.ProcedureName));
            OffsetNomMethode := '$' + IntToHex(vInfo.OffsetFromProcName, 2);
            OffsetNumeroLigne := vInfo.OffsetFromLineNumber;
            NumeroLigne := vInfo.LineNumber;
          end;

[Soulama]

le Code que tu a ecrit tu le met ou normalement
je veux dire:
si je fais un truc comme ca :
Try
except
// alor tu le met ici ou pas
end;

[DMO]

Non ne t'inquiète pas tu n'as heureusement bien pas à faire ca. Nous sommes ici dans le contexte d'une exception inattendue, non interceptée, qui "remonte" donc jusqu'au niveau de l'utilisateur (elle est affichée ou/et loguée).

Si on étudie l'unité générée lorsqu'on crée une TExceptionDialog de la JCL (Fichier > Nouveau > ...), il y a lors de l'initialisation :

Code :

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

Application.OnException := TExceptionDialog.ExceptionHandler;

Donc toute exception non interceptée arrivera dans ExceptionHandler, qui va afficher la form TExceptionDialog, qui elle affichera des infos de débuggage parmis lesquelles sont censées se trouver celles dont nous parlons.

[Soulama]

c bon, jai compris.
Merci