Halcon利用Socket实现TCP通讯

一、halcon自身封装了socket服务端和客户端的算子，可以直接调用实现TCP通讯。
二、案例
2.1 服务端代码

Protocol := 'TCP4'
Timeout := 10
*
* 创建一个监听，设置端口为4660，超时为10s
open_socket_accept (4660, ['protocol','timeout'], [Protocol,Timeout], AcceptingSocket)
* Strip AddressFamily from Protocl
tuple_regexp_match (Protocol, 'TCP|HALCON', BaseProtocol)
if (BaseProtocol == 'TCP' or BaseProtocol == 'HALCON')
    * Wait for an incoming connection, use the timeout of the
    * AcceptingSocket
    dev_error_var (Error, 1)
    dev_set_check ('~give_error')
    OpenStatus := 5
    while (OpenStatus != 2)
    socket_accept_connect (AcceptingSocket, 'auto', Socket)
    OpenStatus := Error
    endwhile
    dev_set_check ('give_error')
    * Set the same timeout on the newly created socket
    set_socket_param (Socket, 'timeout', Timeout)
else
    * UDP sockets do not need an accept()
    Socket := AcceptingSocket
endif
get_socket_param (Socket, 'address_info', Address)
*
Answer := []
while (Answer != 'End')
    receive_data (Socket, 'z', Answer, From)
    To:=[]
    Data:='received '+Answer
    Format := 'z'
    send_data (Socket, Format, Data, To)
endwhile
stop ()
close_socket (Socket)
close_socket (AcceptingSocket)

2.2 客户端代码

*
* 创建一个客户端，设置ip为127.0.0.1，设置端口为1111，超时为10s
Ip := '127.0.0.1'
Port:=1111
Timeout := 10
Protocol := 'TCP4'
open_socket_connect ('127.0.0.1', 1111, ['protocol','timeout'], [Protocol,Timeout], Socket)
* Strip AddressFamily from Protocl
tuple_regexp_match (Protocol, 'TCP|HALCON', BaseProtocol)
if (BaseProtocol == 'TCP' or BaseProtocol == 'HALCON')
    * Wait for an incoming connection, use the timeout of the
    * AcceptingSocket
    * Set the same timeout on the newly created socket
    set_socket_param (Socket, 'timeout', Timeout)
else
    * UDP sockets do not need an accept()
    *Socket := AcceptingSocket
endif
get_socket_param (Socket, 'address_info', Address)
*
Answer := []
while (Answer != 'End')
    receive_data (Socket, 'z', Answer, From)
    To:=[]
    Data:='received '+Answer
    Format := 'z'
    send_data (Socket, Format, Data, To)
endwhile
stop ()
close_socket (Socket)