在Delphi Win32应用程序中显示调用堆栈

发布时间：2020-12-15 10:13:35 所属栏目：大数据来源：网络整理

导读：我想在Delphi 2007(Win32)的错误对话框中显示堆栈跟踪。理想情况下，我会喜欢这样的： try //do somethingexcept on e : exception do begin //rollback a transaction or whatever i need to do here MessageDlg('An error has occurred!' + #13#10 + e.Me

我想在Delphi 2007(Win32)的错误对话框中显示堆栈跟踪。

理想情况下，我会喜欢这样的：

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

并且输出像IDE中的Call Stack一样：

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

解决方法

madExcept有一个StackTrace(以madStackTrace为单位)的方法。

JEDI Code Library在单元JclDebug中提供了类似的功能。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!