delphi使用outputdebugstring调试程序和写系统日志-阿里云开发者社区

开发者社区> 云计算> 正文

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

简介: delphi使用outputdebugstring调试程序和写系统日志 procedure TForm1.btn1Click(Sender: TObject); begin OutputDebugString('dddddd'); OutputDebugString('11'); end; procedure TForm1.

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

procedure TForm1.btn1Click(Sender: TObject);
begin
  OutputDebugString('dddddd');
  OutputDebugString('11');
end;

procedure TForm1.btn2Click(Sender: TObject);
var
  EvtSrcHand: 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.

 

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

分享:
云计算
使用钉钉扫一扫加入圈子
+ 订阅

时时分享云计算技术内容,助您降低 IT 成本,提升运维效率,使您更专注于核心业务创新。

其他文章