Question

我试图弄清楚如何在Delphi中抛出异常后获取堆栈跟踪。但是，当我尝试使用下面的函数在Application.OnException事件中读取堆栈时，堆栈似乎已经被刷新并被抛出过程替换。

function GetStackReport: AnsiString;
var
    retaddr, walker: ^pointer;
begin

    // ...

    // History of stack, ignore esp frame
    asm
        mov walker, ebp
    end;

    // assume return address is present above ebp
    while Cardinal(walker^) <> 0 do begin
        retaddr := walker;
        Inc(retaddr);
        result := result + AddressInfo(Cardinal(retaddr^));
        walker := walker^;
    end;
end;

这是我得到的结果：

001A63E3: TApplication.HandleException (Forms)
00129072: StdWndProc (Classes)
001A60B0: TApplication.ProcessMessage (Forms)

这显然不是我想要的，虽然它是正确的。我想在抛出异常之前检索堆栈，或者换句话说，之前（之后也会）OnException调用的内容。

有没有办法做到这一点？

我知道我正在重新发明轮子，因为在madExcept / Eurekalog / jclDebug上的人已经这样做了，但我想知道它是如何完成的。

Answer 1

无法从OnException事件内部手动获取可行的堆栈跟踪。正如您已经注意到的那样，错误发生时的堆栈在触发事件时已经消失。您要查找的内容需要在引发异常时获取堆栈跟踪。第三方异常记录器，如MadExcept，EurekaLog等，通过挂钩RTL本身内部的关键函数和核心异常处理程序来处理这些细节。

在最近的Delphi版本中，SysUtils.Exception类现在具有公共StackTrace和StackInfo属性，这在OnException事件中非常有用，除了Embarcadero这个事实已选择不以原因未知原因实现这些属性。它需要第三方异常记录器将处理程序分配给Exception类公开的各种回调，以生成属性的堆栈跟踪数据。但是，如果您安装了JclDebug，那么您可以在自己的代码中提供自己的回调处理程序，这些处理程序使用JCL的堆栈跟踪函数来生成属性的堆栈数据。

Answer 2

我想在之前检索堆栈异常被抛出，换句话说就是之前的内容（之后也会）OnException调用。

实际上，在OnException调用之前，您不需要堆栈。这就是你已经拥有的。您希望堆栈位于引发异常的位置。这需要在加注后尽快发生堆栈跟踪。在OnException调用中为时已晚，因为异常一直传播到顶级处理程序。

madExcept通过挂钩处理异常的所有RTL函数来工作。它挂钩了最低级别的功能。这需要一些认真的努力才能实现。通过这些例程挂钩，代码可以捕获堆栈跟踪等。请注意，挂钩是特定于版本的，需要对RTL进行逆向工程。

堆栈行走比基本代码更先进。我并不是说这是一种贬义的方式，只是在x86上行走的堆栈是一项棘手的业务，并且madExcept代码得到了很好的磨练。

这是基本的想法。如果您想了解更多信息，可以免费获取JclDebug的源代码。或者购买madExcept并获取其来源。

Delphi在异常后获取堆栈跟踪

2 个答案: