kbmmw 4.82 最大的新特性就是增加了 日志管理器。
新的日志管理器实现了不同类型的日志、断言、异常处理、计时等功能。
首先。引用kbmMWLog.pas 单元后,系统就默认生成一个IkbmMWLog 实例:
Log:IkbmMWLog;
log 默认使用对应操作系统的日志功能。 为了能保存到硬盘上方便大家查看,可以使用本地文件方式,先设置一下日志及审计文件路径及属性
filelogmgr:=TkbmMWLocalFileLogManager.Create('.\log.txt','.\audit.txt'); // 同时生成两个文件,一个是日志文件,一个审计文件 filelogmgr.DeleteOldLog:=true; // 删除老的日志文件 filelogmgr.DeleteOldAudit:=true; // 删除老的审计文件 filelogmgr.FlushInterval:=0; // 写文件时间间隔,0 为立即写文件 Log.LogManager:=filelogmgr; // 设置log 的管理器为上面文件管理器
现在开发人员就可以做一些常规的日志记录。
Log.Info('This is some info'); // 记录信息 Log.Warn('This is a warning'); // 记录警告 Log.Error('This is an error'); // 记录错误 Log.Fatal('This went very bad: %d/%s',[10,'shit happens']); // 已经致命了 Log.LogStack(TkbmMWLogType.mwltInfo,TkbmMWLogLevel.mwllNormal,'We got a stack dump'); //没救了,只能解剖尸体了
以上代码输出结果为
2015-06-01T10:34:24.304+08:00 : Info : 10572/10632 : This is some info 2015-06-01T10:34:24.307+08:00 : Warning : 10572/10632 : This is a warning 2015-06-01T10:34:24.308+08:00 : Error : 10572/10632 : This is an error 2015-06-01T10:34:24.308+08:00 : Fatal : 10572/10632 : This went very bad: 10/shit happens 2015-06-01T10:34:24.308+08:00 : Info : 10572/10632 : We got a stack dump Address <650D5C> unknown Address <527FC5> unknown Address <52C5FE> unknown Address <53EE29> unknown Address <52C764> unknown Address <52C5FE> unknown Address <5C3F29> unknown Address <52BC1B> unknown Address <4C299A> unknown Address <52C70F> unknown Address <52C5FE> unknown Address <53EE29> unknown Address <4C299A> unknown Address <5CD3F0> unknown
有时,我们为了了解服务器上某一项业务的运行时间,这里就可以使用log 的计时功能。
那么就可以使用时间点。 下面开启一个时间点,为了避免内存泄漏,应该开配对,即:开启与结束配对使用。
Log.TimeStart('A'); //找点事干吧 for i:=1 to 1000 do k:=i; // 再休息一会儿吧 sleep(500); Log.TimeLapse('A','Time lapse'); //看看用了多长时间 //再干一会儿吧 for i:=1 to 1000 do k:=i; // 再休息一会儿吧 sleep(500); Log.TimeEnd('A','Time taken'); //结束计时,看看用了多长时间
以上代码输出结果
2015-06-01T15:49:22.018+08:00 : Debug : 11736/7316 : Time lapse : 500 ms (A) 2015-06-01T15:49:22.521+08:00 : Debug : 11736/7316 : Time taken : 1003 ms (A)
一个程序里面可以同时使用很多个计时器,以方便跟踪不同的业务。
最后就是异常处理了。其实就是KBMMW hook delphi 的异常处理。这样就可以在delphi 的异常处理前,进行
一些日志操作了。为了达到这一点,首先需要 在kbmMWConfig.inc 里面定义
{$DEFINE KBMMW_INSTALL_EXCEPTION_HANDLER}
for i:=5 downto 0 do begin j:=10 div i; // 这个小学问题,就让kbmmw 自动处理吧 end;
输出结果
2015-06-01T16:13:14.847+08:00 : Error : 10184/14536 : EDivByZero Division by zero Address (hex): 00000000 Address <429A26> unknown Address <65031E> unknown Address <408B29> unknown Address <527FC5> unknown Address <52C5FE> unknown Address <53EE29> unknown Address <52C764> unknown Address <52C5FE> unknown Address <5C3F29> unknown Address <52BC1B> unknown Address <4C299A> unknown Address <52C70F> unknown Address <52C5FE> unknown Address <53EE29> unknown Address <4C299A> unknown Address <5CD3F0> unknown
当然了,对于这种错误,都还是可以比较方便的捕获的。
对于象堆栈溢出的这些严重问题来说,发生后是无法预料结果的,唯一可以说的是,delphi 处理时需要使用堆栈空间,
因此几乎无法工作,而kbmmw 好一点,尽可能的去捕获错误,至于达到什么效果呢,只能看你的人品了:)
想试试自己的人品吗? 可以试一下下面的代码。
procedure TForm1.Button9Click(Sender: TObject); procedure StackLoop; begin StackLoop; end; begin StackLoop; // 是谁写的这个代码? end;
更多的功能请参考源码。