Return to Unit Services
Description
To be documented
Class definitions
[Expand]
TSyslogClient = class(TObject)
public
|
constructor Create;
|
|
destructor Destroy; override;
|
|
private
|
FLock:TMutexHandle;
|
|
|
|
FProtocol:LongWord;
|
|
FBoundPort:Word;
|
|
FRemoteHost:String;
|
|
FRemotePort:Word;
|
|
FOctetCounting:Boolean;
|
|
FBroadcastEnabled:Boolean;
|
|
|
|
FUDPClient:TWinsock2UDPClient;
|
|
FTCPClient:TWinsock2TCPClient;
|
|
|
|
function AcquireLock:Boolean;
|
|
function ReleaseLock:Boolean;
|
|
|
|
procedure SetProtocol(AProtocol:LongWord);
|
|
procedure SetBoundPort(ABoundPort:Word);
|
|
function GetRemoteHost:String;
|
|
procedure SetRemoteHost(const ARemoteHost:String);
|
|
procedure SetRemotePort(ARemotePort:Word);
|
|
procedure SetOctetCounting(AOctetCounting:Boolean);
|
|
procedure SetBroadcastEnabled(ABroadcastEnabled:Boolean);
|
|
protected
|
function GetPriority(AFacility,ASeverity:LongWord):String;
|
|
function GetMessage(const APriority,AAddress,ATag,AContent:String):String;
|
|
public
|
property Protocol:LongWord read FProtocol write SetProtocol;
|
|
property BoundPort:Word read FBoundPort write SetBoundPort;
|
|
property RemoteHost:String read GetRemoteHost write SetRemoteHost;
|
|
property RemotePort:Word read FRemotePort write SetRemotePort;
|
|
property OctetCounting:Boolean read FOctetCounting write SetOctetCounting;
|
|
property BroadcastEnabled:Boolean read FBroadcastEnabled write SetBroadcastEnabled;
|
|
|
|
function SendMessage(AFacility,ASeverity:LongWord; const ATag,AContent:String):LongWord;
|
|
Function declarations
[Expand]
constructor TSyslogClient.Create;
Description: To be documented
[Expand]
destructor TSyslogClient.Destroy;
Description: To be documented
[Expand]
function TSyslogClient.AcquireLock:Boolean;
Description: To be documented
[Expand]
function TSyslogClient.ReleaseLock:Boolean;
Description: To be documented
[Expand]
procedure TSyslogClient.SetProtocol(AProtocol:LongWord);
Description: To be documented
[Expand]
procedure TSyslogClient.SetBoundPort(ABoundPort:Word);
Description: To be documented
[Expand]
function TSyslogClient.GetRemoteHost:String;
Description: To be documented
[Expand]
procedure TSyslogClient.SetRemoteHost(const ARemoteHost:String);
Description: To be documented
[Expand]
procedure TSyslogClient.SetRemotePort(ARemotePort:Word);
Description: To be documented
[Expand]
procedure TSyslogClient.SetOctetCounting(AOctetCounting:Boolean);
Description: To be documented
[Expand]
procedure TSyslogClient.SetBroadcastEnabled(ABroadcastEnabled:Boolean);
Description: To be documented
[Expand]
function TSyslogClient.GetPriority(AFacility,ASeverity:LongWord):String;
Description: To be documented
[Expand]
function TSyslogClient.GetMessage(const APriority,AAddress,ATag,AContent:String):String;
Description: To be documented
[Expand]
function TSyslogClient.SendMessage(AFacility,ASeverity:LongWord; const ATag,AContent:String):LongWord;
Description: To be documented
Return to Unit Reference
