|
|
| Line 34: |
Line 34: |
| | |colspan="2"| | | |colspan="2"| |
| | |- | | |- |
| − | | <code>FHandle:LongWord;</code> | + | | <code>FHandle:THandle;</code> |
| | | | | | |
| | |- | | |- |
| Line 88: |
Line 88: |
| | |colspan="2"| | | |colspan="2"| |
| | |- | | |- |
| − | | <code>procedure SetHandle(AHandle:LongWord);</code> | + | | <code>procedure SetHandle(AHandle:THandle);</code> |
| | | | | | |
| | |- | | |- |
| Line 152: |
Line 152: |
| | |colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div> | | |colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div> |
| | |- | | |- |
| − | | <code>property Handle:LongWord read FHandle write SetHandle;</code> | + | | <code>property Handle:THandle read FHandle write SetHandle;</code> |
| | | | | | |
| | |- | | |- |
Latest revision as of 06:02, 15 June 2021
Return to Unit Services
Description
To be documented
Class definitions
[Expand]
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
[Expand]
constructor TTelnetConnection.Create;
Description: To be documented
[Expand]
destructor TTelnetConnection.Destroy;
Description: To be documented
[Expand]
function TTelnetConnection.AcquireLock:Boolean;
Description: To be documented
[Expand]
function TTelnetConnection.ReleaseLock:Boolean;
Description: To be documented
[Expand]
procedure TTelnetConnection.SetHandle(AHandle:LongWord);
Description: To be documented
[Expand]
function TTelnetConnection.GetRxByteCount:Int64;
Description: To be documented
[Expand]
procedure TTelnetConnection.SetRxByteCount(const ARxByteCount:Int64);
Description: To be documented
[Expand]
function TTelnetConnection.GetTxByteCount:Int64;
Description: To be documented
[Expand]
procedure TTelnetConnection.SetTxByteCount(const ATxByteCount:Int64);
Description: To be documented
[Expand]
function TTelnetConnection.GetRequestCount:Int64;
Description: To be documented
[Expand]
procedure TTelnetConnection.SetRequestCount(const ARequestCount:Int64);
Description: To be documented
[Expand]
function TTelnetConnection.GetResponseCount:Int64;
Description: To be documented
[Expand]
procedure TTelnetConnection.SetResponseCount(const AResponseCount:Int64);
Description: To be documented
[Expand]
function TTelnetConnection.GetRequestTime:TDateTime;
Description: To be documented
[Expand]
procedure TTelnetConnection.SetRequestTime(const ARequestTime:TDateTime);
Description: To be documented
[Expand]
function TTelnetConnection.GetResponseTime:TDateTime;
Description: To be documented
[Expand]
procedure TTelnetConnection.SetResponseTime(const AResponseTime:TDateTime);
Description: To be documented
[Expand]
function TTelnetConnection.GetRemoteAddress:String;
Description: To be documented
[Expand]
procedure TTelnetConnection.SetRemoteAddress(const ARemoteAddress:String);
Description: To be documented
[Expand]
procedure TTelnetConnection.SetLocalState(ALocalState:LongWord);
Description: To be documented
[Expand]
procedure TTelnetConnection.SetRemoteState(ARemoteState:LongWord);
Description: To be documented
[Expand]
procedure TTelnetConnection.SetData(AData:Pointer);
Description: To be documented
[Expand]
procedure TTelnetConnection.SetThread(AThread:TThread);
Description: To be documented
[Expand]
procedure TTelnetConnection.SetListener(AListener:TTelnetListener);
Description: To be documented
[Expand]
procedure TTelnetConnection.IncrementRxByteCount(const ARxByteCount:Int64);
Description: To be documented
[Expand]
procedure TTelnetConnection.IncrementTxByteCount(const ATxByteCount:Int64);
Description: To be documented
[Expand]
procedure TTelnetConnection.IncrementRequestCount;
Description: To be documented
[Expand]
procedure TTelnetConnection.IncrementResponseCount;
Description: To be documented
Return to Unit Reference
