#661 - TCP-Server Framework (Activex.dll Source)

TCP-Server är mitt försök till att göra en winsock.ocx replacement.
Mitt mål var att göra en komponent (COM.DLL) som var ett skal för att köra en TCP-Server helt utan
protocol (chat,web,IRC osv..)
Utvecklaren som använder TCP-Server.dll lägger till det protocol som behövs i dennes TCP-Applikation.
Komponenten sköter enbart om kommunikationen mellan Server <----> Client, Client <----> Client
Vidare skulle komponenten vara avsevärt mer resurssnål än winsock.ocx och snabbare.
Jag har inte kunnat testa den så mycket men via två datorer körde jag en server på ena och Client
på den andra. Jag drog in 3500 klienter på servern utan några som helst problem :-)

HUR DET FUNGERAR:

Public Function StartServing(ByVal lngPort As Long) As Boolean
'Servern börjar lyssna efter kommunikation på vald Port. Returnerar TRUE ifall det gick bra

Public Sub StopServing()
'Servern slutar lyssna efter kommunikation samt disconnectar redan anslutna klienter

Public Function NoOfConnections() As Long
'Returnerar antal anslutna klienter

Public Function SendDataToClient(ByVal sckDesc As Long, ByVal Message As String) As Long
'Sänder data till vald klient, returnerar antal byte sända

Public Sub SendDataToAll(ByVal Message As String)
'Sänder data till alla anslutna klienter

Public Sub CloseSocketHandle(ByVal sckDesc As Long)
'Stänger ner vald anslutning

Public Function GetUserIP(ByVal sckDesc As Long) As String
'Returnerar klientens IPnummer

Public Function GetUserHostName(ByVal sckDesc As Long) As String
'Returnerar klientens HostName

Public Function GetUserPing(ByVal sckDesc As Long, Optional TimeOutMS As Integer = 500) As Integer
'Pingar klient och returnerar resultatet (Varning anropet är inte asynkront, kör med låg TimeOutMS)

EVENTS:

Public Event OnDataArrival(ByVal sckDescriptor As Long, ByVal Data As String)
'Triggas när client skickar data

Public Event OnNewConnection(ByVal sckDescriptor As Long)
'Triggas när en ny klient ansluter

Public Event OnSocketClose(ByVal sckDescriptor As Long)
'Triggas när en klient avslutar eller när "servern" stänger ner klienten