KBMMW 的日志管理器

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 为立即写文件
     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',[,'shit happens']); //  已经致命了
     Log.LogStack(TkbmMWLogType.mwltInfo,TkbmMWLogLevel.mwllNormal,'We got a stack dump'); //没救了，只能解剖尸体了

以上代码输出结果为

--01T10::24.304+: : Info : / : This is some info
--01T10::24.307+: : Warning : / : This is a warning
--01T10::24.308+: : Error : / : This is an error
--01T10::24.308+: : Fatal : / : This went very bad: /shit happens
--01T10::24.308+: : Info : / : 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:= to  do
     k:=i;

  // 再休息一会儿吧
  sleep();
  Log.TimeLapse('A','Time lapse');   //看看用了多长时间

  //再干一会儿吧
  for i:= to  do
     k:=i;

  // 再休息一会儿吧
  sleep();

   Log.TimeEnd('A','Time taken');     //结束计时，看看用了多长时间

以上代码输出结果

--01T15::22.018+: : Debug : / : Time lapse :  ms (A)
--01T15::22.521+: : Debug : / : Time taken :  ms (A)

一个程序里面可以同时使用很多个计时器，以方便跟踪不同的业务。

最后就是异常处理了。其实就是KBMMW hook delphi 的异常处理。这样就可以在delphi 的异常处理前，进行

一些日志操作了。为了达到这一点，首先需要 在kbmMWConfig.inc 里面定义

 {$DEFINE KBMMW_INSTALL_EXCEPTION_HANDLER}

  for i:= downto  do
     begin
          j:= div i;   // 这个小学问题，就让kbmmw 自动处理吧
     end;

输出结果

--01T16::14.847+: : Error : / :
EDivByZero
Division by zero
Address (hex):
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;

更多的功能请参考源码。