delphi - 在 Delphi 中如何找出哪个过程引发了异常？

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变量(系统单元)获取抛出异常的内存地址。但如果您想要堆栈跟踪，您可以使用 3rdParty 工具 MadExcept、EurekaLog 或开源 JCLDebug(JCL 的一部分)之一。