eDNA-实时数据库-API函数(VB-VC部分)

DISTRIBUTEDDISTRIBUTED NETWORKNETWORK ARCHITECTUREARCHITECTURE eDNAeDNA APIAPI 函数函数 VB VB 部分部分 V1 0V1 0 中国 北京市朝阳区朝外大街乙 12 号 1 号楼昆泰国际中心 1011 室 电话 86 10 58797132 33 34 传真 86 10 58797136 标题eDNA标准文档的建立流程 作者陈鑫2006年9月1日 修改记录 序号修改人员修改时间 1 陈鑫2007年4月16日 2 陈鑫 徐立博2007年9月29日 3 4 5 6 目目 录录 1 1 设置 host 文件 1 1 2 安装 eDNA SDK 2 1 3 在 VB 环境中引用函数 4 2 12 1 读取实时函数读取实时函数 7 7 DNAGetRTAll 7 函数名称 DNAGetRTAll 7 DNAGetRTAllUTC 9 函数名称 DNAGetRTAllUTC 9 DNAGetRTValue 11 函数名称 DNAGetRTValue 11 DNAGetRTValueAsString 12 函数名称 DNAGetRTValueAsString 12 DNAGetRTTime 13 函数名称 DNAGetRTTime 13 DNAGetRTTimeUTC 14 函数名称 DNAGetRTTimeUTC 14 DNAGetRTStatus 15 函数名称 DNAGetRTStatus 15 DNAGetRTDesc 16 函数名称 DNAGetRTDesc 16 DNAGetRTUnits 17 函数名称 DNAGetRTUnits 17 DNAGetRTShort 18 函数名称 DNAGetRTShort 18 2 22 2 实时写数函数 秒 实时写数函数 秒 1919 DnaAddAnalogShortIdRecord 19 函数名称 DnaAddAnalogShortIdRecord 19 DnaAddDigitalShortIdRecord 21 函数名称 DnaAddDigitalShortIdRecord 21 DnaAddAnalogShortIdRecordNoStatus 22 函数名称 DnaAddAnalogShortIdRecordNoStatus 22 DnaFlushShortIdRecords 23 函数名称 DnaFlushShortIdRecords 23 2 32 3 读取历史函数 秒 读取历史函数 秒 2424 DnaGetHistAvg 24 函数名称 DnaGetHistAvg 24 DnaGetHistAvgUTC 26 函数名称 DnaGetHistAvgUTC 26 DnaGetHistMax 28 函数名称 DnaGetHistMax 28 DnaGetHistMaxUTC 30 函数名称 DnaGetHistMaxUTC 30 DnaGetHistMin 32 函数名称 DnaGetHistMin 32 DnaGetHistMinUTC 34 函数名称 DnaGetHistMinUTC 34 DnaGetHistSnap 36 函数名称 DnaGetHistSnap 36 DnaGetHistSnapUTC 38 函数名称 DnaGetHistSnapUTC 38 DnaGetHistRaw 40 函数名称 DnaGetHistRaw 40 DnaGetHistRawUTC 42 函数名称 DnaGetHistRawUTC 42 DnaGetNextHist 44 函数名称 DnaGetNextHist 44 DnaGetNextHistUTC 45 函数名称 DnaGetNextHistUTC 45 DnaGetNextHistStr 46 函数名称 DnaGetNextHistStr 46 DnaGetNextHistStrUTC 48 函数名称 DnaGetNextHistStrUTC 48 DnaGetNextHistSmallUTC 50 函数名称 DnaGetNextHistSmallUTC 50 DnaGetNextHistFull 51 函数名称 DnaGetNextHistFull 51 DnaGetHistExpectedTotal 53 函数名称 DnaGetHistExpectedTotal 53 2 42 4 插入历史数据函数 秒 插入历史数据函数 秒 5454 DnaHistQueueUpdateInsertValue 54 函数名称 DnaHistQueueUpdateInsertValue 54 DnaHistFlushUpdateInsertValues 56 函数名称 DnaHistqueueUpdateInsertValues 56 2 52 5 追加历史数据函数追加历史数据函数 5757 DnaHistQueueAppendValue 57 函数名称 DnaHistQueueAppendValue 57 DnaHistFlushAppendValues 59 函数名称 DnaHistqueueUpdateInsertValues 59 2 62 6 删除历史数据函数删除历史数据函数 6060 DnaHistDeleteValue 60 函数名称 DnaHistDeleteValue 60 2 72 7 读取服务配置读取服务配置 6161 DnaGetServiceEntry 61 函数名称 DnaGetServiceEntry 61 DnaGetNextServiceEntry 63 函数名称 DnaGetServiceEntry 63 DnaGetPointEntry 65 函数名称 DnaGetPointEntry 65 DnaGetNextPointEntry 67 函数名称 DnaGetNextPointEntry 67 DnaSelectPoint 69 函数名称 DnaSelectPoint 69 DnaSelectService 70 函数名称 DnaSelectPoint 70 2 82 8 U UNIVERSALNIVERSAL服务接口服务接口 7171 2 8 1 服务初始化 连接 关闭 71 函数名称 eDnaMxUniversalInitialize 71 函数名称 eDnaMxUniversalInitialize 72 函数名称 eDnaMxUniversalInitialize 73 函数名称 ISeDnaMxUniversalConnected 73 函数名称 eDnaMxFlushUniversalRecord 74 2 8 2 修改点配置信息 75 函数名称 eDnaMxAddConfigRec 75 2 8 3 写入数据 77 函数名称 eDnaMxAddRec 78 函数名称 eDnaMxAddLongIdRec 80 2 92 9 其它相关函数其它相关函数 8181 StringToPeriod 81 函数名称 StringToPeriod 81 SplitPointName 82 函数名称 SplitPointName 82 ShortIdFromLongID 83 函数名称 ShortIdFromLongID 83 LongIDFromShortID 84 函数名称 LongIDFromShortID 84 eDNA API 函数示例函数示例 VB 部分部分 印步 北京 印步 北京 软软件有限公司件有限公司 第第 1 页页 REV 20061101 1 1 VBVB 环境环境 eDNAeDNA APIAPI 使用的准备工作使用的准备工作 1 11 1 设置设置 hosthost 文件文件 网络中必须有 eDNA 服务 通过设置本地 host 文件 连接到服务 Host 文件设置方法 在运行中输入 drivers 进入 etc 文件夹 打开 hosts 文件 eDNA API 函数示例函数示例 VB 部分部分 印步 北京 印步 北京 软软件有限公司件有限公司 第第 2 页页 REV 20061101 添加如下内容 例如 例如 192 168 0 168 192 168 0 168 dna svcdir 01 dna svcdir 01 1 21 2 安装安装 eDNAeDNA SDKSDK eDNA SDK 提供了一些 eDNA 相关的程序示例以及与 eDNA 相关的一些动态库 运行 SoftwareDevKit exe eDNA API 函数示例函数示例 VB 部分部分 印步 北京 印步 北京 软软件有限公司件有限公司 第第 3 页页 REV 20061101 点击 NEXT 选择安装路径 点 NEXT 可选安装组件 建议安装 点击下一步 eDNA API 函数示例函数示例 VB 部分部分 印步 北京 印步 北京 软软件有限公司件有限公司 第第 4 页页 REV 20061101 点击 Finish 完成安装 1 31 3 在在 VBVB 环境中引用函数环境中引用函数 新建一个 VB 工程 创建一个标准 EXE 文件 eDNA API 函数示例函数示例 VB 部分部分 印步 北京 印步 北京 软软件有限公司件有限公司 第第 5 页页 REV 20061101 在工程窗口中点击 右键 添加一个模块 Module 打开 eDNA SDK 安装目录下 Examples DNA VB 文件夹中的 VB 程序 ezdnaapi BAS 文件 建立面的内容 复制到新建的模块中 eDNA API 函数示例函数示例 VB 部分部分 印步 北京 印步 北京 软软件有限公司件有限公司 第第 6 页页 REV 20061101 eDNA API 函数示例函数示例 VB 部分部分 印步 北京 印步 北京 软软件有限公司件有限公司 第第 7 页页 REV 20061101 2 2 eDNAeDNA APIAPI 函数说明函数说明 2 12 1 读取实时函数读取实时函数 DNAGetRTAllDNAGetRTAll 函数名称 函数名称 DNAGetRTAllDNAGetRTAll 功能说明 功能说明 取出一个实时服务点的值 时间 状态 描述 单位这些信息 时间和状 态都 为字符串格式 函数原形 函数原形 Declare Function DNAGetRTAll Lib ezdnaapi dll ByVal Point As String Value As Double ByVal Time As String ByVal LenTime As Integer ByVal Status As String ByVal LenStatus As Integer ByVal Desc As String ByVal LenDesc As Integer ByVal Units As String ByVal LenUnits As Integer As Integer 返回值说明 返回值说明 成功返回0 不成功返回非0 参数说明 参数说明 ByVal Point As String 要查询的实时服务的服务名 格式 站点名 服务名 标签 Value As Double 传出参数 用来承载返回指定的实时服务的值 ByVal Time As String 传出参数 用来承载返回实时数据点的时间 ByVal LenTime As Integer time参数预留长度 ByVal Status As String 传出参数 用来承载返回实时数据点的状态 ByVal LenStatus As Integer Status参数预留长度 ByVal Desc As String 传出参数 用来承载返回实时数据点的描述 ByVal LenDesc As Integer Desc参数预留长度 ByVal Units As String 传出参数 用来承载返回实时数据点的单位 ByVal LenUnits As IntegerUnits参数预留长度 使用示例 使用示例 eDNA API 函数示例函数示例 VB 部分部分 印步 北京 印步 北京 软软件有限公司件有限公司 第第 8 页页 REV 20061101 目标 取出一个实时服务点的值 时间 状态 描述 单位这些信息 时间和状态都为字符串格式 Dim Point As String Dim Value As Double Dim time As String 20 Status As String 20 Dim Desc As String 30 Units As String 10 Point ednavb PUSHSERV test1001 ret DNAGetRTAll Point Value time Len time Status Len Status Desc Len Desc Units Len Units If ret 0 Then MsgBox 点名 Point 值 Value 时间 time 状态 Trim Status 描述 Trim Desc 单位 Trim Units Else MsgBox FAILURE vbOKOnly End If eDNA API 函数示例函数示例 VB 部分部分 印步 北京 印步 北京 软软件有限公司件有限公司 第第 9 页页 REV 20061101 DNAGetRTAllUTCDNAGetRTAllUTC 函数名称 函数名称 DNAGetRTAllUTCDNAGetRTAllUTC 功能说明 功能说明 取出一个实时服务点的值 时间 状态 描述 单位这些信息 状态字符 串格式 时间UTC格式 函数原形 函数原形 Declare Function DNAGetRTAllUTC Lib ezdnaapi dll ByVal Point As String Value As Double time As Long ByVal Status As String ByVal LenStatus As Integer ByVal Desc As String ByVal LenDesc As Integer ByVal Units As String ByVal LenUnits As Integer As Integer 返回值说明 返回值说明 成功返回0 不成功返回非0 参数说明 参数说明 ByVal Point As String 要查询的实时服务的服务名 格式 站点名 服务名 标签 Value As Double 传出参数 用来承载返回指定的实时服务的值 ByVal Time As Long 传出参数 用来承载返回实时数据点的时间 ByVal Status As String 传出参数 用来承载返回实时数据点的状态 ByVal LenStatus As Integer Status参数预留长度 ByVal Desc As String 传出参数 用来承载返回实时数据点的描述 ByVal LenDesc As Integer Desc参数预留长度 ByVal Units As String 传出参数 用来承载返回实时数据点的单位 ByVal LenUnits As IntegerUnits参数预留长度 使用示例 使用示例 目标 取出一个实时服务点的值 时间 状态 描述 单位这些信息 Dim Point As String Dim Value As Double eDNA API 函数示例函数示例 VB 部分部分 印步 北京 印步 北京 软软件有限公司件有限公司 第第 10 页页 REV 20061101 Dim time As String 20 Status As String 20 Dim Desc As String 30 Units As String 10 Dim StrTIme As String 20 Point ednavb PUSHSERV test1001 ret DNAGetRTAllUTC Point Value time Len time Status Len Status Desc Len Desc Units Len Units If ret 0 Then UCTToStringTime time StrTIme Len StrTIme MsgBox 点名 Point 值 Value 时间 StrTIme 状态 Trim Status 描述 Trim Desc 单位 Trim Units Else MsgBox FAILURE vbOKOnly End If eDNA API 函数示例函数示例 VB 部分部分 印步 北京 印步 北京 软软件有限公司件有限公司 第第 11 页页 REV 20061101 DNAGetRTValueDNAGetRTValue 函数名称 函数名称 DNAGetRTValueDNAGetRTValue 功能说明 功能说明 读取秒时标实时数据 函数原形 函数原形 Declare Function DNAGetRTValue Lib ezdnaapi dll ByVal Point As String Value As Double As Integer 返回值说明 返回值说明 成功返回0 不成功返回非0 参数说明 参数说明 Point As String 要查询的实时服务的服务名 格式 站点名 服务名 标签 Value As Double 传出参数 用来承载返回指定的实时服务的值 使用示例 使用示例 目标 取出一个实时服务点的值 Dim VALUE As Double Dim point As String point ednavb PUSHSERV test1001 ret DNAGetRTValue point VALUE If ret 0 Then MsgBox 点 point 实时值 VALUE Else MsgBox failure vbOKOnly vbInformation error End If eDNA API 函数示例函数示例 VB 部分部分 印步 北京 印步 北京 软软件有限公司件有限公司 第第 12 页页 REV 20061101 DNAGetRTValueAsStringDNAGetRTValueAsString 函数名称 函数名称 DNAGetRTValueAsStringDNAGetRTValueAsString 功能说明 功能说明 读取秒时标实时数据 函数原形 函数原形 Declare Function DNAGetRTValueAsString Lib ezdnaapi dll ByVal point As String ByVal VALUE As String ByVal LenValue As Integer As Integer 返回值说明 返回值说明 成功返回0 不成功返回非0 参数说明 参数说明 Point As String 要查询的实时服务的服务名 格式 站点名 服务名 标签 Value As string 传出参数 用来承载返回指定的实时服务的值 LenValue As IntegerValue参数预留长度 使用示例 使用示例 目标 取出一个实时服务点的值 类型字符型 Dim Value As String 20 Dim Point As String Point ednavb PUSHSERV test1001 ret DNAGetRTValueAsString Point Value Len Value If ret 0 Then MsgBox 点 Point 实时值 Trim Value Else MsgBox failure vbOKOnly vbInformation error End If eDNA API 函数示例函数示例 VB 部分部分 印步 北京 印步 北京 软软件有限公司件有限公司 第第 13 页页 REV 20061101 DNAGetRTTimeDNAGetRTTime 函数名称 函数名称 DNAGetRTTimeDNAGetRTTime 功能说明 功能说明 返回一个实时服务点的刷新时间 字符串时间格式 函数原形 函数原形 Declare Function DNAGetRTTime Lib ezdnaapi dll ByVal Point As String ByVal time As String ByVal LenTime As Integer As Integer 返回值说明 返回值说明 成功返回0 不成功返回非0 参数说明 参数说明 Point As String 要查询的实时服务的服务名 格式 站点名 服务名 标签 time As Strnig 传出参数 用来承载返回指定的实时服务点的更新时间 LenTime As Integertime参数预留长度 使用示例 使用示例 目标 返回一个实时服务点的刷新时间 Dim Time As String 20 Dim Point As String Point ednavb PUSHSERV test1001 ret DNAGetRTValueAsString Point Time Len Time If ret 0 Then MsgBox 点 Point 刷新时间 Trim Time Else MsgBox failure vbOKOnly vbInformation error End If eDNA API 函数示例函数示例 VB 部分部分 印步 北京 印步 北京 软软件有限公司件有限公司 第第 14 页页 REV 20061101 DNAGetRTTimeUTCDNAGetRTTimeUTC 函数名称 函数名称 DNAGetRTTimeUTCDNAGetRTTimeUTC 功能说明 功能说明 返回一个实时服务的刷新时间 UTC时间格式 函数原形 函数原形 Declare Function DNAGetRTTimeUTC Lib ezdnaapi dll ByVal Point As String ByVal time As Long As Integer 返回值说明 返回值说明 成功返回0 不成功返回非0 参数说明 参数说明 Point As String 要查询的实时服务的服务名 格式 站点名 服务名 标签 Time As Long传出参数 用来承载返回指定的实时服务的点的更新时间 使用示例 使用示例 目标 返回一个实时服务点的刷新时间 Dim Time As String 20 Dim Point As String Dim StrTime as String 20 Point ednavb PUSHSERV test1001 ret DNAGetRTValueAsString Point Time UCTToStringTime Time StrTIme Len StrTIme If ret 0 Then MsgBox 点 Point 刷新时间 Trim StrTime Else MsgBox failure vbOKOnly vbInformation error End If eDNA API 函数示例函数示例 VB 部分部分 印步 北京 印步 北京 软软件有限公司件有限公司 第第 15 页页 REV 20061101 DNAGetRTStatusDNAGetRTStatus 函数名称 函数名称 DNAGetRTStatusDNAGetRTStatus 功能说明 功能说明 取得一个实时点的状态 函数原形 函数原形 Declare Function DNAGetRTStatus Lib ezdnaapi dll ByVal Point As String ByVal Status As String ByVal LenStatus As Integer As Integer 返回值说明 返回值说明 成功返回0 不成功返回非0 参数说明 参数说明 Point As String 要查询的实时服务的服务名 格式 站点名 服务名 标签 Status As String传出参数 用来承载返回指定的实时服务点的状态值 LenStatus As IntegerStatus参数预留长度 使用示例 使用示例 目标 取得一个实时点的状态 Dim Status As String 10 Dim Point As String Point ednavb PUSHSERV test1001 ret DNAGetRTStatus Point Status Len Status If ret 0 Then MsgBox 点 Point 状态 Trim Status Else MsgBox failure vbOKOnly vbInformation error End If eDNA API 函数示例函数示例 VB 部分部分 印步 北京 印步 北京 软软件有限公司件有限公司 第第 16 页页 REV 20061101 DNAGetRTDescDNAGetRTDesc 函数名称 函数名称 DNAGetRTDescDNAGetRTDesc 功能说明 功能说明 取得一个实时点的描述信息 函数原形 函数原形 Declare Function DNAGetRTDesc Lib ezdnaapi dll ByVal Point As String ByVal Desc As String ByVal LenDesc As Integer As Integer 返回值说明 返回值说明 成功返回0 不成功返回非0 参数说明 参数说明 Point As String 要查询的实时服务的服务名 格式 站点名 服务名 标签 Desc As Double 传出参数 用来承载返回指定的实时服务点的描述信息 LenDesc As IntegerDesc 参数预留长度 使用示例 使用示例 目标 取得一个实时点的描述 Dim Desc As String 20 Dim Point As String Point ednavb PUSHSERV test1001 ret DNAGetRTDesc Point Desc Len Desc If ret 0 Then MsgBox 点 Point 描述 Trim Desc Else MsgBox failure vbOKOnly vbInformation error End If eDNA API 函数示例函数示例 VB 部分部分 印步 北京 印步 北京 软软件有限公司件有限公司 第第 17 页页 REV 20061101 DNAGetRTUnitsDNAGetRTUnits 函数名称 函数名称 DNAGetRTUnitsDNAGetRTUnits 功能说明 功能说明 取得一个实时点的单位 函数原形 函数原形 Declare Function DNAGetRTUnits Lib ezdnaapi dll ByVal Point As String ByVal Units As String ByVal LenUnits As Integer As Integer 返回值说明 返回值说明 成功返回0 不成功返回非0 参数说明 参数说明 Point As String 要查询的实时服务的服务名 格式 站点名 服务名 标签 Units As Double 传出参数 用来承载返回指定的实时服务点的单位信息 LenUnitsAs IntegerUnits 参数预留长度 使用示例 使用示例 目标 取得一个实时点的单位 Dim Units As String 10 Dim Point As String Point ednavb PUSHSERV test1001 ret DNAGetRTUnits Point Units Len Units If ret 0 Then MsgBox 点 Point 单位 Trim Units Else MsgBox failure vbOKOnly vbInformation error End If eDNA API 函数示例函数示例 VB 部分部分 印步 北京 印步 北京 软软件有限公司件有限公司 第第 18 页页 REV 20061101 DNAGetRTShortDNAGetRTShort 函数名称 函数名称 DNAGetRTShortDNAGetRTShort 功能说明 功能说明 取得一个实时点的实时值 时间 状态 函数原形 函数原形 Declare Function DNAGetRTShort Lib ezdnaapi dll ByVal Point As String Value As Double time As Long Status As Integer As Integer 返回值说明 返回值说明 成功返回0 不成功返回非0 参数说明 参数说明 Point As String 要查询的实时服务的服务名 格式 站点名 服务名 标签 Value As Double 传出参数 用来承载返回指定的实时服务的值 time As Long 传出参数 用来承载返回指定的实时服务的时间 UTC 格式 Status As Integer传出参数 用来承载返回指定的实时服务的状态 使用示例 使用示例 目标 取得一个实时点的实时值 时间 状态 Dim Point As String Dim Value As Double time As Long Status As Integer Dim StrTIme As String 20 Point ednavb PUSHSERV test1001 ret DNAGetRTShort Point Value time Status If ret 0 Then UCTToStringTime time StrTIme Len StrTIme MsgBox 点 Point 值 Value 状态 Str Status 时间 Trim StrTIme eDNA API 函数示例函数示例 VB 部分部分 印步 北京 印步 北京 软软件有限公司件有限公司 第第 19 页页 REV 20061101 Else MsgBox failure vbOKOnly vbInformation error End If 2 22 2 实时写数函数 秒 实时写数函数 秒 DnaAddAnalogShortIdRecordDnaAddAnalogShortIdRecord 函数名称 函数名称 DnaAddAnalogShortIdRecordDnaAddAnalogShortIdRecord 功能说明 功能说明 添加一条模拟量记录 包括时间 值 和状态 函数原形 函数原形 Declare Function DnaAddAnalogShortIdRecord Lib EzDNAServAPI dll ByVal Service As String ByVal PointId As String ByVal UTCTime As Long ByVal Value As Double ByVal LowWarning As Integer ByVal HighWarning As Integer ByVal LowAlarm As Integer ByVal HighAlarm As Integer ByVal OutOfRangeLow As Integer ByVal OutOfRnageHigh As Integer ByVal UnReliable As Integer ByVal Manual As Integer As Integer 返回值说明 返回值说明 成功返回0 不成功返回非0 参数说明 参数说明 Service As String数值的UTC时间标签 若指定为0 则使用实时服务所在计算机的时间 标签 PointId As String实时服务的点名PointId 格式 标签 UTCTime As Long点的时间标签 UTC 格式 Value As Double模拟量数值 LowWarning As Integer是否处于低警告 非 0 值表示真 0 值表示假 HighWarning As Integer是否处于高警告 非 0 值表示真 0 值表示假 LowAlarm As Integer是否处于低报警 非0 值表示真 0 值表示假 HighAlarm As Integer是否处于高警告 非 0 值表示真 0 值表示假 OutOfRangeLow As Integer 是否超出低范围 非 0 值表示真 0 值表示假 OutOfRnageHigh As Integer是否超出高范围 非 0 值表示真 0 值表示假 UnReliable As Integer是否不可靠 非 0 值表示真 0 值表示假 Manual As Integer是否手动设置 非 0 值表示真 0 值表示假 使用示例 使用示例 eDNA API 函数示例函数示例 VB 部分部分 印步 北京 印步 北京 软软件有限公司件有限公司 第第 20 页页 REV 20061101 目标 添加一条模拟量记录 包括时间 值 和状态 注意 后面的状态值设置为 0 或非 0 Dim servicename As String Dim pointname As String Dim time As String Dim VALUE As Double Dim szMessage As String 80 iret DnaAddAnalogShortIdRecord TEST PUSHSERV TEST0002 StringToUTCTime Now 2 3345 1 1 1 1 1 1 1 1 If iret 0 Then DnaFlushShortIdRecords servicename szMessage Len szMessage End If eDNA API 函数示例函数示例 VB 部分部分 印步 北京 印步 北京 软软件有限公司件有限公司 第第 21 页页 REV 20061101 DnaAddDigitalShortIdRecordDnaAddDigitalShortIdRecord 函数名称 函数名称 DnaAddDigitalShortIdRecordDnaAddDigitalShortIdRecord 功能说明 功能说明 添加一条开关量记录 包括时间 值 添加一条开关量记录 包括时间 值 函数原形 函数原形 Declare Function DnaAddDigitalShortIdRecord Lib EzDNAServAPI dll ByVal Service As String ByVal PointId As String ByVal UTCTime As Long ByVal DigSet As Integer ByVal ValueString As Integer ByVal DigitalWarning As Integer ByVal DigitalChattering As Integer ByVal UnReliable As Integer ByVal Manual As Integer As Integer 返回值说明 返回值说明 成功返回0 不成功返回非0 参数说明 参数说明 Service As String由实时服务的 站点名 服务名 组成的名称 PointId As String 点名 PointId UTCTime As Long 时间标签 UTC 时间格式 DigSet As Integer表示开或关 非 0 值表示真 0 值表示假 ValueString As Integer 由 16 个字节组成的描述来描述当前状态的字符串 DigitalWarning As Integer 数字是否处于警告状态 非 0 值表示真 0 值表示假 DigitalChattering As Integer 数字是否处于跳变状态 非 0 值表示真 0 值表示假 UnReliable As Integer是否不可靠 非 0 值表示真 0 值表示假 Manual As Integer是否手动设置 非 0 值表示真 0 值表示假 使用示例 使用示例 目标 添加一条开关量记录 包括时间 值 Private Sub Command1 Click Dim servicename As String pointname As String Dim time As String VALUE As Double Dim szMessage As String 80 iRet DnaAddDigitalShortIdRecord TEST PUSHSERV TEST0003 StringToUTCTime Now 1 1043 1 1 0 1 eDNA API 函数示例函数示例 VB 部分部分 印步 北京 印步 北京 软软件有限公司件有限公司 第第 22 页页 REV 20061101 If iRet 0 Then DnaFlushShortIdRecords servicename szMessage Len szMessage End If End Sub DnaAddAnalogShortIdRecordNoStatusDnaAddAnalogShortIdRecordNoStatus 函数名称 函数名称 DnaAddAnalogShortIdRecordNoStatusDnaAddAnalogShortIdRecordNoStatus 功能说明 功能说明 添加一条模拟量或开关量记录 包括时间 值 添加一条模拟量或开关量记录 包括时间 值 函数原形 函数原形 Declare Function DnaAddAnalogShortIdRecordNoStatus Lib EzDNAServAPI dll ByVal Service As String ByVal PointId As String ByVal UTCTime As Long ByVal Value As Double As Integer 返回值说明 返回值说明 成功返回0 不成功返回非0 参数说明 参数说明 Service As String实时服务名 格式 站点名 服务名 PointId As String short ID UTCTime As Long 数值的UTC时间标签 若指定为0 则使用实时服务所在计算机的时间标签 Value As Double模拟量数值 相关函数 相关函数 DnaFlushShortIdRecords 使用示例 使用示例 目标 添加一条模拟量记录 包括时间 值 Private Sub Command1 Click Dim servicename As String Dim pointname As String time As String VALUE As Double Dim szMessage As String 80 iret DnaAddAnalogShortIdRecordNoStatus TEST PUSHSERV TEST0002 StringToUTCTime N ow 1 5573 If iret 0 Then DnaFlushShortIdRecords servicename szMessage Len szMessage eDNA API 函数示例函数示例 VB 部分部分 印步 北京 印步 北京 软软件有限公司件有限公司 第第 23 页页 REV 20061101 End If End Sub DnaFlushShortIdRecordsDnaFlushShortIdRecords 函数名称 函数名称 DnaFlushShortIdRecordsDnaFlushShortIdRecords 功能说明 功能说明 按照短按照短IDID强制刷新一次数据强制刷新一次数据 函数原形 函数原形 Declare Function DnaFlushShortIdRecords Lib EzDNAServAPI dll ByVal Service As String ByVal MessageStr As String ByVal MessageLen As Integer As Integer 返回值说明 返回值说明 成功返回0 不成功返回非0 参数说明 参数说明 Service As String由实时服务的 站点名 服务名 组成的名称 MessageStr As String强制刷新的错误描述 MessageLen As Integer错误描述字段的长度 使用示例 使用示例 目标 按照短 ID 强制刷新一次数据 Dim servicename As String Dim pointname As String Dim time As String Dim VALUE As Double Dim szMessage As String 80 iret DnaAddAnalogShortIdRecord TEST PUSHSERV TEST0002 StringToUTCTime Now 2 3345 1 1 1 1 1 1 1 1 If iret 0 Then DnaFlushShortIdRecords servicename szMessage Len szMessage End If eDNA API 函数示例函数示例 VB 部分部分 印步 北京 印步 北京 软软件有限公司件有限公司 第第 24 页页 REV 20061101 2 32 3 读取历史函数 秒 读取历史函数 秒 DnaGetHistAvgDnaGetHistAvg 函数名称 函数名称 DnaGetHistAvgDnaGetHistAvg 功能说明 功能说明 初始化历史函数 获取在一段时间范围内存储于历史服务的点的平均值 函数原形 函数原形 Declare Function DnaGetHistAvg Lib ezdnaapi dll ByVal Point As String ByVal StartTime As String ByVal EndTime As String ByVal Period As String Key As Long As Integer 返回值说明 返回值说明 成功返回0 不成功返回非0 相关函数 相关函数 DnaGetNextHist 参数说明 参数说明 ByVal Point As String 要查询的实时服务的完整点名 格式 站点名 服务名 标签 StartTime As String 要查询的实时服务的点的开始时间 格式 mm dd yyyy hh mm ss EndTime As String 要查询的实时服务的点的结束时间 格式 mm dd yyyy hh mm ss Period As String 查询周期 以