RealICQClient/COM/RealICQCOMInterfaces/LoggerManager.pas

unit LoggerManager;

interface

uses
  TLoggerUnit, TLevelUnit, TRollingFileAppenderUnit, SysUtils,TPatternLayoutUnit;

type
  TLogger4Delphi = class
  private
    FLogger: TLogger;
  public
    constructor Create; 
    destructor Destroy; override;
    procedure Fatal(const AMsg : String);
    procedure Error(const AMsg : String);
    procedure Warn(const AMsg : String);
    procedure Info(const AMsg : String);
    procedure Debug(const AMsg : String);
    procedure Trace(const AMsg : String);
    procedure Alert(const AMsg: string);
  end;

implementation

{ TLxtLog }

procedure TLogger4Delphi.Alert(const AMsg: string);
begin

end;

constructor TLogger4Delphi.Create;
var
  fileAppender: TRollingFileAppender;
begin
  inherited;
  FLogger := TLogger.getInstance;
  FLogger.setLevel(TLevelUnit.ALL);
  fileAppender := TRollingFileAppender.Create(
      ExtractFilePath(ParamStr(0)) + '\Log\app.log',
      TPatternLayout.Create('[%5p] - %d%n%m'),
      True);
  fileAppender.SetMaxFileSize('3M');
  fileAppender.SetMaxBackupIndex(2);
  FLogger.addAppender(fileAppender);
end;

procedure TLogger4Delphi.Debug(const AMsg: String);
begin
  FLogger.Debug(AMsg);
end;

destructor TLogger4Delphi.Destroy;
begin
  inherited;
end;

procedure TLogger4Delphi.Error(const AMsg: String);
begin
  FLogger.Error(AMsg);
end;

procedure TLogger4Delphi.Fatal(const AMsg: String);
begin
  FLogger.Fatal(AMsg);
end;

procedure TLogger4Delphi.Info(const AMsg: String);
begin
  FLogger.Info(AMsg);
end;

procedure TLogger4Delphi.Trace(const AMsg: String);
begin
  FLogger.Trace(AMsg);
end;

procedure TLogger4Delphi.Warn(const AMsg: String);
begin
  FLogger.Warn(AMsg);
end;
end.