功能明细 > 数据接口 > COM接口 > VB 接口 > 查询实时记录（多点查询）com_sn_query

函数

STDMETHOD(com_sn_query_snapshots)(

LONGnRecNum,

VARIANT* nTagIDs,

VARIANT* nSec,

VARIANT* nMsec,

VARIANT* nQuality,

VARIANT* nTagType,

VARIANT* bsValue,

VARIANT* nErrCodes,

LONG* nRetErr

);

参数

[in]LONGnRecNum, 查询的实时记录的数量，不能超过65535

[in]VARIANT* nTagIDs, TagID数组,必须是LONG类型的

[out]VARIANT* nSec, 实时记录的秒数组，nSec->vt = VT_ARRAY | VT_VARIANT

[out]VARIANT* nMsec, 实时记录的毫秒数组，nMsec->vt = VT_ARRAY | VT_VARIANT

[out]VARIANT* nQuality,实时记录的数据质量数组，nQuality->vt = VT_ARRAY | VT_VARIANT

[out]VARIANT* nTagType, 实时记录的Tag类型数组，nTagType->vt = VT_ARRAY | VT_VARIANT

[out]VARIANT* bsValue, 实时记录的值数组，bsValue->vt = VT_ARRAY | VT_VARIANT

[out]VARIANT* nErrCodes, 实时记录的错误码数组，nErrCodes->vt = VT_ARRAY | VT_VARIANT

[out,retval]LONG* nRetErr,返回值

返回值

查询成功，返回RD_SUCCESS，不是所有的都成功返回EC_HD_API_QUERY_SNAPSHOTS_FAILED。查询失败返回其它错误码，见error_code.h。

说明

查询实时记录（多点查询）函数。通过TagID数组查询多个Tag的内存快照中的最新记录。

返回RD_SUCCESS，表示所有的内存快照都查询成功；返回EC_HD_API_QUERY_SNAPSHOTS_FAILED，表明不是所有查询都成功；返回其它错误码表明查询失败，具体的错误码保存在nErrorCode数组中。

举例

Set objArray= CreateObject("hdCOMInterface.hdCOMClass.1")

Dim ip,port,bakip,bakport,timeout

ip= "127.0.0.1"

port= 5678

bakip = "1.2.3.4"

bakport = 1234

timeout= 3

Dim ret

objArray.com_nt_connect ip,port,bakip,bakport,timeout

Dim ids

ids=Array(CLng(1),CLng(2),CLng(300))

Dim recnum

recnum=3

Dim nsec,nmsec,nquality,ntype,nvalue,nerrcode,result

result = CLng(objArray.com_sn_query_snapshots (recnum,ids,nsec,nmsec,nquality,ntype,nvalue,nerrcode))

Msgbox "com_sn_query_snapshot错误码是：" &result

if result=0 or result=119610 then

Dim x6,showerrcode

showerrcode = "调用后errcode:"

for x6= LBound(nerrcode) to UBound(nerrcode)

showerrcode = showerrcode & nerrcode(x6) & "; "

MsgBox showerrcode

Dim x1,showsec

showsec = "调用后sec:"

for x1= LBound(nsec) to UBound(nsec)

showsec = showsec & nsec(x1) & "; "

MsgBox showsec

Dim x2,showmsec

showmsec = "调用后msec:"

for x2= LBound(nmsec) to UBound(nmsec)

showmsec = showmsec & nmsec(x2) & "; "

MsgBox showmsec

Dim x3,showquality

showquality = "调用后quality:"

for x3= LBound(nquality) to UBound(nquality)

showquality = showquality & nquality(x3) & "; "

MsgBox showquality

Dim x4,showtype

showtype = "调用后type:"

for x4= LBound(ntype) to UBound(ntype)

showtype = showtype & ntype(x4) & "; "

MsgBox showtype

Dim x5,showvalue

showvalue = "调用后Value:"

for x5= LBound(nvalue) to UBound(nvalue)

showvalue = showvalue & nvalue(x5) & "; "

MsgBox showvalue

end if

objArray.com_nt_disconnect

Set objArray= nothing

查询实时记录（多点查询）com_sn_query_snapshots

查询实时记录（多点查询）com_sn_query_snapshots