Difference between revisions of "TSyslogClient"

From Ultibo.org
Jump to: navigation, search
(Created page with "Return to Unit Services __TOC__ === Description === ---- ''To be documented'' === Class definitions === ---- <div class="toccolours mw-collapsible mw-...")
 
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;">
 
<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 style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">

Revision as of 00:40, 29 May 2018

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;  
 
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;  


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


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