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. |
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; |
![](http://hi.csdn.net/attachment/201109/27/0_1317117456YlyZ.gif)
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 |
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 |
![](http://hi.csdn.net/attachment/201109/27/0_131711762916eP.gif)
8.如果时间格式不符合个人的要求,完全可以自己自定义格式,具体可以参考用户向导(http://log4delphi.sourceforge.net/userguide.html)。
原文地址:http://blog.csdn.net/jhlz1968/article/details/3293493