Question

我正在使用Delphi TApplication.OnException事件来捕获未处理的异常

这很有效，但没有提供有关异常发生位置的充分信息即'灾难性失败'

如何找出导致错误发生的程序？

procedure TFrmMain.FormCreate(Sender: TObject);
begin
  Application.OnException := MyExceptionHandler;
end;

procedure TFrmMain.MyExceptionHandler(Sender : TObject; E : Exception );
begin
  LogException (E.Message);     
  Application.ShowException( E );
end;

Answer 1

您可以使用ExceptAddr变量（系统单元）获取引发异常的内存地址。但是如果你想要一个堆栈跟踪，你可以使用第三方工具MadExcept，EurekaLog或开源JCLDebug（JCL的一部分）。

Answer 2

最简单，最快捷的方法是使用JCL异常和调试支持。安装JCL后，确保将调试符号插入二进制文件（Projects - ＆gt; JCL调试专家 - ＆gt;插入此二进制文件的JDBG数据 - ＆gt;已启用）并向项目添加JCL异常对话框（文件 - ＆gt ;新... - ＆gt;对话框 - ＆gt;异常对话框）。

如果JCL安装程序无法将该对话框添加到对象存储库并且它没有出现（发生在我身上几次），请通过从jcl-install-dir\experts\debug\dialog复制.pas和.dpr文件手动添加它。进入你的项目并手动添加它们，或者关闭Delphi，在文本编辑器中编辑%DELHPIDIR%\bin\delphi32.dro并添加这样的东西（当然要调整路径:)。

[P:\DELPHI11\EXTERNALLIB\JCL\EXPERTS\DEBUG\DIALOG\EXCEPTDLG]
Type=FormTemplate
Name=Exception Dialog
Page=Dialogs
Icon=P:\DELPHI11\EXTERNALLIB\JCL\EXPERTS\DEBUG\DIALOG\EXCEPTDLG.ICO
Description=JCL Application exception dialog
Author=Project JEDI
DefaultMainForm=0
DefaultNewForm=0
Ancestor=

[P:\DELPHI11\EXTERNALLIB\JCL\EXPERTS\DEBUG\DIALOG\EXCEPTDLGMAIL]
Type=FormTemplate
Name=Exception Dialog with Send
Page=Dialogs
Icon=P:\DELPHI11\EXTERNALLIB\JCL\EXPERTS\DEBUG\DIALOG\EXCEPTDLGMAIL.ICO
Description=JCL Application exception dialog
Author=Project JEDI
DefaultMainForm=0
DefaultNewForm=0
Ancestor=

Answer 3

主要相关：Exception Handling in Delphi。

如何找出在Delphi中抛出异常的过程？

3 个答案: