Delphi 7下使用Log4Delphi 0.8日志组件

发布时间：2020-12-15 10:00:27 所属栏目：大数据来源：网络整理

导读：Log4Delphi是一个开放源码项目，旨在制作用于Borland的Delphi高质量实用的日志套件，是基于Apache Software Foundation的log4j包。安装： ?? ??? ?1.从 http://sourceforge.net/projects/log4delphi/files /下载0.8版本，解压到文件夹。打开文件夹"...log4

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.8srcdelphi"下，点击"Compile"和"Install"进行编译安装；
?? ??? ?3.菜单"Tools"→"Environment Options"→"Library"→"Library path"，添加" ...log4delphi-0.8build "目录（如果需要连接源代码，则再添加"...log4delphi-0.8srcdelphi"和"...log4delphi-0.8srcdelphiutil"）;
使用：
?? ??? ?1.新建一个应用程序，保存当前工程。
?? ??? ?2.菜单"Project"→"View Source"，添加初始化日志等，代码如下：

program?Project1;?
 ?
uses?
 ??Forms,?
 ??TConfiguratorUnit,???{需要引用该单元}?
 ??Unit1?in?'Unit1.pas'?{Form1};?
 ?
{$R?*.res}?
 ?
begin?
 ??Application.Initialize;?
 ??doPropertiesConfiguration('log4delphi.properties');??{初始化，读取属性}?
 ??Application.CreateForm(TForm1,?Form1);?
 ??Application.Run;?
end.?

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

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

implementation?
?
uses?TLoggerUnit;????{需引用此单元}?
?
{$R?*.dfm}?
?
procedure?TForm1.btn1Click(Sender:?TObject);?
begin?
??TLogger.GetInstance.Debug('按钮1被点了');???{获取TLogger实例}?
end;?
?
procedure?TForm1.btn2Click(Sender:?TObject);?
begin?
??TLogger.GetInstance.Info('按钮2也被点了');??{包括：Fatal、Error、Warn、Info、Debug、Trace}?
procedure?TForm1.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=Document?Title?
#log4delphi.appender.fileAppender.layout=TPatternLayout?
#log4delphi.appender.fileAppender.layout.Pattern=%d{dd?mmm?yyyy?hh:nn:ss:zzz}?[%5p]?%m%n?
 
   

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

#log4delphi.appender.fileAppender.layout=TSimpleLayout?
#log4delphi.appender.fileAppender.layout.Title=Document?Title?
log4delphi.appender.fileAppender.layout=TPatternLayout?
log4delphi.appender.fileAppender.layout.Pattern=%d{dd?mmm?yyyy?hh:nn:ss:zzz}?[%5p]?%m%n?

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

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

扩展资料：

1.Log4delphi使用心得?http://www.cnblogs.com/kfarvid/archive/2010/08/02/1790641.html

http://blog.csdn.net/akof1314/article/details/6827065

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!