日志的输出有助于程序的调试和问题的查找。在Java里面有log4J, 虽然Delphi里面有也有log4D,和showMessage,始终觉得不是蛮方便。
这几天在写socket程序，顺手就写了一个日志记录和查看的工具
Form1为测试程序,
日志显示器为查看程序

Delphi 日志记录和查看_Delphi-IOCP

 

分成两部分
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');


--下载地址
演示文件