Delphi 日志记录和查看

日志的输出有助于程序的调试和问题的查找。在Java里面有log4J, 虽然Delphi里面有也有log4D,和showMessage,始终觉得不是蛮方便。

这几天在写socket程序，顺手就写了一个日志记录和查看的工具
Form1为测试程序,
日志显示器为查看程序

 

分成两部分

1,日志查看(logViewer.exe),是一个socket的服务，用来接收日志，和显示日志。

2,日志记录(logClient.dll),提供日志记录功能,负责发送日志信息。

 

pas文件说明

  logClientWrapper.pas包装了logClient.dll的功能。

  uILogService.pas, 提供了logClient.dll输出的接口申明。

  

如何使用,

  1.将logClient.dll放到程序的libs\目录下(原则来说是通用的,D7-DXE)，在Delphi2007下测试

  2.配置config\log.config(JSon格式配置)

      {

         enable:true,   //打开日志记录(正式发布时可以关闭,这样不占用任何socket

         server:        //日志服务器

         {

           host:"127.0.0.1",

           port:8090,

         },

         filter:        //过滤发送

         {

           "level":"", //"warning,error,debug,info",   //不配置或者为空,则记录所有日志

         },                                                                                    

 

      }

  3.引用logClientWrapper.pas进行日志记录

    TlogClientWrapper.logINfo('测试普通类型的日志' + CreateClassID);

    

    //查看器中有sql语法的显示

    TlogClientWrapper.logINfo('--这是一个SQL类型的日志' + sLineBreak + 'SELECT * FROM sys_Tables','debug', 'sql');

--下载地址
演示文件