How do i accept multiple TCP connections using Chilkatsoft's Socket component?

Hello.  I have a lot of components from chilkatsoft and one i'm trying to learn right now is here:
http://www.chilkatsoft.com/refdoc/xChilkatSocketRef.html

i've looked at the examples but what i'm trying to do here is create a small program that listens on a TCP port i choose and just like any type of server app like a web server or ftp server, i want my program to listen for multiple connections etc etc.  what my plan is, is to have my app listen on the port and then have a client running another client app that runs on a schedule i provide and sends a string to the server app on the port i specify.  then the server app, based on what the string is, performs some type of action..like spawning another process etc etc..

is there anyone who has some experience with the chilkatsoft socket component that can provide me with some example code on how to achieve something like this?  i think just the "server" portion is what i would need!

thanks!
linuxroxAsked:
Who is Participating?
 
inthedarkConnect With a Mentor Commented:
I also have examples for .NET but here is the VB6 example:


To start the IP server running
 
Set WServer = New ucWorld
OK = WServer.StartServer(8080, "192.168.0.3")
 
To Accept an incoming connection an event is fired on the WServer object
 
Private Sub WServer_NewConnection(Client As ucWorld)
 
List1.AddItem "New Connection: " + CStr(Client.ClientID)
 
Dim OK
 
OK = Client.ClientSendOK("Hi buddy how are you today?")
 
End Sub
 
' You then get messages sent from the client to the server. The WServer handles that event.
 
Private Sub WServer_MessageToServer(Client As ucWorld, ByVal NewClient As Boolean, MessageReceived As String, MessageToReply As String)
List1.AddItem "Message To server: " + CStr(Client.ClientID) + " " + MessageReceived
 
MessageToReply = "<HTM><BODY>OK BUDDY</BODY></HTML>"
 
End Sub
 
 
'-----------Part of ucWorld.cls
 
Public Function ServerStartOK(Port As Long, ServerIPAddresses As String, Optional Protocol As MSWinsockLib.ProtocolConstants = sckTCPProtocol)
 
' Make this instance a Server
 
Set Clients = New ucClients
 
ServerMode = True
 
On Error Resume Next
Sock.Protocol = Protocol
Sock.LocalPort = Port
Dim sIPAddresses() As String
Dim lc As Long
 
sIPAddresses() = Split(ServerIPAddresses, ";")
 
For lc = 0 To UBound(sIPAddresses)
    Sock.Bind Port, sIPAddresses(lc)
    If Err.Number <> 0 Then
        ErrD = "Cannot bind port to: " + sIPAddresses(lc) + " " + Err.Description
        ErrN = Err.Number
        ServerStartOK = False
        Exit Function
    End If
Next lc
 
 
Sock.Listen
If Err.Number <> 0 Then
    ErrD = Err.Description
    ErrN = Err.Number
    ServerStartOK = False
Else
    ServerMode = True
    ServerStartOK = True
End If
Mode = 1
 
End Function

Open in new window

0
 
inthedarkCommented:
What language are you using? If you want to us VB6 I have a class which will do exactly what you want. With no hidden code you can see the full picture.

Simply you wait for a new connection; then fire a client who listens to that one connection.

If you want to go that way let me know :~)
0
 
linuxroxAuthor Commented:
VB6.
0
The new generation of project management tools

With monday.com’s project management tool, you can see what everyone on your team is working in a single glance. Its intuitive dashboards are customizable, so you can create systems that work for you.

 
linuxroxAuthor Commented:
that sounds cool.  now is this using chilkat or is this using winsock or something else?
0
 
inthedarkCommented:
The example uses Winsock.

I created a simple class that can either be a client or a server.

The server handles incoming clients, once connected they are stacked into a collection of clients.

The client allows you to connect to a server and wait for messages. Incoming messages drive an event where you can decode the message and send a response.
0
 
linuxroxAuthor Commented:
cool!  i'll have a look at this in a while!  thx again!
0
 
inthedarkCommented:
If you are interested I can post the whole class.
0
 
linuxroxAuthor Commented:
hey that'd be cool as well!!!  
0
 
linuxroxAuthor Commented:
thanks again!! great stuff!! woohoo!
0
 
inthedarkCommented:
send me a mail to: nick (at) z123 (dot) co (dot) uk

I will reply with a dummy project.
0
All Courses

From novice to tech pro — start learning today.