Program Examples:TCP IP:TCPIP Multi Server

The following example demonstrates the set up of a TCP-IP server that opens connection with multiple clients.

The server opens a socket and blocks on "Accept" until a client gets connected. Then an exchange of messages takes place and the server closes the connection and gets blocked again waiting to accept the next client.

program 'continue

dim str1 as string dim Test_str as string dim X as long = 20

Try OpenSocket Options=1 as #1 catch 5043 'socket is already open print "socket 1 is already open. closing an reopening" close #1 OpenSocket Options=1 as #1 End Try

while 1

Try OpenSocket Options=1 as #X catch 5043 'socket is already open print "socket 2 is already open. closing an reopening" close #X OpenSocket Options=1 as #X End Try

Test_str="Server sending test string"

Accept(#1, #X, 6001)

sleep 100 print #X, Test_str; 'send sleep 200 str1=input$(loc(X),#X) 'receive

if str1 = "Client sending test string" then ?"server.prg test is successful" else ?"server.prg test FAILED" ?str1 end if

sleep 200

close #X X = X + 1

end while

close #1 Print "Server Closed Sockets. Server Exits"

end program

See Also

• Simple Server
• Simple Client
• ACCEPT
• CLOSE
• CONNECT
• OPENSOCKET
• INPUT$
• PING