TIdSysLogMessage

type TIdSysLogMessage = class(TIdBaseComponent)

protected

  FMsg: TIdSysLogMsgPart;

  FFacility: TIdSyslogFacility;

  FSeverity: TIdSyslogSeverity;

  FHostname: string;

  FMessage: string;

  FTimeStamp: TDateTime;

  FRawMessage: string;

  FPeer: string;

  FPri: TIdSyslogPRI;

  FUDPCliComp: TIdBaseComponent;

  procedure SetFacility();

  procedure SetSeverity();

  procedure SetHostname();

  procedure SetRawMessage();

  procedure SetTimeStamp();

  procedure SetMsg();

  procedure SetPri();

  function GetHeader;

  procedure CheckASCIIRange(); virtual;

  procedure ReadPRI(); virtual;

  procedure ReadHeader(); virtual;

  procedure ReadMSG(); virtual;

  procedure Parse; virtual;

  procedure UpdatePRI; virtual;

  function DecodeTimeStamp(); virtual;

  procedure InitComponent; override;

public

  procedure Assign(); override;

  destructor Destroy; override;

  function EncodeMessage; virtual;

  procedure ReadFromBytes(); virtual;

  property RawMessage: string; [rw]

  procedure SendToHost();

  property Peer: string; [rw]

  property TimeStamp: TDateTime; [rw]

published

  property Pri: TIdSyslogPRI; [rw]

  property Facility: TIdSyslogFacility; [rws]

  property Severity: TIdSyslogSeverity; [rws]

  property Hostname: string; [rws]

  property Msg: TIdSysLogMsgPart; [rw]

end;

TIdSysLogMessage

TIdBaseComponent

TIdInitializerComponent

TObject