Log4Delphi使用

1.安装:log4Delphi无需安装,直接解压包解压后放入任意目录(我的目录是:'D:\3rdlib\delphi\log4delphi-0.7)即可。

2.使用:在工程文件中引用解压包中src目录下所有的*.pas文件,如下:
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  TAppenderUnit in 'D:\3rdlib\delphi\log4delphi-0.7\src\delphi\TAppenderUnit.pas',
  TBDELogInserterUnit in 'D:\3rdlib\delphi\log4delphi-0.7\src\delphi\TBDELogInserterUnit.pas',
  TConfiguratorUnit in 'D:\3rdlib\delphi\log4delphi-0.7\src\delphi\TConfiguratorUnit.pas',
  TConsoleUnit in 'D:\3rdlib\delphi\log4delphi-0.7\src\delphi\TConsoleUnit.pas' {TConsole},
  TDBAppenderUnit in 'D:\3rdlib\delphi\log4delphi-0.7\src\delphi\TDBAppenderUnit.pas',
  TDBLogInserterUnit in 'D:\3rdlib\delphi\log4delphi-0.7\src\delphi\TDBLogInserterUnit.pas',
  TDBXLogInserterUnit in 'D:\3rdlib\delphi\log4delphi-0.7\src\delphi\TDBXLogInserterUnit.pas',
  TErrorHandlerUnit in 'D:\3rdlib\delphi\log4delphi-0.7\src\delphi\TErrorHandlerUnit.pas',
  TFileAppenderUnit in 'D:\3rdlib\delphi\log4delphi-0.7\src\delphi\TFileAppenderUnit.pas',
  THTMLLayoutUnit in 'D:\3rdlib\delphi\log4delphi-0.7\src\delphi\THTMLLayoutUnit.pas',
  TIBXLogInserterUnit in 'D:\3rdlib\delphi\log4delphi-0.7\src\delphi\TIBXLogInserterUnit.pas',
  TLayoutUnit in 'D:\3rdlib\delphi\log4delphi-0.7\src\delphi\TLayoutUnit.pas',
  TLevelUnit in 'D:\3rdlib\delphi\log4delphi-0.7\src\delphi\TLevelUnit.pas',
  TLoggerUnit in 'D:\3rdlib\delphi\log4delphi-0.7\src\delphi\TLoggerUnit.pas',
  TLoggingEventUnit in 'D:\3rdlib\delphi\log4delphi-0.7\src\delphi\TLoggingEventUnit.pas',
  TLogLogUnit in 'D:\3rdlib\delphi\log4delphi-0.7\src\delphi\TLogLogUnit.pas',
  TNullAppenderUnit in 'D:\3rdlib\delphi\log4delphi-0.7\src\delphi\TNullAppenderUnit.pas',
  TOnlyOnceErrorHandlerUnit in 'D:\3rdlib\delphi\log4delphi-0.7\src\delphi\TOnlyOnceErrorHandlerUnit.pas',
  TOptionConverterUnit in 'D:\3rdlib\delphi\log4delphi-0.7\src\delphi\TOptionConverterUnit.pas',
  TPatternLayoutUnit in 'D:\3rdlib\delphi\log4delphi-0.7\src\delphi\TPatternLayoutUnit.pas',
  TPropertyConfiguratorUnit in 'D:\3rdlib\delphi\log4delphi-0.7\src\delphi\TPropertyConfiguratorUnit.pas',
  TRollingFileAppenderUnit in 'D:\3rdlib\delphi\log4delphi-0.7\src\delphi\TRollingFileAppenderUnit.pas',
  TSimpleLayoutUnit in 'D:\3rdlib\delphi\log4delphi-0.7\src\delphi\TSimpleLayoutUnit.pas',
  TWriterAppenderUnit in 'D:\3rdlib\delphi\log4delphi-0.7\src\delphi\TWriterAppenderUnit.pas',
  TXMLLayoutUnit in 'D:\3rdlib\delphi\log4delphi-0.7\src\delphi\TXMLLayoutUnit.pas',
  DCConfiguration in 'D:\3rdlib\delphi\log4delphi-0.7\src\delphi\util\DCConfiguration.pas',
  TPrintWriterUnit in 'D:\3rdlib\delphi\log4delphi-0.7\src\delphi\util\TPrintWriterUnit.pas',
  TPropertiesUnit in 'D:\3rdlib\delphi\log4delphi-0.7\src\delphi\util\TPropertiesUnit.pas',
  TStringUnit in 'D:\3rdlib\delphi\log4delphi-0.7\src\delphi\util\TStringUnit.pas';

然后在应用程序开始的时候,初始化一下:
{$R *.res}

begin
  Application.Initialize;
  TConfiguratorUnit.doPropertiesConfiguration('log4delphi.properties');
  Application.CreateForm(TForm1, Form1);
  //Application.CreateForm(TTConsole, TConsole);
  Application.Run;
end.

将log4delphi.properties放入应用程序同一目录下。log4delphi.properties可从下载包中得到。


在使用的时候,只需use TLoggerUnit;
然后象这样就可以记录日志了:
procedure TForm1.btn1Click(Sender: TObject);
begin
TLogger.getInstance.debug('Button Clicked!'); 
end;

用完记得要释放:TLogger.freeInstances;

 
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值