Program Examples:TCP IP:TCPIP Simple Client

From SoftMC-Wiki
Revision as of 08:35, 22 May 2014 by Miborich (talk | contribs)
Jump to: navigation, search

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

See Also

Retrieved from "http://softmc.servotronix.com/index.php?title=Program_Examples:TCP_IP:TCPIP_Simple_Client&oldid=117848"