KBMMW 的日志管理器-阿里云开发者社区

开发者社区> 云计算> 正文
登录阅读全文

KBMMW 的日志管理器

简介: kbmmw 4.82 最大的新特性就是增加了 日志管理器。 新的日志管理器实现了不同类型的日志、断言、异常处理、计时等功能。 首先。引用kbmMWLog.pas 单元后,系统就默认生成一个IkbmMWLog 实例:  Log:IkbmMWLog; log 默认使用对应操作系统的日志功能。

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;

 

更多的功能请参考源码。

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

分享: