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