Delphi输出日志的方法
来源:互联网 发布:孕期软件下载 编辑:程序博客网 时间:2024/05/18 00:39
1、使用OutputDebugString
procedure TForm1.BtnDebugClick(Sender: TObject);
begin
//这里调用OutputDebugString发送调试信息到调试器。
//在Delphi里面,用View - Debug Windows - Event Log 来查看。
OutputDebugString(PChar('测试OutputDebugString'));
end;
2、发送日志到操作系统日志记录。
这个基本上使用在Release版本中,记录一些重要的信息,帮助用户反馈信息给开发人员。
procedure TForm1.Button2Click(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;
程序运行后,可以通过控制面板 – 管理工具 – 事件查看器来查看
- Delphi输出日志的方法
- 通用的日志输出方法
- Delphi 日志输出记录类
- java---使用日志输出信息的方法
- nohup不输出日志信息的方法
- SecureCRT:保存输出日志的方法
- vlc 日志输出方法
- 控制log4j日志不输出到控制台的方法
- log4cxx调试日志选择性输出的配置方法
- OpenJPA 输出 SQL 日志和使用连接池的方法
- Logger 具体到方法的日志输出类
- Log4J输出日志到WEB工程目录的实现方法
- Android开发中调试日志的输出方法
- log4j中日志输出文件指定相对路径的方法
- Spring Framework 将日志输出到slf4j的方法
- nginx php-fpm 输出php错误日志的配置方法
- windows中设置mysql日志输出路径的方法
- logback异步输出日志的配置方法和源码分析
- USB入门系列之五 ---- USB设备的枚举过程(zz)
- 12月19日记
- 视频格式介绍
- PHP生成tree需要的Json数据,数据来自于MySQL
- 第一个PHP网页
- Delphi输出日志的方法
- 函数指针的两个例子,
- Molehill 3D APIs - GPU硬件加速的Flash 3D API
- FOJ 1573 大学自习室
- 由preempt_disable的实现想到的
- Android 2.3编译不过的问题
- 取USB设备信息
- 理解const
- 软件开发中的11个系统思维定律