delphi - 在 Delphi XE 中使用 JCL 没有堆栈跟踪

Question

我们有一个项目，已从 Delphi 2007 转换为 Delphi XE。在 2007 版本中，我们使用 JCL 的调试功能在出现异常时进行堆栈跟踪。事实上，我们使用了 JCL 的标准 ExceptionDlg 向导，它依赖于以下行来获取堆栈跟踪:

StackList := JclLastExceptStackList;

这个东西曾经在 Delphi 2007 中工作，但在 XE 中不再工作(它抛出一个'空白'堆栈)。

如果我们用经典替换那个东西

   StackList := JclCreateStackList(false,0,Caller(0,false));
   lTemp := TStringList.Create;
   StackList.AddToStrings(lTemp,true,true,true,true);
   ShowMessage(lTemp.Text);
   lTemp.Free;
   Stacklist.Free;

...它可以工作(因此我们对 map 等有正确的设置)，但是(不幸的是)它显示了当前堆栈跟踪(当然，这会导致异常对话框)并且不到最后异常的堆栈跟踪。

有什么想法可以解决这个问题吗？

TIA

Answer 1

您调用了JclStartExceptionTracking吗？

看来这个方法首先负责连接异常并添加通知程序。

function JclStartExceptionTracking: Boolean;
begin
  if TrackingActive then
    Result := False
  else
  begin
    Result := JclHookExceptions and JclAddExceptNotifier(DoExceptNotify, npFirstChain);
    TrackingActive := Result;
  end;
end;