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-...")
 
 
(One intermediate revision by the same user not shown)
Line 47: Line 47:
 
|-
 
|-
 
| <code>FOctetCounting:Boolean;</code>
 
| <code>FOctetCounting:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FBroadcastEnabled:Boolean;</code>
 
| &nbsp;
 
| &nbsp;
 
|-
 
|-
Line 83: Line 86:
 
|-
 
|-
 
| <code>procedure SetOctetCounting(AOctetCounting:Boolean);</code>
 
| <code>procedure SetOctetCounting(AOctetCounting:Boolean);</code>
 +
| &nbsp;
 +
|-
 +
| <code>procedure SetBroadcastEnabled(ABroadcastEnabled:Boolean);</code>
 
| &nbsp;
 
| &nbsp;
 
|-
 
|-
Line 108: Line 114:
 
|-
 
|-
 
| <code>property OctetCounting:Boolean read FOctetCounting write SetOctetCounting;</code>
 
| <code>property OctetCounting:Boolean read FOctetCounting write SetOctetCounting;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property BroadcastEnabled:Boolean read FBroadcastEnabled write SetBroadcastEnabled;</code>
 
| &nbsp;
 
| &nbsp;
 
|-
 
|-
Line 123: Line 132:
  
  
−
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;">
Line 234: Line 242:
 
<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;">procedure TSyslogClient.SetOctetCounting(AOctetCounting:Boolean);</pre>
 
<pre style="border: 0; padding-bottom:0px;">procedure TSyslogClient.SetOctetCounting(AOctetCounting:Boolean);</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;">
 +
{| class="wikitable" style="font-size: 14px; background: white;"
 +
|-
 +
! Note
 +
| None documented
 +
|-
 +
|}
 +
</div></div>
 +
<br />
 +
<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;">procedure TSyslogClient.SetBroadcastEnabled(ABroadcastEnabled:Boolean);</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;">

Latest revision as of 04:26, 7 October 2021

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

Retrieved from "https://ultibo.org/mediawiki_ultibo_org/index.php?title=TSyslogClient&oldid=5215"