• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

Delphi7下使用Log4Delphi0.8日志组件

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

   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
  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.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 
 
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} 
end; 
 
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和其下的样式,如:

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 

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

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

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


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap