求大佬关于硬盘录像机时间的

w151

请大佬帮忙给个可行的代码，因为硬盘录像机与局域网的服务器会产生时间差，对数据审核有影响 ，所以通过易语言代码写一个程序

766711831

我这几天在研究海康的sdk  你这个应该是可以实现的
自己研究吧

766711831

根据这个函数 你自己弄一下吧 ，我也没时间搞，自己也是一堆事

qzspk0303

  

子程序名	返回值类型	公开	备 注
_按钮_取时间_被单击

变量名	类 型	静态	数组	备 注
bytesReturn	整数型
时间结构体	时间结构体NET_DVR_TIME
ret	逻辑型
时间	日期时间型

' 返回_用户id自行使用NET_DVR_Login()获取
ret ＝ HK_dll_取设备时间 (程_用户ID, #NET_DVR_GET_TIMECFG, 0, 时间结构体, 24, bytesReturn)  ' #NET_DVR_GET_TIMECFG=118 结构体大小24
如果真 (ret)
程_设备时间 ＝ 到时间 (到文本 (时间结构体.年) ＋ “年” ＋ 到文本 (时间结构体.月) ＋ “月” ＋ 到文本 (时间结构体.日) ＋ “日” ＋ 到文本 (时间结构体.时) ＋ “时” ＋ 到文本 (时间结构体.分) ＋ “分” ＋ 到文本 (时间结构体.秒) ＋ “秒”)
时钟1.时钟周期 ＝ 1000

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

程_设备时间 ＝ 增减时间 (程_设备时间, #秒, 1)
标签_NVR时间.标题 ＝ 到文本 (程_设备时间)

子程序名	返回值类型	公开	备 注
_按钮17_被单击

变量名	类 型	静态	数组	备 注
时间结构体	时间结构体NET_DVR_TIME
ret	逻辑型
bytesReturn	整数型
现行时间	日期时间型

现行时间 ＝ 取现行时间 ()
时间结构体.年 ＝ 取年份 (现行时间)
时间结构体.月 ＝ 取月份 (现行时间)
时间结构体.日 ＝ 取日 (现行时间)
时间结构体.时 ＝ 取小时 (现行时间)
时间结构体.分 ＝ 取分钟 (现行时间)
时间结构体.秒 ＝ 取秒 (现行时间)
ret ＝ HK_dll_置设备时间 (程_用户ID, #NET_DVR_SET_TIMECFG, 0, 时间结构体, 24)
如果真 (ret)
时钟1.时钟周期 ＝ 0
标签_NVR时间.标题 ＝ “”
程_设备时间 ＝ 取现行时间 ()
时钟1.时钟周期 ＝ 1000
调试输出 (“时间同步成功”)

子程序名	返回值类型	公开	备 注
_时钟2_周期事件

标签_本地时间.标题 ＝ 到文本 (取现行时间 ())

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮_取时间_被单击<br /> .局部变量 bytesReturn, 整数型<br /> .局部变量 时间结构体, 时间结构体NET_DVR_TIME<br /> .局部变量 ret, 逻辑型<br /> .局部变量 时间, 日期时间型<br /> <br /> ' 返回_用户id自行使用NET_DVR_Login()获取<br /> ret ＝ HK_dll_取设备时间 (程_用户ID, #NET_DVR_GET_TIMECFG, 0, 时间结构体, 24, bytesReturn)  ' #NET_DVR_GET_TIMECFG=118 结构体大小24<br /> .如果真 (ret)<br />     程_设备时间 ＝ 到时间 (到文本 (时间结构体.年) ＋ “年” ＋ 到文本 (时间结构体.月) ＋ “月” ＋ 到文本 (时间结构体.日) ＋ “日” ＋ 到文本 (时间结构体.时) ＋ “时” ＋ 到文本 (时间结构体.分) ＋ “分” ＋ 到文本 (时间结构体.秒) ＋ “秒”)<br />     时钟1.时钟周期 ＝ 1000<br /> .如果真结束<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> 程_设备时间 ＝ 增减时间 (程_设备时间, #秒, 1)<br /> 标签_NVR时间.标题 ＝ 到文本 (程_设备时间)<br /> <br /> .子程序 _按钮17_被单击<br /> .局部变量 时间结构体, 时间结构体NET_DVR_TIME<br /> .局部变量 ret, 逻辑型<br /> .局部变量 bytesReturn, 整数型<br /> .局部变量 现行时间, 日期时间型<br /> <br /> 现行时间 ＝ 取现行时间 ()<br /> 时间结构体.年 ＝ 取年份 (现行时间)<br /> 时间结构体.月 ＝ 取月份 (现行时间)<br /> 时间结构体.日 ＝ 取日 (现行时间)<br /> 时间结构体.时 ＝ 取小时 (现行时间)<br /> 时间结构体.分 ＝ 取分钟 (现行时间)<br /> 时间结构体.秒 ＝ 取秒 (现行时间)<br /> <br /> ret ＝ HK_dll_置设备时间 (程_用户ID, #NET_DVR_SET_TIMECFG, 0, 时间结构体, 24)<br /> .如果真 (ret)<br />     时钟1.时钟周期 ＝ 0<br />     标签_NVR时间.标题 ＝ “”<br />     程_设备时间 ＝ 取现行时间 ()<br />     时钟1.时钟周期 ＝ 1000<br />     调试输出 (“时间同步成功”)<br /> .如果真结束<br /> <br /> <br /> <br /> .子程序 _时钟2_周期事件<br /> <br /> 标签_本地时间.标题 ＝ 到文本 (取现行时间 ())

  

DLL命令名	返回值类型	公开	备 注
HK_dll_取设备时间	逻辑型
DLL库文件名:
HCNetSDK.dll
在DLL库中对应命令名:
NET_DVR_GetDVRConfig
参数名	类 型	传址	数组	备 注
lUserID	整数型			[in]NET_DVR_Login_V40等登录接口的返回值
dwCommand	整数型			[in]设备配置命令，详见“Remarks”说明,不同的命令对应不同的取值，如果该参数无效则置为0xFFFFFFFF即可，详见“Remarks”说明
lChannel	整数型			[in]通道号 无效置为0
lpOutBuffer	时间结构体NET_DVR_TIME			[out]接收数据的缓冲指针
dwOutBufferSize	整数型			[in]输入数据的缓冲长度(以字节为单位)
lpBytesReturned	整数型			[out]实际收到的数据长度指针，不能为NULL

DLL命令名	返回值类型	公开	备 注
HK_dll_置设备时间	逻辑型		NET_DVR_SET_TIMECFG校时可能会禁用设备配置的NTP校时功能
DLL库文件名:
HCNetSDK.dll
在DLL库中对应命令名:
NET_DVR_SetDVRConfig
参数名	类 型	传址	数组	备 注
lUserID	整数型			[in]用户ID 号，NET_DVR_Login_V40 的返回值
dwCommand	整数型			[in]设备配置命令
lChannel	整数型			无效[in]通道号，如果命令不需要通道号，该参数无效置为0xFFFFFFFF(4294967295)即可
lpInBuffer	时间结构体NET_DVR_TIME			[in]接收数据的缓冲指针
dwInBufferSize	整数型			[in]接收数据的缓冲长度(以字节为单位)

数据类型名	公开	备 注
时间结构体NET_DVR_TIME		NET_DVR_TIME
成员名	类 型	传址	数组	备 注
年	整数型
月	整数型
日	整数型
时	整数型
分	整数型
秒	整数型

.版本 2<br /> <br /> .DLL命令 HK_dll_取设备时间, 逻辑型, "HCNetSDK.dll", "NET_DVR_GetDVRConfig", 公开<br />     .参数 lUserID, 整数型, , [in]NET_DVR_Login_V40等登录接口的返回值<br />     .参数 dwCommand, 整数型, , [in]设备配置命令，详见“Remarks”说明,不同的命令对应不同的取值，如果该参数无效则置为0xFFFFFFFF即可，详见“Remarks”说明<br />     .参数 lChannel, 整数型, , [in]通道号 无效置为0<br />     .参数 lpOutBuffer, 时间结构体NET_DVR_TIME, 传址, [out]接收数据的缓冲指针 <br />     .参数 dwOutBufferSize, 整数型, , [in]输入数据的缓冲长度(以字节为单位)<br />     .参数 lpBytesReturned, 整数型, 传址, [out]实际收到的数据长度指针，不能为NULL <br /> <br /> .版本 2<br /> <br /> .DLL命令 HK_dll_置设备时间, 逻辑型, "HCNetSDK.dll", "NET_DVR_SetDVRConfig", 公开, NET_DVR_SET_TIMECFG校时可能会禁用设备配置的NTP校时功能<br />     .参数 lUserID, 整数型, , [in]用户ID 号，NET_DVR_Login_V40 的返回值<br />     .参数 dwCommand, 整数型, , [in]设备配置命令<br />     .参数 lChannel, 整数型, , 无效[in]通道号，如果命令不需要通道号，该参数无效置为0xFFFFFFFF(4294967295)即可<br />     .参数 lpInBuffer, 时间结构体NET_DVR_TIME, , [in]接收数据的缓冲指针<br />     .参数 dwInBufferSize, 整数型, , [in]接收数据的缓冲长度(以字节为单位)<br /> .版本 2<br /> <br /> .数据类型 时间结构体NET_DVR_TIME, 公开, NET_DVR_TIME<br />     .成员 年, 整数型<br />     .成员 月, 整数型<br />     .成员 日, 整数型<br />     .成员 时, 整数型<br />     .成员 分, 整数型<br />     .成员 秒, 整数型

补充内容 (2025-8-12 11:14):
#NET_DVR_SET_TIMECFG=119

w151

qzspk0303 发表于 2025-8-11 17:39
[e=0].版本 2
.支持库 spec

为什么提示错误(30): 找不到指定的变量名称“程_用户ID”。
程_用户ID是什么

补充内容 (2025-8-11 22:10):
为什么提示错误(30): 找不到指定的变量名称“程_用户ID”。
程_用户ID是什么      错误(27): 找不到指定的子程序名称“NET_DVR_GET_TIMECFG”。

qzspk0303

w151 发表于 2025-8-11 21:46
为什么提示错误(30): 找不到指定的变量名称“程_用户ID”。
程_用户ID是什么

程_用户ID 程序集变量
常量 #NET_DVR_GET_TIMECFG=118