TTelnetListener

From Ultibo.org
Jump to: navigation, search

Return to Unit Services


Description


To be documented

Class definitions



TTelnetListener = class(TWinsock2TCPListener)

public
constructor Create;  
private
FOnConnected:TTelnetConnectionEvent;  
FOnDisconnected:TTelnetConnectionEvent;  
 
FOnCheckHost:TTelnetHostEvent;  
FOnCheckCount:TTelnetCountEvent;  
 
FOnInit:TTelnetInitEvent;  
FOnChar:TTelnetCharEvent;  
FOnCommand:TTelnetCommandEvent;  
protected
procedure DoConnect(AThread:TWinsock2TCPServerThread); override;  
procedure DoDisconnect(AThread:TWinsock2TCPServerThread); override;  
 
function DoCheckHost(AThread:TWinsock2TCPServerThread):Boolean; virtual;  
function DoCheckCount(AThread:TWinsock2TCPServerThread):Boolean; virtual;  
 
function DoExecute(AThread:TWinsock2TCPServerThread):Boolean; override;  
 
procedure DoInit(AThread:TWinsock2TCPServerThread);  
procedure DoChar(AThread:TWinsock2TCPServerThread; AChar:Char);  
procedure DoCommand(AThread:TWinsock2TCPServerThread; ACommand,AOption:Byte; AData:Pointer; ASize:LongWord);  
 
function SendEcho(AThread:TWinsock2TCPServerThread; AChar:Char):Boolean;  
public
property OnConnected:TTelnetConnectionEvent read FOnConnected write FOnConnected;  
property OnDisconnected:TTelnetConnectionEvent read FOnDisconnected write FOnDisconnected;  
 
property OnCheckHost:TTelnetHostEvent read FOnCheckHost write FOnCheckHost;  
property OnCheckCount:TTelnetCountEvent read FOnCheckCount write FOnCheckCount;  
 
property OnInit:TTelnetInitEvent read FOnInit write FOnInit;  
property OnChar:TTelnetCharEvent read FOnChar write FOnChar;  
property OnCommand:TTelnetCommandEvent read FOnCommand write FOnCommand;  
 
function GetChar(AThread:TWinsock2TCPServerThread; var AChar:Char):Boolean;  
 
function SendChar(AThread:TWinsock2TCPServerThread; AChar:Char):Boolean;  
function SendText(AThread:TWinsock2TCPServerThread; const AText:String):Boolean;  
function SendCommand(AThread:TWinsock2TCPServerThread; ACommand,AOption:Byte; AData:Pointer; ASize:LongWord):Boolean;  


Function declarations



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


procedure TTelnetListener.DoConnect(AThread:TWinsock2TCPServerThread);
Description: To be documented
Note None documented


procedure TTelnetListener.DoDisconnect(AThread:TWinsock2TCPServerThread);
Description: To be documented
Note None documented


function TTelnetListener.DoCheckHost(AThread:TWinsock2TCPServerThread):Boolean;
Description: To be documented
Note None documented


function TTelnetListener.DoCheckCount(AThread:TWinsock2TCPServerThread):Boolean;
Description: To be documented
Note None documented


function TTelnetListener.DoExecute(AThread:TWinsock2TCPServerThread):Boolean;
Description: To be documented
Note None documented


procedure TTelnetListener.DoInit(AThread:TWinsock2TCPServerThread);
Description: To be documented
Note None documented


procedure TTelnetListener.DoChar(AThread:TWinsock2TCPServerThread;AChar:Char);
Description: To be documented
Note None documented


procedure TTelnetListener.DoCommand(AThread:TWinsock2TCPServerThread; ACommand,AOption:Byte; AData:Pointer; ASize:LongWord);
Description: To be documented
Note None documented


function TTelnetListener.GetChar(AThread:TWinsock2TCPServerThread; var AChar:Char):Boolean;
Description: To be documented
Note None documented


function TTelnetListener.SendEcho(AThread:TWinsock2TCPServerThread; AChar:Char):Boolean;
Description: To be documented
Note None documented


function TTelnetListener.SendChar(AThread:TWinsock2TCPServerThread; AChar:Char):Boolean;
Description: To be documented
Note None documented


function TTelnetListener.SendText(AThread:TWinsock2TCPServerThread; const AText:String):Boolean;
Description: To be documented
Note None documented


function TTelnetListener.SendCommand(AThread:TWinsock2TCPServerThread; ACommand,AOption:Byte; AData:Pointer; ASize:LongWord):Boolean;
Description: To be documented
Note None documented


Return to Unit Reference