用Delphi开发DLL来代替8581协议控制和采集华为PSM—A10电源 (三.思路)

本文介绍智能设备数据采集程序开发思路。先给出系统接口方法及添加的方法,包括计算校验和、建立发送命令等。修改采集程序,添加三个方法简化检查部分。上层采集程序调用Query方法,确保通信版本一致,建立11个采集命令,对数据接收处理和控制处理也有详细操作。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

现在补上开发思路

系统接口方法:

    Query    ExecCmd    PROC_RPTSIGNAL     PROC_RPTRUNTIMEMSG

添加的方法:

 

{--------------计算校验和的过程------------------------------------}

{-------@param inputBuf: 输入的字节数组----------------------}

{-------2005-06-28 add by Fane--------------------------------------}

procedure setchecksum(var inputBuf: array of Byte);

 

 

 

{--------------建立发送命令的过程------------------------------------------------}

{-------@param Ver: byte 版本号--------------------------------------------------}

{-------@param Addr: byte 地址---------------------------------------------------}

{-------@param Cid1: byte 控制标识码------------------------------------------}

{-------@param Cid2: byte 命令信息:控制标识码相应信息---------------}

{-------@param InfoLen:integer   命令内容长度------------------------------}

{-------------将程序里的全局变量SendCommand填充-----------------------}

{-------2005-06-17 add by Fane-----------------------------------------------------}

procedure fillSendCommand(Ver,Addr,Cid1,Cid2: byte;InfoLen:integer);

 

 

 

{--------------得到通信版本的函数-------------------------------------------------------------------------}

{-------@param hComm: longword 通道号---------------------------------------------------------------}

{-------@param version:Byte 版本号(保持默认或为0)------------------------------------------------}

{-------@param nMAddr:LongInt 地址--------------------------------------------------------------------}

{-------@param Aportmethod:Byte 通讯模式-------------------------------------------------------------}

{-------@return :Byte-----得到程序的版本并返回-------------------------------------------------------}

{-------2005-06-20 add by Fane------------------------------------------------------------------------------}

function getVersion(hComm: longword;version:Byte;nMAddr:LongInt;Aportmethod:Byte):Byte;

 

 

 

{--------------得到转化字节的过程----------------------------------}

{-------@param input1: Byte 数据高位-----------------------------}

{-------@param input2: Byte 数据低位-----------------------------}

{-------@param reAssign: Byte 得到的数据-----------------------}

{-------2005-06-27 add by Fane---------------------------------------}

procedure change2to1(input1,input2:Byte;var reAssign: Byte);

 

 

修改采集程序

回报类型:

4:  中间过程采集发

 

5:中间过程采集收

中间过程数据采用45回报

 

添加 getNoData, isCheckError, isRtnError 三个方法来替代检查部分,简化程序

{--------------是否有数据返回的过程--------------------------------------------}

{-------@param nModuleIdx: longint 模块序号------------------------------------}

{-------@param lenact: Integer 接收到的数据长度--------------------------------}

{-------@param proc: PROC_RPTSIGNAL 回调接口(报告分解)-------------------------}

{-------@param procRpt: PROC_RPTRUNTIMEMSG  回调接口(报告收发过程)-------------}

{-------@param ReturnBuf: array of Byte 组成的返回包---------------------------}

{-------2005-07-01 add by Fane-------------------------------------------------}

function hasNoData(nModuleIdx: longint;lenact: Integer;proc: PROC_RPTSIGNAL;procRpt: PROC_RPTRUNTIMEMSG;var ReturnBuf:array of Byte):Boolean;

 

 

{--------------校验和错误的过程------------------------------------------------}

{-------@param nModuleIdx: longint 模块序号------------------------------------}

{-------@param Databuf: array of Byte 接收到的数据-----------------------------}

{-------@param proc: PROC_RPTSIGNAL 回调接口(报告分解)-------------------------}

{-------@param procRpt: PROC_RPTRUNTIMEMSG  回调接口(报告收发过程)-------------}

{-------@param ReturnBuf: array of Byte 组成的返回包---------------------------}

{-------2005-07-01 add by Fane-------------------------------------------------}

function isCheckError(nModuleIdx: longint;Databuf: array of Byte;proc: PROC_RPTSIGNAL;procRpt: PROC_RPTRUNTIMEMSG;var ReturnBuf:array of Byte):Boolean;

 

 

{--------------返回码是否正确的过程--------------------------------------------}

{-------@param nModuleIdx: longint 模块序号------------------------------------}

{-------@param Databuf: array of Byte 接收到的数据-----------------------------}

{-------@param proc: PROC_RPTSIGNAL 回调接口(报告分解)-------------------------}

{-------@param procRpt: PROC_RPTRUNTIMEMSG  回调接口(报告收发过程)-------------}

{-------@param ReturnBuf: array of Byte 组成的返回包---------------------------}

{-------@param I: Integer 开始位置---------------------------------------------}

{-------2005-07-01 add by Fane-------------------------------------------------}

function isRtnError(nModuleIdx: longint;Databuf: array of Byte;proc: PROC_RPTSIGNAL;procRpt: PROC_RPTRUNTIMEMSG;var ReturnBuf:array of Byte;I: Integer):Boolean;

 

上层采集程序调用Query方法-----实现智能设备数据采集

首先必须确保通信的版本一致

在Query方法里先调用getVersion来得到通信的版本,再版本为0时,对version赋值$20

根据采集需要,建立11个采集命令

分别是

交流配电模拟量采集(浮点),交流配电开关量采集,交流配电告警量采集,交流配电参数采集

整流配电模拟量采集(浮点),整流配电开关量采集,整流配电模拟量采集

直流配电模拟量采集(浮点),直流配电告警量采集,直流配电参数采集

系统状态采集

数据接收处理:

先通过hasNoData判断是否有数据回报,返回为真表示无数据,上报通信故障

isCheckError判断是否是校验和错误,返回真时表校验和错误,报故障

isRtnError判断是否返回码错误,返回为真时表相应错误,报故障

接着对得到的数据解析DataBuf

拆掉包头,取出数据信息并填入到相应的采集通道(就是某个采集量的定义)

控制处理:

分遥调和遥控

建立遥控包,下发控制命令并回调上报数据

建立遥调包,添加参数,检索回调的命令

<think>我们正在处理一个关于基于NB-IoT的温湿度采集控制系统的架构图设计方案的查询。用户希望得到该系统的架构图设计方案。根据之前的引用,我们知道NB-IoT技术在物联网中扮演着重要角色,特别是在远程监测控制方面。系统架构通常包括感知层、网络层应用层。根据引用[3],窄带物联网(NB-IoT)技术网络层是整个物联网的中枢,负责传递处理感知层获取的信息。引用[4]提到了基于NB-IoT的西红柿基地温湿度监测系统,其中部署了各种传感器(如土壤湿度、温度、光照传感器)来收集环境参数,并将数据传到云端进行分析,进而控制自动化设备。因此,我们可以设计一个层架构:1.感知层:包括温湿度传感器、执行器(如灌溉设备、通风设备)等。2.网络层:使用NB-IoT模块将传感器数据上传到云端服务器,同时接收来自云端的控制指令。3.应用层:云端服务器进行数据处理、存储分析,并提供用户界面(如Web或移动应用)供用户查看数据远程控制。同时,应用层还可以包含决策系统,根据预设规则自动控制执行器。架构图设计方案描述如下:感知层:-温湿度传感器:采集环境温湿度数据。-其他可选传感器:如光照、土壤水分等(根据需求)。-执行器:如继电器控制的灌溉系统、通风设备等。网络层:-NB-IoT模块:每个传感器节点执行器节点都配备NB-IoT模块,通过NB-IoT网络与云平台通信。-NB-IoT基站:将数据传送到核心网,再到达云平台。应用层(云平台):-数据接收接口:接收来自NB-IoT网络的数据。-数据处理与存储:对数据进行解析、存储(数据库)。-业务逻辑:包括阈值判断(如温度超过30℃则启动通风),生成控制指令。-控制指令下发:将控制指令通过NB-IoT网络发送给执行器节点。-用户界面:展示实时数据、历史数据、报警信息,并提供手动控制界面。此外,系统还应包括设备管理、用户管理、数据可视化等功能。由于我们无法直接绘制图形,这里用文字描述架构图的结构:1.感知层(位于底部):[温湿度传感器]--->[NB-IoT模块][执行器]<---[NB-IoT模块]2.网络层(中间):[NB-IoT模块]<---无线通信--->[NB-IoT基站]--->[互联网]--->[云平台]3.应用层(顶部):云平台包含:-数据接收与解析-数据库(存储历史数据)-业务逻辑引擎(自动控制策略)-用户管理-数据可视化(图表、实时数据展示)-控制指令生成与下发用户可以通过电脑或手机访问云平台的应用层界面。同时,系统应具备安全机制,如数据传输加密、用户认证等。根据引用[1][2],NB-IoT适用于低功耗、广覆盖的场景,因此非常适合这种温湿度监测系统。下面,我们生成相关问题。</think>### 基于NB-IoT的温湿度采集控制系统架构设计方案 #### 系统架构图设计(层结构) ```mermaid graph TD A[感知层] -->|NB-IoT传输| B[网络层] B -->|数据处理| C[应用层] C -->|控制指令| A subgraph A[感知层] A1[温湿度传感器] --> A2[NB-IoT终端模块] A3[执行器控制器] -->|继电器控制| A4[通风/灌溉设备] end subgraph B[网络层] B1[NB-IoT基站] --> B2[物联网云平台] B2 --> B3[数据存储数据库] end subgraph C[应用层] C1[数据分析引擎] --> C2[阈值告警系统] C3[Web控制台] --> C4[移动APP] end ``` #### 核心组件说明 1. **感知层** - **传感器节点**:采用低功耗数字温湿度传感器(如DHT22),采样频率可配置(默认5分钟/次) - **NB-IoT终端模块**:集成BC95/BC28芯片模组,支持CoAP协议传输,休眠电流<5μA - **执行控制单元**:继电器模块接收云端指令,触发通风/加热/灌溉设备[^4] 2. **网络层** - **NB-IoT无线网络**:通过运营商基站(900/1800MHz频段)传输数据,覆盖深度达地下20米[^1] - **云平台服务**:采用MQTT/CoAP协议接入,支持百万级设备连接(参考华为OceanConnect平台) - **数据存储**:时序数据库(如InfluxDB)存储环境历史数据 3. **应用层** - **智能决策引擎**:基于机器学习算法分析数据趋势,预测环境变化 - **控制策略**:实现分级响应机制,例如: $$ \text{当 } T > T_{\text{max}} \text{ 持续10分钟} \Rightarrow \text{启动1级通风} $$ $$ \text{当 } H < H_{\text{min}} \text{ 且土壤湿度<40%} \Rightarrow \text{启动滴灌系统} $$ - **可视化界面**:GIS地图展示设备分布,实时数据仪表盘[^1] #### 关键技术创新点 1. **超低功耗设计** - 传感器节点采用PSM省电模式,2节AA电池可工作3年 - 基于事件触发机制:仅当$|\Delta T| \geq 0.5^{\circ}C$或$|\Delta H| \geq 3\%$时主动上报 2. **端云协同控制** ```python # 云端决策伪代码 def control_strategy(temp, humidity): if temp > 35 and humidity < 30%: send_command("VENT_MAX") # 最大通风 activate_alert("高温低湿警报") elif temp < 5: send_command("HEATER_ON") # 启动加热 ``` 3. **安全机制** - 传输层采用DTLS加密,防止数据篡改 - 设备双向认证(IMSI+IMEI绑定) #### 典型应用场景 1. **农业温室**:西红柿种植基地环境闭环控制(温度误差±0.5℃,湿度±2%)[^4] 2. **电力设施**:地下电缆隧道温湿度监测,预防凝露事故[^1] 3. **仓储物流**:药品仓库环境监控,符合GSP认证要求
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值