Program Examples:TCP IP:TCPIP Multi Server/zh-hans

From SoftMC-Wiki
Jump to: navigation, search
语言: English  • 中文(简体)‎

以下示例演示了建立与多个客户机打开连接的TCP-IP服务器。

服务器打开一个套接字并阻止"Accept",直到客户端连接。 然后发生消息交换,服务器关闭连接并再次被阻止等待接受下一个客户端。

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


该示例对应于在GIT中的提交的SHA-1: ada143a7f402e6bbad24c13c56401a5393ce3d2b.


参见