delphi使用outputdebugstring调试程序和写系统日志

procedure TForm1.btn1Click(Sender: TObject);
beginOutputDebugString('dddddd');OutputDebugString('11');
end;procedure TForm1.btn2Click(Sender: TObject);
varEvtSrcHand: THandle;EvtMsg: String;
p:Pointer;
i:integer;
size:integer;
q:^byte;
begin
//注册事件源，随便起了个名字。这个名字就是下图事件列表的’来源’一列
//然后判断是否成功。
//注意后面要注销
EvtSrcHand := RegisterEventSource(nil, '测试程序');
if EvtSrcHand = 0 then
begin
ShowMessage('注册事件源失败!');
Exit;
end;//这里记录一个字符串
//这个字符串显示在下面第二个图选中的位置。
EvtMsg := '记录字符串';
ReportEvent(EvtSrcHand,EVENTLOG_INFORMATION_TYPE,0, 0, nil, 1, 0, @EvtMsg, nil);//这里记录一块内存，size大小
size:=32;
//申请
GetMem(p, size);
q := p;//填充这块内存
for i := 0 to size - 1 do
begin
q^ := i;
inc(q);
end;//这里记录内存的内容。大小为size, 首字节的指针p
//同样也有说明信息msg
EvtMsg := '记录某块内存';
ReportEvent(EvtSrcHand,EVENTLOG_INFORMATION_TYPE , 0, 0, nil, 1, size, @EvtMsg, p);
FreeMem(p);
//注销事件源
DeregisterEventSource(EvtSrcHand);
end;end.

delphi使用outputdebugstring调试程序和写系统日志相关推荐

delphi 中OutputDebugString 函数的妙用（转载）
原文地址 https://www.peganza.com/delphi-and-outputdebugstring.html Ever wanted to monitor your Delphi ap ...
Linux中用C语言写系统日志
我们在做一些大型项目时候,在编写程序中时会考虑到,如果出现一些异常的时候是直接抛出异常呢,还是将异常写入到日志文件中,提供给系统管理员来查看.以下就针对这两种情况分别介绍在Linux中如何将异常写入日 ...
Delphi作为客户端调用.Net写的WCF服务端？
这方面的文章太少了,查了半天也只看到一两篇,关键点 1.wcf的Binding要配成 basicHttpBinding,否则Delphi无法通过WebService的方式调用服务 2.Delphi I ...
【SLF4j】使用日志组件SLF4j写系统日志
为什么要写日志? 在程序中添加日志的好处: 1. 监视代码中变量的变化情况,周期性的记录到文件中供其他应用进行统计分析工作 2. 跟踪代码运行时轨迹,作为日后审计的依据 3. 担当集成开发环境中的调试 ...
C#写Windows系统日志（EventLog）
.NET framework 2.0开始,可以使用 EventLog构造函数在Windows系统日志里添加内容,一切看上去是如此的简单.只是-- 会涉及到一点点的权限问题,必须要注意一下. 使用 Ev ...
delphi 调用 c# 写的webservice
调用helloWorld的返回值是正确的,调用add的时候,传入(1,2)时,返回值却为0,不知什么原因,这个问题困惑了很久,请高手们指教~ 以下是源码 //c#写的webservice的源码 [We ...
C#写的ActiveX弹出窗口在Delphi程序中的应用时出现了问题。
====================================================== 注:本文源代码点此下载 ================================= ...
使用OutputDebugString做调试输出
昨天发现服务器通讯并发有问题,所以希望在通讯层增加写调试信息输出来看看.当时首先想到的是用一般经常使用的Codesite,但把调试代码增加到通讯单元后,编译居然跑不起来了,一跟踪才发现,原来是Code ...
2019-11-29-程序猿修养-日志应该如何写
title author date CreateTime categories 程序猿修养日志应该如何写 lindexi 2019-11-29 08:49:58 +0800 2019-7-22 9: ...

delphi使用outputdebugstring调试程序和写系统日志

delphi使用outputdebugstring调试程序和写系统日志相关推荐

最新文章

热门文章