如何找出哪个程序在Delphi中抛出异常？

Question

我使用德尔福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变量（系统单位）。但是如果你想要一个堆栈跟踪，你可以使用3rdParty工具MadExcept，EurekaLog或开源JCLDebug（JCL的一部分）之一。

Answer 2

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

如果JCL安装程序无法将该对话框添加到对象存储库并且没有出现（发生在我身上几次），可以通过将.pas和.dpr文件从jcl-install-dir\experts\debug\dialog复制到您的项目中手动添加它与手动添加或接近德尔福，在文本编辑器中编辑%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。