RealICQClient/Log/LoggerImport.pas

unit LoggerImport;

interface

  procedure Log(AMessage, ACode: AnsiString);
  procedure AsynLog(AMessage, ACode: AnsiString);
  procedure Success(AMessage, ACode: AnsiString);
  procedure Info(AMessage, ACode: AnsiString);
  procedure Debug(AMessage, ACode: AnsiString);
  procedure Warning(AMessage, ACode: AnsiString);
  procedure Error(AMessage, ACode: AnsiString);

  procedure Monitor();

var
  LoginName: AnsiString;

implementation

uses
  InterfaceLogger, mybean.tools.beanFactory;
const
  LOGGER_BEANNAME: string = 'ResfulLogger';

  procedure Monitor();
  var
    AMonitor: IBehaviorMonitor;
  begin
    AMonitor := (TMyBeanFactoryTools.getBean('Monitor') as IBehaviorMonitor);
    if AMonitor <> nil then
      AMonitor.LoginRecord(LoginName);
  end;

  procedure Log(AMessage, ACode: AnsiString);
  var
    ALogger: ILogger;
  begin
    ALogger := (TMyBeanFactoryTools.getBean(LOGGER_BEANNAME) as ILogger);
    if ALogger <> nil then
      ALogger.Log( AMessage, ACode, LoginName);
  end;

  procedure Success(AMessage, ACode: AnsiString);
    var
    ALogger: ILogger;
  begin
    ALogger := (TMyBeanFactoryTools.getBean(LOGGER_BEANNAME) as ILogger);
    if ALogger <> nil then
      ALogger.Success( AMessage, ACode, LoginName);
  end;
  procedure Info(AMessage, ACode: AnsiString);
    var
    ALogger: ILogger;
  begin
    ALogger := (TMyBeanFactoryTools.getBean(LOGGER_BEANNAME) as ILogger);
    if ALogger <> nil then
      ALogger.Info( AMessage, ACode, LoginName);
  end;
  procedure Debug(AMessage, ACode: AnsiString);
    var
    ALogger: ILogger;
  begin
    ALogger := (TMyBeanFactoryTools.getBean(LOGGER_BEANNAME) as ILogger);
    if ALogger <> nil then
      ALogger.Debug( AMessage, ACode, LoginName);
  end;
  procedure Warning(AMessage, ACode: AnsiString);
    var
    ALogger: ILogger;
  begin
    ALogger := (TMyBeanFactoryTools.getBean(LOGGER_BEANNAME) as ILogger);
    if ALogger <> nil then
      ALogger.Warning( AMessage, ACode, LoginName);
  end;
  procedure Error(AMessage, ACode: AnsiString);
    var
    ALogger: ILogger;
  begin
    ALogger := (TMyBeanFactoryTools.getBean(LOGGER_BEANNAME) as ILogger);
    if ALogger <> nil then
      ALogger.Error( AMessage, ACode, LoginName);
  end;

  procedure AsynLog(AMessage, ACode: AnsiString);
  var
    ALogger: ILogger;
  begin
    ALogger := (TMyBeanFactoryTools.getBean(LOGGER_BEANNAME) as ILogger);
    if ALogger <> nil then
      ALogger.AsynLog(AMessage, ACode, LoginName);
  end;

end.