zoukankan      html  css  js  c++  java
  • delphi 中OutputDebugString 函数的妙用(转载)

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

    Ever wanted to monitor your Delphi application in realtime, and be able to view log messages? Of course you can always run in full debug mode inside RAD Studio IDE. Another way is to output log messages, for example to a text file. You can also use the OutputDebugString function.

    An advantage of this approach is that it impacts your application as little as possible. You don't have to care about file handling. Just call a function.

    The OutputDebugString function is defined in the Win32 API, in the RTL unit Winapi.Windows.

    You simply call it from your code like this:

    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));
    ..

    If you call OutputDebugString repeatedly or in a loop, it may cause some performance overhead. So make sure that calls to OutputDebugString are not included in your release version. To avoid it, you can use a conditional compilation directive, like:

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

    Only activate the compilation directive "ODS" when you want to log messages this way. Also, consider creating a wrapper function for the call to OutputDebugString, so your code will be easier to read and maintain. Something like this:

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

    If you run from within RAD Studio IDE, the log messages will be displayed in the output window.

    But if you run standalone, a good possibility is to use the free DebugView application (dbgview.exe) available from SysInternals (Microsoft). Information from their web page:

    DebugView is an application that lets you monitor debug output on your local system, or any computer on the network that you can reach via TCP/IP. It is capable of displaying both kernel-mode and Win32 debug output, so you don't need a debugger to catch the debug output your applications or device drivers generate, nor do you need to modify your applications or drivers to use non-standard debug output APIs.



    The image above shows some sample debug output from our Pascal Analyzer application.

    As you see in the screenshot, messages are prefixed with a timestamp and a process ID. Read more about DebugView and download it here.

  • 相关阅读:
    MySQL 连接的使用
    MySQL GROUP BY 语句
    MySQL 排序
    MySQL UNION 操作符
    MySQL LIKE 子句
    MySQL DELETE 语句
    MySQL UPDATE 更新
    MySQL WHERE 子句
    php MySQL 查询数据
    MySQL 插入数据
  • 原文地址:https://www.cnblogs.com/xalion/p/9792021.html
Copyright © 2011-2022 走看看