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;