Difference between revisions of "Program Examples:TCP IP:TCPIP Simple Client"
m |
m |
||
| Line 13: | Line 13: | ||
OpenSocket Options=1 as #3 | OpenSocket Options=1 as #3 | ||
catch 5043 'socket is already open | catch 5043 'socket is already open | ||
| − | print "socket 3 is already open. Closing and reopening" | + | print "socket 3 is already open. Closing and reopening" |
close #3 | close #3 | ||
OpenSocket Options=1 as #3 | OpenSocket Options=1 as #3 | ||
Revision as of 14:10, 2 April 2014
The following example demonstrates the set up of a simple TCP-IP client.
The client opens a socket and tries to connect. The server must be blocked on accept for "connect" to be successful. Then an exchange of messages takes place and the client closes the connection and terminates.
program Dim str1 as string Dim Test_str1 as string< Dim Test_str2 as string Try OpenSocket Options=1 as #3 catch 5043 'socket is already open print "socket 3 is already open. Closing and reopening" close #3 OpenSocket Options=1 as #3 End Try Test_str1="Client sending " Test_str2="test string" Connect(#3, "10.4.20.214", 6001) sleep 200 print #3, Test_str1;Test_str2; 'send sleep 200 str1=input$(loc(3),#3) 'receive if str1="Server sending test string" then ?"client.prg test is successful" else ?"client.prg test FAILED" ?str1 , len(str1) end if sleep 200 close #3 Print "Client Closed Socket. Client Exits" end program