Difference between revisions of "Program Examples:TCP IP:TCPIP Simple Server"
m |
m |
||
| Line 1: | Line 1: | ||
The following example demonstrates the set up of a simple TCP-IP server. | The following example demonstrates the set up of a simple TCP-IP server. | ||
| − | The server opens a socket and blocks on "Accept" until a client gets connected. Then an exchange of messages takes place and the server | + | 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 terminates: | closes the connection and terminates: | ||
| Line 10: | Line 10: | ||
dim Test_str as string | dim Test_str as string | ||
| − | Try | + | Try |
OpenSocket Options=1 as #1 | OpenSocket Options=1 as #1 | ||
catch 5043 'socket is alzready open | catch 5043 'socket is alzready open | ||
print "socket 1 is already open. closing an reopening" | print "socket 1 is already open. closing an reopening" | ||
| − | close #1 | + | close #1 |
OpenSocket Options=1 as #1 | OpenSocket Options=1 as #1 | ||
End Try | End Try | ||
Revision as of 14:10, 2 April 2014
The following example demonstrates the set up of a simple TCP-IP server.
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 terminates:
program 'continue dim str1 as string dim Test_str as string Try OpenSocket Options=1 as #1 catch 5043 'socket is alzready open print "socket 1 is already open. closing an reopening" close #1 OpenSocket Options=1 as #1 End Try Test_str="Server sending test string" Accept(#1, 6001) sleep 100 print #1,Test_str; 'send sleep 200 str1=input$(loc(1),#1) 'receive if str1 = "Client sending test string" then ?"server.prg test is successful" else ?"server.prg test FAILED" ?str1 end if sleep 200< close #1< Print "Server Closed Sockets. Server Exits" end program