如何使用包含的CodeSite Express在Delphi 5中获得堆栈跟踪？

Question

是否可以在运行时从包含的CodeSite快递中获得异常的堆栈跟踪？如果是的话，是否有人有这样做的经验或例子？

如果做不到这一点，有什么方法可以通过开源库来实现这一点呢？

我将日志记录引入到一个10+的已有多年历史的Delphi应用程序中，因此仍有相当一部分应用程序没有日志记录。因此，对于尚未重写的区域，我有一个Application.OnException钩子。有一个有意义的堆栈跟踪我们在生产中得到的零星访问违规将是非常有用的。下面是我已经拥有的内容，我很失望地发现StackTrace属性是空的。

class procedure Log.Error(const err: Exception; const method: string);
begin
   FileLog(err, method);
end;

class procedure Log.FileLog(const err: Exception; const method: string);
var
_msg: TStringList;
begin
   //_msg := Format('%s Failed:%3:s%1:s%3:s %2:s%3:s', [PreparedEntry(method), err.Message, err.StackTrace, sLineBreak]);
   _msg := PreparedEntry( Format('%s Failed:', [method]));
   _msg.Add(err.Message);
   _msg.Add(err.StackTrace);
  WriteLog(_msg, _logFileName);
end;

我们正处于从delphi win32应用程序迁移到多层.net wcf服务器应用程序的高级阶段，该服务器应用程序仍在为delphi客户端应用程序提供服务。这种情况的长短在于，在说服管理层购买Delphi (仅仅是为了获得改进的json支持和live )之后，再次请求delphi是非常困难的。

谢谢

Answer 1

绝地代码库中的JCLDebug单元将允许您获得堆栈跟踪，然后可以通过CodeSite传递。就我个人而言，我使用的是madExcept，它更加灵活，而且非常值得投资。这将允许您通过代码站点记录整个错误报告(包括堆栈跟踪)。