Halcon TCP 服务端接收命令

Halcon TCP 服务端接收命令

vbnet 复制代码
* 1.创建服务端 ****************************************

* 协议
Protocol := 'TCP4'
* 端口
Port := 5321
* 超时
Timeout := 1.0

* 打开TCP服务端
open_socket_accept (Port, ['protocol', 'timeout'], \
                    [Protocol,Timeout], AcceptingSocket)

* 2.循环接受客户端链接 ****************************************
tuple_regexp_match (Protocol, 'TCP', BaseProtocol)
if (BaseProtocol == 'TCP')
    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_socket_param (Socket, 'timeout', Timeout)
else
    Socket := AcceptingSocket
endif

* 获取TCP连接的信息
get_socket_param (Socket, 'address_info', Address)
* 历史数据
data_hst := []
* 当前接受的数据
Answer := []
* 3.循环获取接收 客户端发送的数据 ****************************************
while (Answer != 'End')
    * 接收数据
    try
        Format:=['z']
        receive_data (Socket, Format, Answer, From)
    catch (Exception)
    endtry
    
    * 数据 是否为空
    recv_len := |Answer|
    if(recv_len == 0)
        continue
    endif
    
*     json_to_dict (Answer, [], [], DictHandle)
    
    * 4.返回接受到的数据 ****************************************
    if (From[1] == 0)
        Data := '' + Answer[1]
    else
        Data := '' + Answer
    endif
    
    * 返回的IP地址与端口
    To := [From[0],From[1]]
    Format := 'z'
    * 发送回复命令
    send_data (Socket, Format, Data, To)
    * 保存历史命令
    data_hst := [data_hst, Answer]
    Answer := []
endwhile
相关推荐
仙贝大饼14 天前
C#Halcon从零开发_Day14_AOI缺陷检测策略1_Bolb分析+特征分析_饼干破损检测
c#·缺陷检测·halcon·机器视觉·aoi
张鱼小丸子_微辣15 天前
Halcon/C# 图像窗口、读取图片及仿射变换
c#·halcon
lingxiao1688817 天前
管件接头的无序抓取
机器学习·计算机视觉·halcon·3d视觉
机器视觉知识推荐、就业指导18 天前
Qt联合Halcon开发一:Qt配置Halcon环境【详细图解流程】
开发语言·qt·halcon
lingxiao1688824 天前
对3D对象进行形变分析
计算机视觉·halcon·3d视觉·3d表面匹配·3d变形的表面匹配
码小跳25 天前
Halcon案例(三):C#联合Halcon识别排线
计算机视觉·c#·halcon
栗克1 个月前
Halcon 图像预处理②
人工智能·计算机视觉·halcon
栗克1 个月前
halcon 透视矩阵
计算机视觉·halcon
一杯解心烦1 个月前
Halcon透视矩阵
矩阵·halcon
LeonDL1681 个月前
HALCON 深度学习训练 3D 图像的几种方式优缺点
人工智能·python·深度学习·3d·halcon·halcon训练3d图像·深度学习训练3d图像