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;  
FThreads:TWinsock2TCPServerThreads;  
FListenerThread:TWinsock2TCPListenerThread;  
 
FOnExecute:TTCPExecuteEvent;  
FOnConnect:TTCPConnectEvent;  
FOnDisconnect:TTCPDisconnectEvent;  
FOnCreateThread:TTCPCreateThreadEvent;  
 
procedure SetActive(AActive:Boolean);  
protected
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 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.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