Delphi 7下使用Log4Delphi 0.8日志组件

Log4Delphi是一个开放源码项目，旨在制作用于Borland的Delphi高质量实用的日志套件，是基于Apache Software Foundation的log4j包。

安装：
1.从http://sourceforge.net/projects/log4delphi/files/下载0.8版本，解压到文件夹。打开文件夹"...\log4delphi-0.8"，新建一个文件夹"build"；
2.运行Delphi 7，打开组件包"log4delphi_D7_PROF.dpk"，位于"...\log4delphi-0.8\src\delphi"下，点击"Compile"和"Install"进行编译安装；
3.菜单"Tools"→"Environment Options"→"Library"→"Library path"，添加"...\log4delphi-0.8\build"目录（如果需要连接源代码，则再添加"...\log4delphi-0.8\src\delphi"和"...\log4delphi-0.8\src\delphi\util"）;
使用：
1.新建一个应用程序，保存当前工程。
2.菜单"Project"→"View Source"，添加初始化日志等，代码如下：

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15

programProject1;

uses
Forms,
TConfiguratorUnit,{需要引用该单元}
Unit1in'Unit1.pas'{Form1};

{$R*.res}

begin
Application.Initialize;
doPropertiesConfiguration('log4delphi.properties');{初始化，读取属性}
Application.CreateForm(TForm1,Form1);
Application.Run;
end.

3.将"...\log4delphi-0.8\example\log4delphi.properties"复制到工程目录下；
4.在窗体上放置两个按钮，单击事件和窗体的销毁事件如下：

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20

implementation

usesTLoggerUnit;{需引用此单元}

{$R*.dfm}

procedureTForm1.btn1Click(Sender:TObject);
begin
TLogger.GetInstance.Debug('按钮1被点了');{获取TLogger实例}
end;

procedureTForm1.btn2Click(Sender:TObject);
begin
TLogger.GetInstance.Info('按钮2也被点了');{包括：Fatal、Error、Warn、Info、Debug、Trace}
end;

procedureTForm1.FormDestroy(Sender:TObject);
begin
TLogger.FreeInstances;{在不需要使用的时候，释放掉}
end;

5.运行程序，点击按钮一和按钮二，关闭程序。在工程目录下，发现会有"app.log"文件，打开如下所示：

6.打开属性文件"log4delphi.properties"，可查看一些默认的属性以及属性说明。比如可以设置日志文件的布局，原内容如下：

1
2
3
4
5
6

log4delphi.appender.fileAppender.layout=TSimpleLayout
#log4delphi.appender.fileAppender.layout=TXMLLayout
#log4delphi.appender.fileAppender.layout=THTMLLayout
#log4delphi.appender.fileAppender.layout.Title=DocumentTitle
#log4delphi.appender.fileAppender.layout=TPatternLayout
#log4delphi.appender.fileAppender.layout.Pattern=%d{ddmmmyyyyhh:nn:ss:zzz}[%5p]%m%n

默认是打开TSimpleLayout，这是简单布局，格式如同上面截图一样。如果我们需要按照时间格式进行日志输出，需要先禁用TSimpleLayout，再打开TPatternLayout和其下的样式，如：

1
2
3
4
5
6

#log4delphi.appender.fileAppender.layout=TSimpleLayout
#log4delphi.appender.fileAppender.layout=TXMLLayout
#log4delphi.appender.fileAppender.layout=THTMLLayout
#log4delphi.appender.fileAppender.layout.Title=DocumentTitle
log4delphi.appender.fileAppender.layout=TPatternLayout
log4delphi.appender.fileAppender.layout.Pattern=%d{ddmmmyyyyhh:nn:ss:zzz}[%5p]%m%n

7.再次执行第5步，打开如下图所示：

8.如果时间格式不符合个人的要求，完全可以自己自定义格式，具体可以参考用户向导（http://log4delphi.sourceforge.net/userguide.html）。

原文地址：http://blog.csdn.net/jhlz1968/article/details/3293493