Difference between revisions of "TSyslogClient"

Revision as of 00:40, 29 May 2018

@@ Line 123: / Line 123: @@
-constructor TSyslogClient.Create;
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function</pre>
+<pre style="border: 0; padding-bottom:0px;">constructor TSyslogClient.Create;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">

public
`constructor Create;`
`destructor Destroy; override;`
private
`FLock:TMutexHandle;`

`FProtocol:LongWord;`
`FBoundPort:Word;`
`FRemoteHost:String;`
`FRemotePort:Word;`
`FOctetCounting: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);`
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;`

`function SendMessage(AFacility,ASeverity:LongWord; const ATag,AContent:String):LongWord;`