RealICQClient/Interfaces/InterfaceLogger.pas

unit InterfaceLogger;

interface

type
  TLogLevel = (logSuccess, logInfo, logDebug, logWarning, logError);
  ILogger = interface
  ['{41A29B60-46E0-448B-9B4D-72F30041A7C3}']
    procedure Log(AMessage, ACode, ALoginName: AnsiString); stdcall;
    procedure AsynLog(AMessage, ACode, ALoginName: AnsiString); stdcall;
    procedure Success(AMessage, ACode, ALoginName: AnsiString); stdcall;
    procedure Info(AMessage, ACode, ALoginName: AnsiString); stdcall;
    procedure Debug(AMessage, ACode, ALoginName: AnsiString); stdcall;
    procedure Warning(AMessage, ACode, ALoginName: AnsiString); stdcall;
    procedure Error(AMessage, ACode, ALoginName: AnsiString); stdcall;
  end;
  IBehaviorMonitor = interface
  ['{5EAA1121-E85B-4D43-9BCD-2F0222A876BC}']
    procedure LoginRecord(ALoginName: string); stdcall;
  end;
implementation

end.