功能：建立TCP客户端，从服务器接收数据
THIK：no~

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
* 参数设置
Protocol := 'TCP4'
Timeout := 60

* 打开SOCKET 仅用于接连接服务端，需指定IP和端口
open_socket_connect ('192.168.0.10', 10, ['protocol','timeout'], [Protocol,Timeout], Socket)


* 接受数据
s4 := ''

while (s4 != 'END')
    Format := 'z'
    receive_data (Socket, Format, s1, From)
    receive_data (Socket, Format, s2, From)
    receive_data (Socket, Format, s3, From)
    receive_data (Socket, Format, s4, From)
endwhile

close_socket (Socket)