1. Установить
Log4D Загрузка:
LoggerPro Скачать
Особенности:
log4d проста в использовании, стабильная работа
LoggerPro выглядит очень мощным, но нет подробной документации, исходный код слишком ленив, чтобы включить
Этапы установки
Log4D является открытым исходным кодом, так что вы можете перекомпилировать ,, извлеченный в папку. Откройте файл»... \ log4delphi-0.8" папку, создать новую папку„строить“, ошибка компилятора может возникнуть, если нет прямого TFileUnit побудило его удалить перекомпиляции!
导入 Delphi: Инструмент -> Параметры -> Параметры окружающей среды ---> Delphi Options - Библиотека -> Путь Библиотека
2. Использование
профиль нагрузки
Меню ---> Project -> View Source
uses
Vcl.Forms,
TConfiguratorUnit, {需要引用该单元}
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
doPropertiesConfiguration('log4delphi.properties'); { 初始化,读取属性 }
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
использование
unit Unit1;
interface
//TLoggerUnit需要引入该单元
uses
TLoggerUnit, Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
TLogger.GetInstance.Debug('按钮1被点了'); {获取TLogger实例}
end;
end.
3. Профиль (log4delphi.properties)
# 控制输出的信息类别
log4delphi.rootLogger=DEBUG,fileAppender
#单个文件
log4delphi.appender.fileAppender=TFileAppender
#从代码中得出多个文件保存日志。单个文件的最大尺寸使用MaxFileSize设置,文件个数使用MaxBackupIndex设置。
log4delphi.appender.fileAppender=TRollingFileAppender
log4delphi.appender.fileAppender.MaxBackupIndex=20
log4delphi.appender.fileAppender.MaxFileSize=3M
#文件编码,否则日志文件内容会乱码
log4j.appender.A1.Encoding=UTF-8
#文件名称
log4delphi.appender.fileAppender.File=app.log
#exe所在目录
log4delphi.appender.fileAppender.AppDir=true
#追加方式
log4delphi.appender.fileAppender.Append=true
#设置Layout
log4delphi.appender.fileAppender.layout=TPatternLayout
#输出格式
log4delphi.appender.fileAppender.layout.Pattern=%d{yyyy-mm-dd hh:nn:ss:zzz} [%5p] [%L] [%e] %m%n