Difference between revisions of "Unit Winsock2"

Revision as of 03:12, 24 April 2018 (view source) Ultibo (Talk | contribs) ← Older edit		Revision as of 03:53, 6 June 2018 (view source) Ultibo (Talk | contribs) Newer edit →
Line 2,056:		Line 2,056:
−	'''Winsock2 socket'''	+	'''Base socket classes'''
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	<code>TWinsock2Socket = class(TListObject)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
	|-		|-
−	|colspan="2"|Note: Base Socket classes	+	| [[TWinsock2Socket|<code>TWinsock2Socket = class(TListObject)</code>]]
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>constructor Create;</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FBoundPort:Word;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FBoundAddress:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FReuseAddress:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure SetFamily(AFamily:Integer); virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetSocketType(ASocketType:Integer); virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetProtocol(AProtocol:Integer); virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure SetBoundPort(ABoundPort:Word);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetBoundAddress(const ABoundAddress:String); virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure SetReuseAddress(AReuseAddress:Boolean);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetLocalPort:Word;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetLocalHost:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetLocalAddress:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetLocalAddresses:TStrings;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetSendSize:Integer;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetSendSize(ASize:Integer);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetReceiveSize:Integer;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetReceiveSize(ASize:Integer);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetSendTimeout:Integer;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetSendTimeout(ATimeout:Integer);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetReceiveTimeout:Integer;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetReceiveTimeout(ATimeout:Integer);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetConnectTimeout:Integer;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetConnectTimeout(ATimeout:Integer);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>	+
−	|-	+
−	| <code>FHandle:TSocket;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FFamily:Integer;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FSocketType:Integer;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FProtocol:Integer;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FLastError:LongInt;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetBroadcastAddress:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function AllocateFamily:Boolean; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function AllocateAddress(var ALength:Integer):PSockAddr;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function ReleaseAddress(var ASockAddr:PSockAddr; var ALength:Integer):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function AllocateBoundAddress(var ALength:Integer):PSockAddr;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function AllocateSocket(ASocketType:Integer):TSocket;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function Bind:LongInt;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function SockAddrToPort(ASockAddr:PSockAddr; ALength:Integer):Word;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function SockAddrToAddress(ASockAddr:PSockAddr; ALength:Integer):String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function PortToSockAddr(APort:Word; ASockAddr:PSockAddr; ALength:Integer):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function AddressToSockAddr(const AAddress:String; var ALength:Integer):PSockAddr;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property Handle:TSocket read FHandle;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property Family:Integer read FFamily write SetFamily;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property SocketType:Integer read FSocketType write SetSocketType;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Protocol:Integer read FProtocol write SetProtocol;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property LastError:LongInt read FLastError;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property BoundPort:Word read FBoundPort write SetBoundPort;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property BoundAddress:String read FBoundAddress write SetBoundAddress;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property ReuseAddress:Boolean read FReuseAddress write SetReuseAddress;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property LocalPort:Word read GetLocalPort;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property LocalHost:String read GetLocalHost;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property LocalAddress:String read GetLocalAddress;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property LocalAddresses:TStrings read GetLocalAddresses;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property SendSize:Integer read GetSendSize write SetSendSize;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property ReceiveSize:Integer read GetReceiveSize write SetReceiveSize;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property SendTimeout:Integer read GetSendTimeout write SetSendTimeout;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property ReceiveTimeout:Integer read GetReceiveTimeout write SetReceiveTimeout;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property ConnectTimeout:Integer read GetConnectTimeout write SetConnectTimeout;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function Connected:Boolean; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function Shutdown:Boolean; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function Disconnect:Boolean; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function CloseSocket:Boolean; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function ResolveHost(const AHost:String):String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function ResolveFamily(const AAddress:String):Integer;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function ResolveAddress(const AAddress:String):String;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function ResolveHostEx(const AHost:String; AFamily:Integer; AAll:Boolean):TStrings;</code>	+
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	'''Winsock2 socket thread'''	+
−		+
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+
−		+
−	<code>TWinsock2SocketThread = class(TThreadEx)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
	|-		|-
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+	| [[TWinsock2SocketThread|<code>TWinsock2SocketThread = class(TThreadEx)</code>]]
−	|-	+
−	| <code>FPrev:TWinsock2SocketThread;</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	| <code>FNext:TWinsock2SocketThread;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property Prev:TWinsock2SocketThread read FPrev write FPrev;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Next:TWinsock2SocketThread read FNext write FNext;</code>	+
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	'''Winsock2 socket threads'''	+
−		+
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+
−		+
−	<code>TWinsock2SocketThreads = class(TObject)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
	|-		|-
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+	| [[TWinsock2SocketThreads|<code>TWinsock2SocketThreads = class(TObject)</code>]]
−	|-	+
−	| <code>constructor Create;</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	| <code>destructor Destroy; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FLock:TCriticalSectionHandle;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FCount:Integer;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FFirst:TWinsock2SocketThread;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FLast:TWinsock2SocketThread;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetCount:Integer;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetFirst:TWinsock2SocketThread;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetLast:TWinsock2SocketThread;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function Link(AValue:TWinsock2SocketThread):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function LinkEx(APrev,AValue:TWinsock2SocketThread):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function Unlink(AValue:TWinsock2SocketThread):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>	+
−	|-	+
−	| <code>function AcquireLock:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function ReleaseLock:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property Count:Integer read GetCount;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property First:TWinsock2SocketThread read GetFirst;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Last:TWinsock2SocketThread read GetLast;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function Add(AValue:TWinsock2SocketThread):Boolean; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function Remove(AValue:TWinsock2SocketThread):Boolean; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function Insert(APrev,AValue:TWinsock2SocketThread):Boolean; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function Find(AValue:TWinsock2SocketThread):Boolean; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function FindByID(AThreadID:TThreadID):TWinsock2SocketThread; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure Clear; virtual;</code>	+
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	'''Winsock2 socket buffer'''	+
−		+
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+
−		+
−	<code>TWinsock2SocketBuffer = class(TObject)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
	|-		|-
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+	| [[TWinsock2SocketBuffer|<code>TWinsock2SocketBuffer = class(TObject)</code>]]
−	|-	+
−	| <code>FPrev:TWinsock2SocketBuffer;</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	| <code>FNext:TWinsock2SocketBuffer;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property Prev:TWinsock2SocketBuffer read FPrev write FPrev;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Next:TWinsock2SocketBuffer read FNext write FNext;</code>	+
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	'''Winsock2 socket buffers'''	+
−		+
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+
−		+
−	<code>TWinsock2SocketBuffers = class(TObject)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
	|-		|-
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+	| [[TWinsock2SocketBuffers|<code>TWinsock2SocketBuffers = class(TObject)</code>]]
−	|-	+
−	| <code>constructor Create;</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	| <code>destructor Destroy; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FLock:TCriticalSectionHandle;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FCount:Integer;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FFirst:TWinsock2SocketBuffer;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FLast:TWinsock2SocketBuffer;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetCount:Integer;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetFirst:TWinsock2SocketBuffer;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetLast:TWinsock2SocketBuffer;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function Link(AValue:TWinsock2SocketBuffer):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function LinkEx(APrev,AValue:TWinsock2SocketBuffer):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function Unlink(AValue:TWinsock2SocketBuffer):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>	+
−	|-	+
−	| <code>function AcquireLock:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function ReleaseLock:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property Count:Integer read GetCount;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property First:TWinsock2SocketBuffer read GetFirst;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Last:TWinsock2SocketBuffer read GetLast;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function Add(AValue:TWinsock2SocketBuffer):Boolean; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function Remove(AValue:TWinsock2SocketBuffer):Boolean; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function Insert(APrev,AValue:TWinsock2SocketBuffer):Boolean; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function Find(AValue:TWinsock2SocketBuffer):Boolean; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure Clear; virtual;</code>	+
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>
−
−	'''Winsock2 RAW socket'''
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+	'''Raw socket (SOCK_RAW) classes'''
−	<code>TWinsock2RAWSocket = class(TWinsock2Socket)</code>	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
−	|-	+
−	|colspan="2"|Note: Raw Socket (SOCK_RAW) classes	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>constructor Create;</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FBufferSize:Integer;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FBroadcastEnabled:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure SetSocketType(ASocketType:Integer); override;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetProtocol(AProtocol:Integer); override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure SetBufferSize(ABufferSize:Integer);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetBroadcastEnabled(ABroadcastEnabled:Boolean);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>	+
−	|-	+
−	| <code>function RecvFromSocket(ASockAddr:PSockAddr; ASockLen:PInteger; AData:Pointer; ASize:Integer; var ACount:Integer):LongInt; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function SendToSocket(ASockAddr:PSockAddr; ASockLen:Integer; AData:Pointer; ASize:Integer; var ACount:Integer):LongInt; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function RecvFromSocketEx(AHandle:THandle; ASockAddr:PSockAddr; ASockLen:PInteger; AData:Pointer; ASize:Integer; var ACount:Integer; var AClosed:Boolean):LongInt; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function SendToSocketEx(AHandle:THandle; ASockAddr:PSockAddr; ASockLen:Integer; AData:Pointer; ASize:Integer; var ACount:Integer):LongInt; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property BufferSize:Integer read FBufferSize write SetBufferSize;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property BroadcastEnabled:Boolean read FBroadcastEnabled write SetBroadcastEnabled;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function RecvData(AData:Pointer; ACount:Integer):Integer; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function SendData(AData:Pointer; ACount:Integer):Integer; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function BroadcastData(APort:Word; AData:Pointer; ACount:Integer):Integer; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function RecvDataFrom(var AHost:String; AData:Pointer; ACount:Integer):Integer; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function SendDataTo(const AHost:String; AData:Pointer; ACount:Integer):Integer; virtual;</code>	+
−	| &nbsp;	+
	|-		|-
−	| <code>function BroadcastDataTo(const AAddress:String; AData:Pointer; ACount:Integer):Integer; virtual;</code>	+	| [[TWinsock2RAWSocket|<code>TWinsock2RAWSocket = class(TWinsock2Socket)</code>]]
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>
−	'''Winsock2 TCP socket'''	+	'''Stream socket (SOCK_STREAM) classes'''
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	<code>TWinsock2TCPSocket = class(TWinsock2Socket)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
	|-		|-
−	|colspan="2"|Note: Stream Socket (SOCK_STREAM) classes	+	| [[TWinsock2TCPSocket|<code>TWinsock2TCPSocket = class(TWinsock2Socket)</code>]]
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>constructor Create;</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FUseNagle:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FUseKeepalive:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FSegmentSize:Integer;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FMaxSegmentSize:LongWord;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure SetSocketType(ASocketType:Integer); override;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetProtocol(AProtocol:Integer); override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure SetBacklog(ABacklog:Integer);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure SetUseNagle(AUseNagle:Boolean);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetUseKeepalive(AUseKeepalive:Boolean);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetSegmentSize(ASegmentSize:Integer);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetMaxSegmentSize(AMaxSegmentSize:LongWord);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>	+
−	|-	+
−	| <code>FBacklog:Integer;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function Listen(ABacklog:Integer):LongInt;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function ReadFromSocket(AData:Pointer; ASize:Integer):LongInt;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function WriteToSocket(AData:Pointer; ASize:Integer):LongInt;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function ReadFromSocketEx(AData:Pointer; ASize:Integer; var ACount:Integer; var AClosed:Boolean; AWait:Boolean; ATimeout:Integer):LongInt;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function WriteToSocketEx(AData:Pointer; ASize:Integer; var ACount:Integer; AWait:Boolean; ATimeout:Integer):LongInt;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property Backlog:Integer read FBacklog write SetBacklog;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property UseNagle:Boolean read FUseNagle write SetUseNagle;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property UseKeepalive:Boolean read FUseKeepalive write SetUseKeepalive;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property SegmentSize:Integer read FSegmentSize write SetSegmentSize;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property MaxSegmentSize:LongWord read FMaxSegmentSize write SetMaxSegmentSize;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function ReadData(AData:Pointer; ACount:Integer):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function WriteData(AData:Pointer; ACount:Integer):Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function ReadAvailable(AData:Pointer; ASize:Integer; var ACount:Integer; var AClosed:Boolean):Boolean;</code>	+
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>
−
−	'''Winsock2 UDP socket'''
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+	'''Datagram socket (SOCK_DGRAM) classes'''
−	<code>TWinsock2UDPSocket = class(TWinsock2Socket)</code>	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
−	|-	+
−	|colspan="2"|Note: Datagram Socket (SOCK_DGRAM) classes	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>constructor Create;</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FBufferSize:Integer;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FBroadcastEnabled:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure SetSocketType(ASocketType:Integer); override;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetProtocol(AProtocol:Integer); override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure SetBufferSize(ABufferSize:Integer);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetBroadcastEnabled(ABroadcastEnabled:Boolean);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>	+
−	|-	+
−	| <code>function RecvFromSocket(ASockAddr:PSockAddr; ASockLen:PInteger; AData:Pointer; ASize:Integer; var ACount:Integer):LongInt; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function SendToSocket(ASockAddr:PSockAddr; ASockLen:Integer; AData:Pointer; ASize:Integer; var ACount:Integer):LongInt; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function RecvFromSocketEx(AHandle:THandle; ASockAddr:PSockAddr; ASockLen:PInteger; AData:Pointer; ASize:Integer; var ACount:Integer; var AClosed:Boolean):LongInt; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function SendToSocketEx(AHandle:THandle; ASockAddr:PSockAddr; ASockLen:Integer; AData:Pointer; ASize:Integer; var ACount:Integer):LongInt; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property BufferSize:Integer read FBufferSize write SetBufferSize;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property BroadcastEnabled:Boolean read FBroadcastEnabled write SetBroadcastEnabled;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function RecvData(AData:Pointer; ACount:Integer):Integer; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function SendData(AData:Pointer; ACount:Integer):Integer; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function BroadcastData(AData:Pointer; ACount:Integer):Integer; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function RecvDataFrom(var AHost:String; var APort:Word; AData:Pointer; ACount:Integer):Integer; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function SendDataTo(const AHost:String; APort:Word; AData:Pointer; ACount:Integer):Integer; virtual;</code>	+
−	| &nbsp;	+
	|-		|-
−	| <code>function BroadcastDataTo(const AAddress:String; APort:Word; AData:Pointer; ACount:Integer):Integer; virtual;</code>	+	| [[TWinsock2UDPSocket|<code>TWinsock2UDPSocket = class(TWinsock2Socket)</code>]]
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>
−	'''Winsock2 RAW client'''	+	'''Raw client classes'''
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	<code>TWinsock2RAWClient = class(TWinsock2RAWSocket)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
	|-		|-
−	|colspan="2"|Note: Raw Client classes	+	| [[TWinsock2RAWClient|<code>TWinsock2RAWClient = class(TWinsock2RAWSocket)</code>]]
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>constructor Create;</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	| <code>destructor Destroy; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FUseConnect:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FRemoteHost:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FRemoteAddress:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure SetUseConnect(AUseConnect:Boolean);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure SetFamily(AFamily:Integer); override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure SetBoundAddress(const ABoundAddress:String); override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure SetRemoteHost(const ARemoteHost:String);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetRemoteAddress(const ARemoteAddress:String);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>	+
−	|-	+
−	| <code>function AllocateFamily:Boolean; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function AllocateRemoteAddress(var ALength:Integer):PSockAddr;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property UseConnect:Boolean read FUseConnect write SetUseConnect;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property RemoteHost:String read FRemoteHost write SetRemoteHost;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property RemoteAddress:String read FRemoteAddress write SetRemoteAddress;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function Connect:Boolean; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function Disconnect:Boolean; override;</code>	+
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>
−	'''Winsock2 TCP client'''	+	'''Stream client classes'''
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	<code>TWinsock2TCPClient = class(TWinsock2TCPSocket)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
−	|-	+
−	|colspan="2"|Note: Stream Client classes	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>constructor Create;</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	| <code>destructor Destroy; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FRemotePort:Word;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FRemoteHost:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FRemoteAddress:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure SetFamily(AFamily:Integer); override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure SetBoundAddress(const ABoundAddress:String); override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure SetRemotePort(ARemotePort:Word);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetRemoteHost(const ARemoteHost:String);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetRemoteAddress(const ARemoteAddress:String);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>	+
−	|-	+
−	| <code>function AllocateFamily:Boolean; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function AllocateRemoteAddress(var ALength:Integer):PSockAddr;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property RemotePort:Word read FRemotePort write SetRemotePort;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property RemoteHost:String read FRemoteHost write SetRemoteHost;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property RemoteAddress:String read FRemoteAddress write SetRemoteAddress;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function Connect:Boolean; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function ConnectEx:Boolean; virtual;</code>	+
−	| &nbsp;	+
	|-		|-
−	| <code>function Disconnect:Boolean; override;</code>	+	| [[TWinsock2TCPClient|<code>TWinsock2TCPClient = class(TWinsock2TCPSocket)</code>]]
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>
−	'''Winsock2 UDP client'''	+	'''Datagram client classes'''
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	<code>TWinsock2UDPClient = class(TWinsock2UDPSocket)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
	|-		|-
−	|colspan="2"|Note: Datagram Client classes	+	| [[TWinsock2UDPClient|<code>TWinsock2UDPClient = class(TWinsock2UDPSocket)</code>]]
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>constructor Create;</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	| <code>destructor Destroy; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FUseConnect:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FRemotePort:Word;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FRemoteHost:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FRemoteAddress:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure SetUseConnect(AUseConnect:Boolean);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure SetFamily(AFamily:Integer); override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure SetBoundAddress(const ABoundAddress:String); override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure SetRemotePort(ARemotePort:Word);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetRemoteHost(const ARemoteHost:String);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetRemoteAddress(const ARemoteAddress:String);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>	+
−	|-	+
−	| <code>function AllocateFamily:Boolean; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function AllocateRemoteAddress(var ALength:Integer):PSockAddr;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property UseConnect:Boolean read FUseConnect write SetUseConnect;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property RemotePort:Word read FRemotePort write SetRemotePort;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property RemoteHost:String read FRemoteHost write SetRemoteHost;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property RemoteAddress:String read FRemoteAddress write SetRemoteAddress;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function Connect:Boolean; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function Disconnect:Boolean; override;</code>	+
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>
−	'''Winsock2 TCP server'''	+	'''Stream server classes'''
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	<code>TWinsock2TCPServer = class(TWinsock2TCPSocket)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
	|-		|-
−	|colspan="2"|Note: Stream Server classes	+	| [[TWinsock2TCPServer|<code>TWinsock2TCPServer = class(TWinsock2TCPSocket)</code>]]
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>constructor Create(AListener:TWinsock2TCPListener);</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FPeerPort:Word;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FPeerAddress:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FListener:TWinsock2TCPListener;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>	+
−	|-	+
−	| <code>procedure SetHandle(AHandle:TSocket); virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetLastError(ALastError:LongInt); virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property PeerPort:Word read FPeerPort;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property PeerAddress:String read FPeerAddress;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Listener:TWinsock2TCPListener read FListener;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function Disconnect:Boolean; override;</code>	+
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	'''Winsock2 TCP server thread'''	+
−		+
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+
−		+
−	<code>TWinsock2TCPServerThread = class(TWinsock2SocketThread)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
	|-		|-
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+	| [[TWinsock2TCPServerThread|<code>TWinsock2TCPServerThread = class(TWinsock2SocketThread)</code>]]
−	|-	+
−	| <code>constructor Create(AServer:TWinsock2TCPServer);</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	| <code>destructor Destroy; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FData:TObject;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FServer:TWinsock2TCPServer;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>	+
−	|-	+
−	| <code>procedure AfterExecution; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure BeforeExecution; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property Data:TObject read FData write FData;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Server:TWinsock2TCPServer read FServer;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure Execution; override;</code>	+
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	'''Winsock2 TCP listener thread'''	+
−		+
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+
−		+
−	<code>TWinsock2TCPListenerThread = class(TWinsock2SocketThread)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
	|-		|-
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+	| [[TWinsock2TCPListenerThread|<code>TWinsock2TCPListenerThread = class(TWinsock2SocketThread)</code>]]
−	|-	+
−	| <code>constructor Create(AListener:TWinsock2TCPListener);</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FListener:TWinsock2TCPListener;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>	+
−	|-	+
−	| <code>procedure AfterExecution; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure BeforeExecution; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property Listener:TWinsock2TCPListener read FListener;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure Execution; override;</code>	+
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	'''Winsock2 TCP server threads'''	+
−		+
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+
−		+
−	<code>TWinsock2TCPServerThreads = class(TWinsock2SocketThreads)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
	|-		|-
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+	| [[TWinsock2TCPServerThreads|<code>TWinsock2TCPServerThreads = class(TWinsock2SocketThreads)</code>]]
−	|-	+
−	| <code>procedure TerminateThread(AThread:TWinsock2TCPServerThread);</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>procedure TerminateAll;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function Terminate(AThread:TWinsock2TCPServerThread):Boolean;</code>	+
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	'''Winsock2 TCP listener'''	+
−		+
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+
−		+
−	<code>TWinsock2TCPListener = class(TWinsock2TCPSocket)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>constructor Create;</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	| <code>destructor Destroy; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FActive:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FThreads:TWinsock2TCPServerThreads;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FListenerThread:TWinsock2TCPListenerThread;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FOnExecute:TTCPExecuteEvent;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FOnConnect:TTCPConnectEvent;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FOnDisconnect:TTCPDisconnectEvent;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FOnCreateThread:TTCPCreateThreadEvent;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure SetActive(AActive:Boolean);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>	+
−	|-	+
−	| <code>procedure SetLastError(ALastError:LongInt); virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure DoConnect(AThread:TWinsock2TCPServerThread); virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure DoDisconnect(AThread:TWinsock2TCPServerThread); virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function DoExecute(AThread:TWinsock2TCPServerThread):Boolean; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property Active:Boolean read FActive write SetActive;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Threads:TWinsock2TCPServerThreads read FThreads;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property OnExecute:TTCPExecuteEvent read FOnExecute write FOnExecute;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property OnConnect:TTCPConnectEvent read FOnConnect write FOnConnect;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property OnDisconnect:TTCPDisconnectEvent read FOnDisconnect write FOnDisconnect;</code>	+
−	| &nbsp;	+
	|-		|-
−	| <code>property OnCreateThread:TTCPCreateThreadEvent read FOnCreateThread write FOnCreateThread;</code>	+	| [[TWinsock2TCPListener|<code>TWinsock2TCPListener = class(TWinsock2TCPSocket)</code>]]
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>
−	'''Winsock2 UDP server'''	+	'''Datagrams server classes'''
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	<code>TWinsock2UDPServer = class(TWinsock2UDPSocket)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
	|-		|-
−	|colspan="2"|Note: Datagrams Server classes	+	| [[TWinsock2UDPServer|<code>TWinsock2UDPServer = class(TWinsock2UDPSocket)</code>]]
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>constructor Create(AListener:TWinsock2UDPListener);</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	| <code>destructor Destroy; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FPeerPort:Word;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FPeerAddress:String;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FUseListener:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FListener:TWinsock2UDPListener;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure SetUseListener(AUseListener:Boolean);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>	+
−	|-	+
−	| <code>FBuffer:TWinsock2UDPServerBuffer;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetData:Pointer; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetSize:Integer; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetCount:Integer; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure SetBuffer(ABuffer:TWinsock2UDPServerBuffer); virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetLastError(ALastError:LongInt); virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property PeerPort:Word read FPeerPort;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property PeerAddress:String read FPeerAddress;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property UseListener:Boolean read FUseListener write SetUseListener;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Listener:TWinsock2UDPListener read FListener;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property Buffer:TWinsock2UDPServerBuffer read FBuffer;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property Data:Pointer read GetData;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Size:Integer read GetSize;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Count:Integer read GetCount;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function RecvData(AData:Pointer; ACount:Integer):Integer; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function SendData(AData:Pointer; ACount:Integer):Integer; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function BroadcastData(APort:Word; AData:Pointer; ACount:Integer):Integer; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function RecvDataFrom(var AHost:String; var APort:Word; AData:Pointer; ACount:Integer):Integer; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function SendDataTo(const AHost:String; APort:Word; AData:Pointer; ACount:Integer):Integer; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function BroadcastDataTo(const AAddress:String; APort:Word; AData:Pointer; ACount:Integer):Integer; override;</code>	+
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	'''Winsock2 UDP server thread'''	+
−		+
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+
−		+
−	<code>TWinsock2UDPServerThread = class(TWinsock2SocketThread)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
	|-		|-
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+	| [[TWinsock2UDPServerThread|<code>TWinsock2UDPServerThread = class(TWinsock2SocketThread)</code>]]
−	|-	+
−	| <code>constructor Create(AServer:TWinsock2UDPServer);</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	| <code>destructor Destroy; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FLock:TCriticalSectionHandle;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FActive:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FData:TObject;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FServer:TWinsock2UDPServer;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function AcquireLock:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function ReleaseLock:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetActive:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetActive(AActive:Boolean);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>	+
−	|-	+
−	| <code>procedure AfterExecution; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure BeforeExecution; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property Active:Boolean read GetActive write SetActive;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Data:TObject read FData write FData;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Server:TWinsock2UDPServer read FServer;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure Execution; override;</code>	+
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	'''Winsock2 UDP listener thread'''	+
−		+
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+
−		+
−	<code>TWinsock2UDPListenerThread = class(TWinsock2SocketThread)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
	|-		|-
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+	| [[TWinsock2UDPListenerThread|<code>TWinsock2UDPListenerThread = class(TWinsock2SocketThread)</code>]]
−	|-	+
−	| <code>constructor Create(AListener:TWinsock2UDPListener);</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	| <code>destructor Destroy; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FListener:TWinsock2UDPListener;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>	+
−	|-	+
−	| <code>procedure AfterExecution; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure BeforeExecution; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property Listener:TWinsock2UDPListener read FListener;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure Execution; override;</code>	+
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	'''Winsock2 UDP server threads'''	+
−		+
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+
−		+
−	<code>TWinsock2UDPServerThreads = class(TWinsock2SocketThreads)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
	|-		|-
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+	| [[TWinsock2UDPServerThreads|<code>TWinsock2UDPServerThreads = class(TWinsock2SocketThreads)</code>]]
−	|-	+
−	| <code>constructor Create(AListener:TWinsock2UDPListener);</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FMin:Integer;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FMax:Integer;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FListener:TWinsock2UDPListener;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetMin:Integer;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetMin(AMin:Integer);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetMax:Integer;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetMax(AMax:Integer);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure CreateThreads;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function CreateThread(AForce:Boolean):TWinsock2UDPServerThread;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure TerminateThread(AThread:TWinsock2UDPServerThread);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property Min:Integer read GetMin write SetMin;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Max:Integer read GetMax write SetMax;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetThread:TWinsock2UDPServerThread;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure ReleaseThread(AThread:TWinsock2UDPServerThread);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure TerminateAll;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function Terminate(AThread:TWinsock2UDPServerThread):Boolean;</code>	+
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	'''Winsock2 UDP server buffer'''	+
−		+
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+
−		+
−	<code>TWinsock2UDPServerBuffer = class(TWinsock2SocketBuffer)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
	|-		|-
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+	| [[TWinsock2UDPServerBuffer|<code>TWinsock2UDPServerBuffer = class(TWinsock2SocketBuffer)</code>]]
−	|-	+
−	| <code>constructor Create(ASize:Integer);</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	| <code>destructor Destroy; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FLock:TCriticalSectionHandle;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FActive:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FData:Pointer;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FSize:Integer;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FCount:Integer;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function AcquireLock:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function ReleaseLock:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetActive:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetActive(AActive:Boolean);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetCount(ACount:Integer);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property Active:Boolean read GetActive write SetActive;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Data:Pointer read FData;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Size:Integer read FSize;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Count:Integer read FCount write SetCount;</code>	+
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	'''Winsock2 UDP server buffers'''	+
−		+
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+
−		+
−	<code>TWinsock2UDPServerBuffers = class(TWinsock2SocketBuffers)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
	|-		|-
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+	| [[TWinsock2UDPServerBuffers|<code>TWinsock2UDPServerBuffers = class(TWinsock2SocketBuffers)</code>]]
−	|-	+
−	| <code>constructor Create(AListener:TWinsock2UDPListener);</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FMin:Integer;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FMax:Integer;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FListener:TWinsock2UDPListener;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetMin:Integer;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetMin(AMin:Integer);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function GetMax:Integer;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetMax(AMax:Integer);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure CreateBuffers;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function CreateBuffer(AForce:Boolean):TWinsock2UDPServerBuffer;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure DeleteBuffer(ABuffer:TWinsock2UDPServerBuffer);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property Min:Integer read GetMin write SetMin;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Max:Integer read GetMax write SetMax;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function GetBuffer:TWinsock2UDPServerBuffer;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure ReleaseBuffer(ABuffer:TWinsock2UDPServerBuffer);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure DeleteAll;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function Delete(ABuffer:TWinsock2UDPServerBuffer):Boolean;</code>	+
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>	+	{| class="wikitable" style="font-size: 14px; text-align: left; width: 100%; height: 50px;"
−		+
−	'''Winsock2 UDP listener'''	+
−		+
−	<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">	+
−		+
−	<code>TWinsock2UDPListener = class(TWinsock2UDPSocket)</code>	+
−	<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">	+
−	{| class="wikitable" style="font-size: 14px; background: white;"	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>constructor Create;</code>	+
−	| style="width: 50%;"|&nbsp;	+
−	|-	+
−	| <code>destructor Destroy; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>	+
−	|-	+
−	| <code>FLock:TCriticalSectionHandle;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FActive:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FUseListener:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FThreads:TWinsock2UDPServerThreads;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FBuffers:TWinsock2UDPServerBuffers;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FListenerThread:TWinsock2UDPListenerThread;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>FOnExecute:TUDPExecuteEvent;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FOnCreateThread:TUDPCreateThreadEvent;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>FOnCreateBuffer:TUDPCreateBufferEvent;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function AcquireLock:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>function ReleaseLock:Boolean;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>procedure SetActive(AActive:Boolean);</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>procedure SetUseListener(AUseListener:Boolean);</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>	+
−	|-	+
−	| <code>procedure SetLastError(ALastError:LongInt); virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function DoExecute(AThread:TWinsock2UDPServerThread):Boolean; virtual;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>function SendToSocketEx(AHandle:THandle; ASockAddr:PSockAddr; ASockLen:Integer; AData:Pointer; ASize:Integer; var ACount:Integer):LongInt; override;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>	+
−	|-	+
−	| <code>property Active:Boolean read FActive write SetActive;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property UseListener:Boolean read FUseListener write SetUseListener;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Threads:TWinsock2UDPServerThreads read FThreads;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property Buffers:TWinsock2UDPServerBuffers read FBuffers;</code>	+
−	| &nbsp;	+
−	|-	+
−	|colspan="2"|&nbsp;	+
−	|-	+
−	| <code>property OnExecute:TUDPExecuteEvent read FOnExecute write FOnExecute;</code>	+
−	| &nbsp;	+
−	|-	+
−	| <code>property OnCreateThread:TUDPCreateThreadEvent read FOnCreateThread write FOnCreateThread;</code>	+
−	| &nbsp;	+
	|-		|-
−	| <code>property OnCreateBuffer:TUDPCreateBufferEvent read FOnCreateBuffer write FOnCreateBuffer;</code>	+	| [[TWinsock2UDPListener|<code>TWinsock2UDPListener = class(TWinsock2UDPSocket)</code>]]
−	| &nbsp;	+
	|-		|-
	|}		|}
−	</div></div>
	<br />		<br />

---

Revision as of 03:53, 6 June 2018

Return to Unit Reference

Description

---

Ultibo Winsock2 interface unit

Notes:

• All BSD/Winsock functions that accept an Address or Port expect them to be in Network order.
• All other functions that take an Address or Port expect them to be in Host order.

Constants

---

Type definitions

---

See globalsock.pas

Class definitions

---

Base socket classes

TWinsock2Socket = class(TListObject)

TWinsock2SocketThread = class(TThreadEx)

TWinsock2SocketThreads = class(TObject)

TWinsock2SocketBuffer = class(TObject)

TWinsock2SocketBuffers = class(TObject)

Raw socket (SOCK_RAW) classes

TWinsock2RAWSocket = class(TWinsock2Socket)

Stream socket (SOCK_STREAM) classes

TWinsock2TCPSocket = class(TWinsock2Socket)

Datagram socket (SOCK_DGRAM) classes

TWinsock2UDPSocket = class(TWinsock2Socket)

Raw client classes

TWinsock2RAWClient = class(TWinsock2RAWSocket)

Stream client classes

TWinsock2TCPClient = class(TWinsock2TCPSocket)

Datagram client classes

TWinsock2UDPClient = class(TWinsock2UDPSocket)

Stream server classes

TWinsock2TCPServer = class(TWinsock2TCPSocket)

TWinsock2TCPServerThread = class(TWinsock2SocketThread)

TWinsock2TCPListenerThread = class(TWinsock2SocketThread)

TWinsock2TCPServerThreads = class(TWinsock2SocketThreads)

TWinsock2TCPListener = class(TWinsock2TCPSocket)

Datagrams server classes

TWinsock2UDPServer = class(TWinsock2UDPSocket)

TWinsock2UDPServerThread = class(TWinsock2SocketThread)

TWinsock2UDPListenerThread = class(TWinsock2SocketThread)

TWinsock2UDPServerThreads = class(TWinsock2SocketThreads)

TWinsock2UDPServerBuffer = class(TWinsock2SocketBuffer)

TWinsock2UDPServerBuffers = class(TWinsock2SocketBuffers)

TWinsock2UDPListener = class(TWinsock2UDPSocket)

Public variables

---

None defined

Function declarations

---

Initialization functions

Winsock2 functions

Winsock2 undocumented functions

Winsock2 enhanced functions

RTL text IO functions

Winsock2 helper functions

Return to Unit Reference