Difference between revisions of "Program Examples:TCP IP:TCPIP Simple Client/zh-hans"
| Line 1: | Line 1: | ||
| − | {{Languages}} | + | {{Languages|Program_Examples:TCP_IP:TCPIP_Simple_Client}} |
以下示例演示了一个简单的TCP-IP客户端的设置。 | 以下示例演示了一个简单的TCP-IP客户端的设置。 | ||
| Line 47: | Line 47: | ||
| − | + | 该示例对应于在GIT中的提交的SHA-1: ada143a7f402e6bbad24c13c56401a5393ce3d2b. | |
Latest revision as of 08:18, 16 July 2017
| 语言: | English • 中文（简体） |
|---|
以下示例演示了一个简单的TCP-IP客户端的设置。
客户端打开一个套接字并尝试连接。 服务器必须被禁止接受才能“connect”成功。 然后发生消息交换，客户端关闭连接并终止。
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
该示例对应于在GIT中的提交的SHA-1: ada143a7f402e6bbad24c13c56401a5393ce3d2b.