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

我正在使用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;

Andreas Haus.. 23

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

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

最简单,最快捷的方法是使用JCL异常和调试支持.安装JCL后,确保将调试符号插入二进制文件(项目 - > JCL调试专家 - >插入此二进制文件的JDBG数据 - >启用)并向项目添加JCL异常对话框(文件 - >新建.. . - >对话框 - >例外对话框).

如果JCL安装程序无法将该对话框添加到对象存储库并且它没有出现(发生在我身上几次),可以通过将.pas和.dpr文件复制jcl-install-dir\experts\debug\dialog到项目中并手动添加它们来手动添加它.或者关闭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=

主要相关:Delphi中的异常处理.