Difference between revisions of "TSyslogClient"
From Ultibo.org
| Line 47: | Line 47: | ||
|- | |- | ||
| <code>FOctetCounting:Boolean;</code> | | <code>FOctetCounting:Boolean;</code> | ||
| + | | | ||
| + | |- | ||
| + | | <code>FBroadcastEnabled:Boolean;</code> | ||
| | | | ||
|- | |- | ||
| Line 83: | Line 86: | ||
|- | |- | ||
| <code>procedure SetOctetCounting(AOctetCounting:Boolean);</code> | | <code>procedure SetOctetCounting(AOctetCounting:Boolean);</code> | ||
| + | | | ||
| + | |- | ||
| + | | <code>procedure SetBroadcastEnabled(ABroadcastEnabled:Boolean);</code> | ||
| | | | ||
|- | |- | ||
| Line 108: | Line 114: | ||
|- | |- | ||
| <code>property OctetCounting:Boolean read FOctetCounting write SetOctetCounting;</code> | | <code>property OctetCounting:Boolean read FOctetCounting write SetOctetCounting;</code> | ||
| + | | | ||
| + | |- | ||
| + | | <code>property BroadcastEnabled:Boolean read FBroadcastEnabled write SetBroadcastEnabled;</code> | ||
| | | | ||
|- | |- | ||
| Line 233: | 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
