随时从EurekaLog获取调用堆栈

Question

关于获取异常处理的调用堆栈有很多帖子，我们有EurekaLog来处理它，但我真的希望能够在运行时的任何时候获得堆栈，就像你在集成开发环境中放置断点一样。

遗留代码中的某个事件导致函数执行一些它不应该做的事情。虽然我们可以从调试输出中看到函数的名称，但如果没有堆栈跟踪，我们就无法知道实际调用它的是什么。这不是一个异常，我们不想在该函数中引发异常，这样EurekaLog就可以触发。

有没有办法在没有任何异常的情况下获得调用栈？

Answer 1

您不需要引发异常来获取堆栈跟踪。调用EurekaLog的GetTracer()函数来获取TEurekaBaseStackList对象，然后调用其Build()方法来获取堆栈跟踪。以下是EurekaLog文档中提供的示例：

var
  CallStack: TEurekaBaseStackList;
begin
  CallStack := GetTracer(TracerWindows);
  try
    // Build current call stack including current execution point
    CallStack.Build(CallStack.GetCurrentInstruction);
    // ... use CallStack somehow
  finally
    FreeAndNil(CallStack);
  end;
end;

Answer 2

从help：从ECallStack单元使用GetCurrentCallStack函数：

uses
  ECallStack; // for TEurekaBaseStackList and GetCurrentCallStack

procedure TForm1.Button1Click(Sender: TObject);
var
  CallStack: TEurekaBaseStackList;
begin
  CallStack := GetCurrentCallStack;
  // You can also use other functions from ECallStack unit
  try
    Memo1.Lines.Assign(CallStack);
    // You can also use: 
    // CallStack.ToString - to convert call stack to String
    // CallStackToString(s) routines to customize textual formatting
  finally
    FreeAndNil(CallStack);
  end;
end;

附注:您可能还想考虑使用EurekaLog's logging routines。