Difference between revisions of "Program Examples:TCP IP:TCPIP Simple Server"
m (Miborich moved page Axystems:Program Examples:TCP IP:TCPIP Simple Server to Program Examples:TCP IP:TCPIP Simple Server: Global renaming of Axystems: namespace into (Main):) |
|||
| Line 4: | Line 4: | ||
closes the connection and terminates: | closes the connection and terminates: | ||
| − | < | + | <syntaxhighlight lang="vb"> |
program 'continue | program 'continue | ||
| Line 40: | Line 40: | ||
end program | end program | ||
| − | </ | + | </syntaxhighlight> |
== See Also == | == See Also == | ||
Revision as of 12:18, 2 November 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 already 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