Halcon 13.0 操作TCP实例(服务端和客户端)

本内容提供Halcon编写的服务端和客户端
建议配套SOCKET调试工具一起使用。
链接：http://pan.baidu.com/s/1bpeMZDl 密码：293d

服务器端代码：

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)

复制代码

客户端代码：

1. * 关闭错误显示
   
2. dev_set_check ('~give_error')
   
3. 
   
4. * 参数设置
   
5. Protocol := 'TCP4'
   
6. Timeout := 3.0
   
7. 
   
8. * 打开SOCKET 仅用于接连接服务端
   
9. open_socket_connect ('localhost', 7080,['protocol','timeout'], [Protocol,Timeout], Socket)
   
10. 
    
11. * 获取客户端地址和端口信息
    
12. get_socket_param (Socket, 'address_info', Address)
    
13. * 获取对方IP和端口信息
    
14. if(|Address|=4)
    
15.     To:=[]
    
16.     To:= [Address[2],Address[3]]
    
17. endif
    
18. 
    
19. Answer := []
    
20. * 数据通讯 发送End字符串结束监听
    
21. while (Answer != 'End')
    
22.     Format := 'z'
    
23.     * 获取客户度发送的消息
    
24.     receive_data (Socket, Format, Answer, From)
    
25.     if (|Answer|>0)
    
26.         Data:='Recv:'+Answer  
    
27.         send_data (Socket, Format, Data, To)
    
28.     endif
    
29.       
    
30. endwhile
    
31. 
    
32. close_socket (Socket)
    

复制代码

谢谢分享，虽然暂时还用不到，暂时在找串口开发通信的方法，目前只能直接用C#自带的，halcon没有找到

srtthree 发表于 2017-2-14 16:02
谢谢分享，虽然暂时还用不到，暂时在找串口开发通信的方法，目前只能直接用C#自带的，halcon没有找到

串口操作的地址在：https://www.51halcon.com/thread-508-1-1.html

zhuzhzuhzuzhzhzuhzzuhzuhzuzhzuhzhzzuhzuzhu

zhuzhzuhzuzhzhzuhzzuhzuhzuzhzuhzhzzuhzuzhu

学习了

ofdgpsdfgkfdgdfsgsdf

:D

多谢分享~~~~~~~~~~~~~~~

谢谢分享，虽然暂时还用不到,在学习初级教程的