Difference between revisions of "Program Examples:TCP IP:TCPIP Simple Server/zh-hans"
(Created page with "{{Languages}} The following example demonstrates the set up of a simple TCP-IP server. The server opens a socket and blocks on "Accept" until a client gets connected. Then an...") |
|||
| Line 1: | Line 1: | ||
{{Languages}} | {{Languages}} | ||
| − | + | 以下示例演示了一个简单的TCP-IP服务器的设置。 | |
| − | + | 服务器打开一个套接字并阻止“Accept”，直到客户端连接。 然后发生一次消息交换后，服务器关闭连接并终止: | |
| − | |||
<syntaxhighlight lang="vb"> | <syntaxhighlight lang="vb"> | ||
| Line 44: | Line 43: | ||
| − | + | 该示例对应于提交在GIT中的SHA-1: ada143a7f402e6bbad24c13c56401a5393ce3d2b in GIT. | |
| − | == | + | == 参见 == |
* [[Program Examples:TCP IP:TCPIP Simple Client|TCP/IP Simple Client]] | * [[Program Examples:TCP IP:TCPIP Simple Client|TCP/IP Simple Client]] | ||
* [[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:09, 16 July 2017
| 语言: | [[::Program Examples:TCP IP:TCPIP Simple Server|English]] • [[::Program Examples:TCP IP:TCPIP Simple Server/zh-hans|中文（简体）]] |
|---|
以下示例演示了一个简单的TCP-IP服务器的设置。
服务器打开一个套接字并阻止“Accept”，直到客户端连接。 然后发生一次消息交换后，服务器关闭连接并终止:
program 'continue
dim str1 as string
dim Test_str as string
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
Test_str="Server sending test string"
Accept(#1, 6001)
sleep 100
print #1,Test_str; 'send
sleep 200
str1=input$(loc(1),#1) 'receive
if str1 = "Client sending test string" then
?"server.prg test is successful"
else
?"server.prg test FAILED"
?str1
end if
sleep 200
close #1
Print "Server Closed Sockets. Server Exits"
end program
该示例对应于提交在GIT中的SHA-1: ada143a7f402e6bbad24c13c56401a5393ce3d2b in GIT.