Difference between revisions of "Program Examples:TCP IP:TCPIP Simple Client/zh-hans"
(Created page with "{{Languages}} 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 fo...") |
|||
| Line 1: | Line 1: | ||
{{Languages}} | {{Languages}} | ||
| − | |||
| − | + | 以下示例演示了一个简单的TCP-IP客户端的设置。 | |
| + | |||
| + | 客户端打开一个套接字并尝试连接。 服务器必须被禁止接受才能“connect”成功。 然后发生消息交换，客户端关闭连接并终止。 | ||
<syntaxhighlight lang="vb"> | <syntaxhighlight lang="vb"> | ||
| Line 46: | Line 47: | ||
| − | + | 该示例对应于提交SHA-1: ada143a7f402e6bbad24c13c56401a5393ce3d2b in GIT. | |
| − | == | + | == 参见 == |
* [[Program Examples:TCP IP:TCPIP Simple Server|TCP/IP Simple Server]] | * [[Program Examples:TCP IP:TCPIP Simple Server|TCP/IP Simple Server]] | ||
* [[Program Examples:TCP IP:TCPIP Multi Server|TCP/IP Multi Clients Server]] | * [[Program Examples:TCP IP:TCPIP Multi Server|TCP/IP Multi Clients Server]] | ||
Revision as of 08:12, 16 July 2017
| 语言: | [[::Program Examples:TCP IP:TCPIP Simple Client|English]] • [[::Program Examples:TCP IP:TCPIP Simple Client/zh-hans|中文（简体）]] |
|---|
以下示例演示了一个简单的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
该示例对应于提交SHA-1: ada143a7f402e6bbad24c13c56401a5393ce3d2b in GIT.