TTelnetConnection

From Ultibo.org
Jump to: navigation, search

Return to Unit Services


Description


To be documented

Class definitions



TTelnetConnection = class(TListObject)

public
constructor Create;  
destructor Destroy; override;  
private
FLock:TCriticalSectionHandle;  
 
FHandle:THandle;  
FRxByteCount:Int64; Bytes Recv Count from Connection
FTxByteCount:Int64; Bytes Sent Count to Connection
FRequestCount:Int64; Requests Recv Count from Connection
FResponseCount:Int64; Responses Sent Count to Connection
FRequestTime:TDateTime; Last Request Time
FResponseTime:TDateTime; Last Response Time
FRemoteAddress:String; Address of Remote Client
FLocalState:LongWord; Local connection state (eg TELNET_STATE_ECHO)
FRemoteState:LongWord; Remote connection state (eg TELNET_STATE_ECHO)
 
FData:Pointer; Private data for application
FThread:TThread; TWinsock2TCPServerThread
FBuffer:TTelnetBuffer; Buffer for received data
FListener:TTelnetListener; Listener for Connection
 
function AcquireLock:Boolean;  
function ReleaseLock:Boolean;  
 
procedure SetHandle(AHandle:THandle);  
function GetRxByteCount:Int64;  
procedure SetRxByteCount(const ARxByteCount:Int64);  
function GetTxByteCount:Int64;  
procedure SetTxByteCount(const ATxByteCount:Int64);  
function GetRequestCount:Int64;  
procedure SetRequestCount(const ARequestCount:Int64);  
function GetResponseCount:Int64;  
procedure SetResponseCount(const AResponseCount:Int64);  
function GetRequestTime:TDateTime;  
procedure SetRequestTime(const ARequestTime:TDateTime);  
function GetResponseTime:TDateTime;  
procedure SetResponseTime(const AResponseTime:TDateTime);  
function GetRemoteAddress:String;  
procedure SetRemoteAddress(const ARemoteAddress:String);  
procedure SetLocalState(ALocalState:LongWord);  
procedure SetRemoteState(ARemoteState:LongWord);  
 
procedure SetData(AData:Pointer);  
procedure SetThread(AThread:TThread);  
procedure SetListener(AListener:TTelnetListener);  
public
property Handle:THandle read FHandle write SetHandle;  
property RxByteCount:Int64 read GetRxByteCount write SetRxByteCount;  
property TxByteCount:Int64 read GetTxByteCount write SetTxByteCount;  
property RequestCount:Int64 read GetRequestCount write SetRequestCount;  
property ResponseCount:Int64 read GetResponseCount write SetResponseCount;  
property RequestTime:TDateTime read GetRequestTime write SetRequestTime;  
property ResponseTime:TDateTime read GetResponseTime write SetResponseTime;  
property RemoteAddress:String read GetRemoteAddress write SetRemoteAddress;  
property LocalState:LongWord read FLocalState write SetLocalState;  
property RemoteState:LongWord read FRemoteState write SetRemoteState;  
 
property Data:Pointer read FData write SetData;  
property Thread:TThread read FThread write SetThread;  
property Buffer:TTelnetBuffer read FBuffer;  
property Listener:TTelnetListener read FListener write SetListener;  
 
procedure IncrementRxByteCount(const ARxByteCount:Int64);  
procedure IncrementTxByteCount(const ATxByteCount:Int64);  
procedure IncrementRequestCount;  
procedure IncrementResponseCount;  


Function declarations



constructor TTelnetConnection.Create;
Description: To be documented
Note None documented


destructor TTelnetConnection.Destroy;
Description: To be documented
Note None documented


function TTelnetConnection.AcquireLock:Boolean;
Description: To be documented
Note None documented


function TTelnetConnection.ReleaseLock:Boolean;
Description: To be documented
Note None documented


procedure TTelnetConnection.SetHandle(AHandle:LongWord);
Description: To be documented
Note None documented


function TTelnetConnection.GetRxByteCount:Int64;
Description: To be documented
Note None documented


procedure TTelnetConnection.SetRxByteCount(const ARxByteCount:Int64);
Description: To be documented
Note None documented


function TTelnetConnection.GetTxByteCount:Int64;
Description: To be documented
Note None documented


procedure TTelnetConnection.SetTxByteCount(const ATxByteCount:Int64);
Description: To be documented
Note None documented


function TTelnetConnection.GetRequestCount:Int64;
Description: To be documented
Note None documented


procedure TTelnetConnection.SetRequestCount(const ARequestCount:Int64);
Description: To be documented
Note None documented


function TTelnetConnection.GetResponseCount:Int64;
Description: To be documented
Note None documented


procedure TTelnetConnection.SetResponseCount(const AResponseCount:Int64);
Description: To be documented
Note None documented


function TTelnetConnection.GetRequestTime:TDateTime;
Description: To be documented
Note None documented


procedure TTelnetConnection.SetRequestTime(const ARequestTime:TDateTime);
Description: To be documented
Note None documented


function TTelnetConnection.GetResponseTime:TDateTime;
Description: To be documented
Note None documented


procedure TTelnetConnection.SetResponseTime(const AResponseTime:TDateTime);
Description: To be documented
Note None documented


function TTelnetConnection.GetRemoteAddress:String;
Description: To be documented
Note None documented


procedure TTelnetConnection.SetRemoteAddress(const ARemoteAddress:String);
Description: To be documented
Note None documented


procedure TTelnetConnection.SetLocalState(ALocalState:LongWord);
Description: To be documented
Note None documented


procedure TTelnetConnection.SetRemoteState(ARemoteState:LongWord);
Description: To be documented
Note None documented


procedure TTelnetConnection.SetData(AData:Pointer);
Description: To be documented
Note None documented


procedure TTelnetConnection.SetThread(AThread:TThread);
Description: To be documented
Note None documented


procedure TTelnetConnection.SetListener(AListener:TTelnetListener);
Description: To be documented
Note None documented


procedure TTelnetConnection.IncrementRxByteCount(const ARxByteCount:Int64);
Description: To be documented
Note None documented


procedure TTelnetConnection.IncrementTxByteCount(const ATxByteCount:Int64);
Description: To be documented
Note None documented


procedure TTelnetConnection.IncrementRequestCount;
Description: To be documented
Note None documented


procedure TTelnetConnection.IncrementResponseCount;
Description: To be documented
Note None documented


Return to Unit Reference