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

源代码网整理以下现在补上开发思路

系统接口方法：

源代码网整理以下

Query ExecCmd PROC_RPTSIGNAL PROC_RPTRUNTIMEMSG

源代码网整理以下

添加的方法：

源代码网整理以下

源代码网整理以下

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

源代码网整理以下

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

源代码网整理以下

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

源代码网整理以下 软件开发网 www.mscto.com

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-----------------------------------------------------}

源代码网整理以下 软件开发网 www.mscto.com

软件开发网 www.mscto.com

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

源代码网整理以下

源代码网整理以下

源代码网整理以下

软件开发网 www.mscto.com

源代码网整理以下

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

源代码网整理以下

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

源代码网整理以下

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

源代码网整理以下

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

源代码网整理以下

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

源代码网整理以下

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

源代码网整理以下

软件开发网 www.mscto.com

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

源代码网整理以下

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

源代码网整理以下

源代码网整理以下

源代码网整理以下

源代码网整理以下 软件开发网 www.mscto.com

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

源代码网整理以下

软件开发网 www.mscto.com

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

源代码网整理以下

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

源代码网整理以下

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

源代码网整理以下

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

源代码网整理以下 软件开发网 www.mscto.com

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

源代码网整理以下

源代码网整理以下

源代码网整理以下

修改采集程序

回报类型:

4: 中间过程采集发

源代码网整理以下

5：中间过程采集收

中间过程数据采用4，5回报

源代码网整理以下

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

{--------------是否有数据返回的过程--------------------------------------------} 软件开发网 www.mscto.com

{-------@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;

软件开发网 www.mscto.com

源代码网整理以下

源代码网整理以下

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

{-------@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;

源代码网整理以下 软件开发网 www.mscto.com

源代码网整理以下上层采集程序调用Query方法-----实现智能设备数据采集

源代码网整理以下首先必须确保通信的版本一致

源代码网整理以下在Query方法里先调用getVersion来得到通信的版本，再版本为0时，对version赋值$20

源代码网整理以下根据采集需要，建立11个采集命令

源代码网整理以下分别是

源代码网整理以下交流配电模拟量采集(浮点)，交流配电开关量采集，交流配电告警量采集，交流配电参数采集

源代码网整理以下整流配电模拟量采集(浮点)，整流配电开关量采集，整流配电模拟量采集

源代码网整理以下直流配电模拟量采集(浮点)，直流配电告警量采集，直流配电参数采集

源代码网整理以下系统状态采集

源代码网整理以下

源代码网整理以下数据接收处理：

源代码网整理以下先通过hasNoData判断是否有数据回报，返回为真表示无数据，上报通信故障

源代码网整理以下isCheckError判断是否是校验和错误，返回真时表校验和错误，报故障

源代码网整理以下isRtnError判断是否返回码错误，返回为真时表相应错误，报故障

源代码网整理以下接着对得到的数据解析DataBuf 软件开发网 www.mscto.com

源代码网整理以下拆掉包头，取出数据信息并填入到相应的采集通道(就是某个采集量的定义)

源代码网整理以下

源代码网整理以下控制处理:

源代码网整理以下分遥调和遥控

源代码网整理以下建立遥控包，下发控制命令并回调上报数据

源代码网整理以下建立遥调包，添加参数，检索回调的命令

源代码网整理以下