halcon利用socket和运控控制demo通讯的代码

1. * 关闭错误显示
   
2. dev_set_check ('~give_error')
   
3. 
   
4. * 参数设置
   
5. Protocol := 'TCP4'
   
6. Timeout := 3.0
   
7. 
   
8. * 打开SOCKET 仅用于接受客户端连接
   
9. open_socket_accept (7080, ['protocol','timeout'], [Protocol,Timeout], AcceptingSocket)
   
10. 
    
11. * 判断协议
    
12. tuple_regexp_match (Protocol, 'TCP|HALCON', BaseProtocol)
    
13. if (BaseProtocol == 'TCP' or BaseProtocol == 'HALCON')
    
14.     dev_error_var (Error, 1)
    
15.     OpenStatus := 5
    
16.     * 等待客户端连接
    
17.     while (OpenStatus != 2)
    
18.         socket_accept_connect (AcceptingSocket, 'auto', Socket)
    
19.         OpenStatus := Error
    
20.     endwhile
    
21.    
    
22.     *  为当前连接的客户端创建新socket 用于通讯
    
23.     set_socket_param (Socket, 'timeout', Timeout)
    
24. else
    
25.     *
    
26.     * UDP sockets 不需要 accept()方法
    
27.     Socket := AcceptingSocket
    
28. endif
    
29. 
    
30. * 获取客户端地址和端口信息
    
31. get_socket_param (Socket, 'address_info', Address)
    
32. * 获取对方IP和端口信息
    
33. if(|Address|=4)
    
34.     To:=[]
    
35.     To:= [Address[2],Address[3]]
    
36. endif
    
37. 
    
38. Answer := []
    
39. * 数据通讯 发送End字符串结束监听
    
40. while (Answer != 'End')
    
41.     Format := 'z'
    
42.     * 获取客户度发送的消息
    
43.     receive_data (Socket, Format, Answer, From)
    
44.     if (|Answer|>0)
    
45.         Data:='Recv:'+Answer  
    
46.         send_data (Socket, Format, Data, To)
    
47.     endif
    
48.       
    
49. endwhile
    
50. 
    
51. close_socket (Socket)
    
52. close_socket (AcceptingSocket)

复制代码

记得最后是加一个Socket调试工具进行调试。
链接：http://pan.baidu.com/s/1gfftFzH 密码：h9in

halcon10版本的是这样，个别的运算符号不一样

1. * 关闭错误显示
   
2. dev_set_check ('~give_error')
   
3. 
   
4. * 参数设置
   
5. Protocol := 'TCP4'
   
6. Timeout := 3.0
   
7. 
   
8. * 打开SOCKET 仅用于接受客户端连接
   
9. open_socket_accept (7080, ['protocol','timeout'], [Protocol,Timeout], AcceptingSocket)
   
10. 
    
11. * 判断协议
    
12. tuple_regexp_match (Protocol, 'TCP|HALCON', BaseProtocol)
    
13. if (BaseProtocol = 'TCP' or BaseProtocol = 'HALCON')
    
14.     dev_error_var (Error, 1)
    
15.     OpenStatus := 5
    
16.     * 等待客户端连接
    
17.     while (OpenStatus # 2)
    
18.         socket_accept_connect (AcceptingSocket, 'auto', Socket)
    
19.         OpenStatus := Error
    
20.     endwhile
    
21.    
    
22.     *  为当前连接的客户端创建新socket 用于通讯
    
23.     set_socket_param (Socket, 'timeout', Timeout)
    
24. else
    
25.     *
    
26.     * UDP sockets 不需要 accept()方法
    
27.     Socket := AcceptingSocket
    
28. endif
    
29. 
    
30. * 获取客户端地址和端口信息
    
31. get_socket_param (Socket, 'address_info', Address)
    
32. * 获取对方IP和端口信息
    
33. if(|Address|=4)
    
34.     To:=[]
    
35.     To:= [Address[2],Address[3]]
    
36. endif
    
37. 
    
38. Answer := []
    
39. * 数据通讯 发送End字符串结束监听
    
40. while (Answer # 'End')
    
41.     Format := 'z'
    
42.     * 获取客户度发送的消息
    
43.     receive_data (Socket, Format, Answer, From)
    
44.     if (|Answer|>0)
    
45.         Data:='Recv:'+Answer  
    
46.         send_data (Socket, Format, Data, To)
    
47.     endif
    
48.       
    
49. endwhile
    
50. 
    
51. close_socket (Socket)
    
52. close_socket (AcceptingSocket)
    

复制代码

指令的变化，说明halcon也在靠近主流语言的语法，这样更加有利于开发者学习！

mark一下
！！！

感謝樓主分享

mark一下

mark一下