正文

delphi 中OutputDebugString 函数的妙用（使用DebugView或者Pascal Analyzer软件，在运行过程中就能监视和捕捉日志，而且通过网络就能监视）

IP云
IP云V管理员/4 阅读
09/13
提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

原文地址 https://www.peganza.com/delphi-and-outputdebugstring.html

曾经想要实时监控您的Delphi应用程序，并能够查看日志消息吗？当然，您始终可以在RAD Studio IDE中以完全调试模式运行。另一种方法是输出日志消息，例如输出到文本文件。您还可以使用OutputDebugString函数。

这种方法的一个优点是它尽可能少地影响您的应用程序。您不必关心文件处理。只需调用一个函数。

OutputDebugString函数在Win32 API中的RTL单元Winapi.Windows中定义。

你只需从你的代码中调用它，如下所示：

1
2
3
4
5
6
7
8
9
10
11
..
uses
  Winapi.Windows;
..
var 
  Msg : string;
begin 
  OutputDebugString('This is my message');
  Msg := 'This is another log message';
  OutputDebugString(PChar(Msg));
..

如果重复或循环调用OutputDebugString，可能会导致一些性能开销。因此，请确保您的发布版本中不包含对OutputDebugString的调用。要避免它，您可以使用条件编译指令，如：

1
2
3
4
5
..
  (*$IFDEF ODS*)
  OutputDebugString('This is my message');
  (*$ENDIF*)
..

只有在想以这种方式记录消息时才激活编译指令“ODS”。另外，考虑为OutputDebugString调用创建一个包装函数，这样您的代码将更易于阅读和维护。像这样的东西：

1
2
3
4
5
6
procedure DebugODS(const Msg : string);
begin
  (*$IFDEF ODS*)
  OutputDebugString(PChar(Msg));
  (*$ENDIF*)
end;

如果从RAD Studio IDE中运行，日志消息将显示在输出窗口中。

但是如果你独立运行，很有可能使用SysInternals（Microsoft）提供的免费DebugView应用程序（dbgview.exe）。来自其网页的信息：

DebugView是一个应用程序，它允许您监视本地系统或网络上可通过TCP / IP访问的任何计算机上的调试输出。它能够显示内核模式和Win32调试输出，因此您不需要调试器来捕获应用程序或设备驱动程序生成的调试输出，也不需要修改应用程序或驱动程序以使用非标准调试输出API。

上图显示了Pascal Analyzer应用程序的一些示例调试输出。

正如您在屏幕截图中看到的那样，消息的前缀是时间戳和进程ID。阅读有关DebugView的更多信息并在此处下载。

https://www.cnblogs.com/xalion/p/9792021.html