Afficher la pile des appels dans une application Delphi Win32

J'aimerais afficher une trace de la pile dans un dialogue d'erreur dans Delphi 2007 (Win32).

Idéalement, j'aimerais quelque chose comme ceci:

try
  //do something
except on e : exception do
  begin
    //rollback a transaction or whatever i need to do here       
    MessageDlg('An error has occurred!' + #13#10 +
                e.Message + #13#10 +
               'Here is the stack trace:' + #13#10 +
               e.StackTrace,mtError,[mbOK],0);
  end;  //except
end;  /try-except

Et pour la sortie à l'instar de la Pile d'Appel dans l'IDE:

MYPROGRAM.SomeFunction
MYPROGRAM.SomeProcedure
MYPROGRAM.MYPROGRAM
:7c817067 kernel32.RegisterWaitForInputIdle + 0x49

source d'informationauteur JosephStyons

  1. 23

    madExcept a une méthode StackTrace (dans l'unité madStackTrace) qui le fait.

    JEDI Bibliothèque de Code offre des fonctionnalités similaires dans l'unité JclDebug.

  2. 8

    Nous utilisons Exceptionnel De La Magie et cela fonctionne vraiment bien pour nous. Avec elle, vous pouvez faire quelque chose comme ceci:

    try
    raise Exception.Create('Something bad happened...');
except
    on e: Exception do begin
        CallStack := TStringList.Create;
        try
            ExceptionHook.LogException; // Logs call stack
            ExceptionHook.CallStack.Dump(CallStack);
            ShowMessage(CallStack.Text);
        finally
            CallStack.Free;
            end;
        end;
    end;

    Cela donne une assez détaillée de la pile des appels:

    Exception 'Exception' in module BOAppTemplate.exe at 003F3C36
Something bad happened...

Module: BOAppUnit, Source: BOAppUnit.pas, Line 66
Procedure: MyProcedure

Call stack:
:007F4C36 [BOAppTemplate.exe] MyProcedure (BOAppUnit.pas, line 66)
:7C812AFB [kernel32.dll]
:007F4C36 [BOAppTemplate.exe] MyProcedure (BOAppUnit.pas, line 66)
:00404DF4 [BOAppTemplate.exe] System::__linkproc__ AfterConstruction
Recursive call (2 times):
:007F4C36 [BOAppTemplate.exe] MyProcedure (BOAppUnit.pas, line 66)
:007F4CE6 [BOAppTemplate.exe] MyProcedure (BOAppUnit.pas, line 79)
:007F4D22 [BOAppTemplate.exe] Boappunit::TBOAppForm::Button1Click (BOAppUnit.pas, line 82)
:004604C2 [BOAppTemplate.exe] Controls::TControl::Click
:004487FB [BOAppTemplate.exe] Stdctrls::TButton::Click
:004488F9 [BOAppTemplate.exe] Stdctrls::TButton::CNCommand
:0045FFBA [BOAppTemplate.exe] Controls::TControl::WndProc

    Exceptionnel de la Magie est seulement 25 $sans la source, de sorte qu'il est relativement bon marché. Espérons que ça aide!

  3. 4

    Vous pourriez être intéressé par cet article: "Nouvelle classe d'Exception dans Delphi 2009 et au-dessus".