x2log/X2Log.Intf.pas

unit X2Log.Intf;

interface
uses
  System.SysUtils;

type
  TX2LogLevel = (Verbose, Info, Warning, Error);


const
  X2LogLevelsAll = [Low(TX2LogLevel)..High(TX2LogLevel)];
  X2LogLevelsDefault = X2LogLevelsAll - [Verbose];


type
  IX2LogBase = interface
    ['{1949E8DC-6DC5-43DC-B678-55CF8274E79D}']
    procedure Log(ALevel: TX2LogLevel; const AMessage: string; const ADetails: string = '');
  end;


  IX2LogObserver = interface(IX2LogBase)
    ['{CBC5C18E-84EE-43F4-8DBE-C66D06FCDE74}']
  end;


  IX2LogExceptionStrategy = interface
    ['{C0B7950E-BE0A-4A21-A7C5-F8322FD4E205}']
    procedure Execute(AException: Exception; var AMessage: string; var ADetails: string);
  end;


  IX2LogObservable = interface(IX2LogBase)
    ['{50B47D5D-11E4-40E0-BBC4-8BA70697C1F9}']
    procedure Attach(AObserver: IX2LogObserver);
    procedure Detach(AObserver: IX2LogObserver);
  end;


  IX2Log = interface(IX2LogObservable)
    ['{A6FF38F9-EDA8-4C76-9C95-2C0317560D78}']
    procedure SetExceptionStrategy(AStrategy: IX2LogExceptionStrategy);

    procedure Verbose(const AMessage: string; const ADetails: string = '');
    procedure Info(const AMessage: string; const ADetails: string = '');
    procedure Warning(const AMessage: string; const ADetails: string = '');
    procedure Error(const AMessage: string; const ADetails: string = '');
    procedure Exception(AException: Exception; const AMessage: string = ''; const ADetails: string = '');
  end;
  


  TX2LogMessageHeaderV1 = packed record
    ID: Word;
    Version: Byte;
    Size: Word;
    Level: TX2LogLevel;

    {
    Payload:

      MessageLength: Cardinal
      Message: WideString
      DetailsLength: Cardinal
      Details: WideString
    }
  end;

  TX2LogMessageHeader = TX2LogMessageHeaderV1;

const
  X2LogMessageHeader: Word = $B258;
  X2LogMessageVersion: Byte = 1;


implementation

end.