ABB Server（服务端）代码解析

Posted 2020-10-22 杨顺旺

PROC Server()
!声明变量
VAR socketdev temp_socket;
VAR socketdev client_socket;
VAR string received_string;

!清屏
TPErase;

!关闭之前的连接
SocketClose temp_socket;
SocketClose client_socket;

!创建新的连接
SocketCreate temp_socket;

!与新的指定服务器IP地址和端口号绑定
SocketBind temp_socket,"192.168.1.100",8005;

!用于开始监听输入连接，即开始充当服务器。
SocketListen temp_socket;

!用于接受输入连接请求。
SocketAccept temp_socket,client_socket;

!执行死循环，即一直处于收发状态
WHILE TRUE DO
SocketReceive client_socket\Str:=received_string; !等待接收数据
TPWrite "Client wrote - "+received_string; !写屏
SocketSend client_socket\Str:="Server Mes"; !接收以后发送反馈数据
ENDWHILE

!关闭连接
SocketClose temp_socket;
SocketClose client_socket;
ENDPROC