TSyslogClient
From Ultibo.org
Return to Unit Services
Description
To be documented
Class definitions
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
constructor TSyslogClient.Create;
Description: To be documented
| Note | None documented |
|---|
destructor TSyslogClient.Destroy;
Description: To be documented
| Note | None documented |
|---|
function TSyslogClient.AcquireLock:Boolean;
Description: To be documented
| Note | None documented |
|---|
function TSyslogClient.ReleaseLock:Boolean;
Description: To be documented
| Note | None documented |
|---|
procedure TSyslogClient.SetProtocol(AProtocol:LongWord);
Description: To be documented
| Note | None documented |
|---|
procedure TSyslogClient.SetBoundPort(ABoundPort:Word);
Description: To be documented
| Note | None documented |
|---|
function TSyslogClient.GetRemoteHost:String;
Description: To be documented
| Note | None documented |
|---|
procedure TSyslogClient.SetRemoteHost(const ARemoteHost:String);
Description: To be documented
| Note | None documented |
|---|
procedure TSyslogClient.SetRemotePort(ARemotePort:Word);
Description: To be documented
| Note | None documented |
|---|
procedure TSyslogClient.SetOctetCounting(AOctetCounting:Boolean);
Description: To be documented
| Note | None documented |
|---|
procedure TSyslogClient.SetBroadcastEnabled(ABroadcastEnabled:Boolean);
Description: To be documented
| Note | None documented |
|---|
function TSyslogClient.GetPriority(AFacility,ASeverity:LongWord):String;
Description: To be documented
| Note | None documented |
|---|
function TSyslogClient.GetMessage(const APriority,AAddress,ATag,AContent:String):String;
Description: To be documented
| Note | None documented |
|---|
function TSyslogClient.SendMessage(AFacility,ASeverity:LongWord; const ATag,AContent:String):LongWord;
Description: To be documented
| Note | None documented |
|---|
Return to Unit Reference
