log4 DELPHI 日志

日志组件log4delphi与log4j、log4cpp如出一辙 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；