TWinsock2TCPListener

From Ultibo.org
Jump to: navigation, search

Return to Unit Winsock2


Description


To be documented

Class definitions



TWinsock2TCPListener = class(TWinsock2TCPSocket)

public
constructor Create;  
destructor Destroy; override;  
private
FActive:Boolean;  
 
FListenerName:String;  
FListenerPriority:LongWord;  
FListenerStackSize:SizeUInt;  
 
FServerName:String;  
FServerPriority:LongWord;  
FServerStackSize:SizeUInt;  
 
FConnectionTimeout:LongWord; Timeout in seconds before an idle connection is closed (0 or INFINITE = No Timeout)
FConnectionTimer:TTimerHandle;  
FThreads:TWinsock2TCPServerThreads;  
FListenerThread:TWinsock2TCPListenerThread;  
 
FOnExecute:TTCPExecuteEvent;  
FOnConnect:TTCPConnectEvent;  
FOnDisconnect:TTCPDisconnectEvent;  
FOnCreateThread:TTCPCreateThreadEvent;  
 
procedure SetActive(AActive:Boolean);  
 
procedure SetListenerName(const AListenerName:String);  
procedure SetListenerPriority(AListenerPriority:LongWord);  
procedure SetListenerStackSize(AListenerStackSize:SizeUInt);  
 
procedure SetServerName(const AServerName:String);  
procedure SetServerPriority(AServerPriority:LongWord);  
procedure SetServerStackSize(AServerStackSize:SizeUInt);  
 
procedure SetConnectionTimeout(AConnectionTimeout:LongWord);  
protected
procedure ProcessTimeout; virtual;  
 
procedure SetLastError(ALastError:LongInt); virtual;  
 
procedure DoConnect(AThread:TWinsock2TCPServerThread); virtual;  
procedure DoDisconnect(AThread:TWinsock2TCPServerThread); virtual;  
 
function DoExecute(AThread:TWinsock2TCPServerThread):Boolean; virtual;  
public
property Active:Boolean read FActive write SetActive;  
 
property ListenerName:String read FListenerName write SetListenerName;  
property ListenerPriority:LongWord read FListenerPriority write SetListenerPriority;  
property ListenerStackSize:SizeUInt read FListenerStackSize write SetListenerStackSize;  
 
property ServerName:String read FServerName write SetServerName;  
property ServerPriority:LongWord read FServerPriority write SetServerPriority;  
property ServerStackSize:SizeUInt read FServerStackSize write SetServerStackSize;  
 
property ConnectionTimeout:LongWord read FConnectionTimeout write SetConnectionTimeout;  
 
property Threads:TWinsock2TCPServerThreads read FThreads;  
 
property OnExecute:TTCPExecuteEvent read FOnExecute write FOnExecute;  
property OnConnect:TTCPConnectEvent read FOnConnect write FOnConnect;  
property OnDisconnect:TTCPDisconnectEvent read FOnDisconnect write FOnDisconnect;  
property OnCreateThread:TTCPCreateThreadEvent read FOnCreateThread write FOnCreateThread;  


Function declarations



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


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


procedure TWinsock2TCPListener.SetActive(AActive:Boolean);
Description: To be documented
Note None documented


procedure TWinsock2TCPListener.SetListenerName(const AListenerName:String);
Description: To be documented
Note None documented


procedure TWinsock2TCPListener.SetListenerPriority(AListenerPriority:LongWord);
Description: To be documented
Note None documented


procedure TWinsock2TCPListener.SetListenerStackSize(AListenerStackSize:SizeUInt);
Description: To be documented
Note None documented


procedure TWinsock2TCPListener.SetServerName(const AServerName:String);
Description: To be documented
Note None documented


procedure TWinsock2TCPListener.SetServerPriority(AServerPriority:LongWord);
Description: To be documented
Note None documented


procedure TWinsock2TCPListener.SetServerStackSize(AServerStackSize:SizeUInt);
Description: To be documented
Note None documented


procedure TWinsock2TCPListener.SetConnectionTimeout(AConnectionTimeout:LongWord);
Description: To be documented
Note None documented


procedure TWinsock2TCPListener.ProcessTimeout;
Description: To be documented
Note None documented


procedure TWinsock2TCPListener.SetLastError(ALastError:LongInt);
Description: To be documented
Note None documented


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


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


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


Return to Unit Reference