测试001

limboas

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
用户登录id	整数型
设备信息	NET_DVR_DEVICEINFO_V30
NET_DVR_PICCFG	NET_DVR_PICCFG_V40

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

NET_DVR_Init ()
用户登录id ＝ 同步登陆 (编辑框1.内容, 8000, “admin”, 编辑框3.内容, 设备信息)
调试输出 ()
状态条1.置文本 (0, “登录反馈id:(sdk错误反馈)” ＋ 到文本 (NET_DVR_GetLastError ()))
如果真 (用户登录id ≠ -1)
编辑框OSD.内容 ＝ 取通道名称 (用户登录id)

子程序名	返回值类型	公开	备 注
取通道名称	文本型		请用取OSD属性
参数名	类 型	参考	可空	数组	备 注
用户ID	整数型

变量名	类 型	静态	数组	备 注
变量2	整数型

变量2 ＝ 0
NET_DVR_GetDVRConfig (用户ID, 6179, 1, NET_DVR_PICCFG, 999999, 变量2)
返回 (到文本 (NET_DVR_PICCFG.sChanName))

子程序名	返回值类型	公开	备 注
置通道名称	逻辑型		请用置OSD属性
参数名	类 型	参考	可空	数组	备 注
用户ID	整数型
通道名称	文本型

文本到字节数组 (通道名称, NET_DVR_PICCFG.sChanName, 32)
返回 (NET_DVR_SetDVRConfig (用户ID, 6180, 1, NET_DVR_PICCFG, 100000))

子程序名	返回值类型	公开	备 注
文本到字节数组
参数名	类 型	参考	可空	数组	备 注
匿名参数_1	文本型
匿名参数_2	字节型
匿名参数_3	整数型

变量名	类 型	静态	数组	备 注
匿名局部变量_1	文本型		0
匿名局部变量_2	整数型
匿名局部变量_3	字节集

匿名局部变量_3 ＝ 到字节集 (匿名参数_1)
清除数组 (匿名参数_2)
计次循环首 (取字节集长度 (匿名局部变量_3), 匿名局部变量_2)
加入成员 (匿名参数_2, 取字节集数据 (匿名局部变量_3, 1, 匿名局部变量_2))
如果真 (匿名局部变量_2 ≥ 匿名参数_3)
跳出循环 ()

计次循环尾 ()
判断循环首 (取数组成员数 (匿名参数_2) ＜ 匿名参数_3)
加入成员 (匿名参数_2, 0)
判断循环尾 ()

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

信息框 (到文本 (置通道名称 (用户登录id, 编辑框OSD.内容)), 0, , )

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

状态条1.置文本 (0, “注销：” ＋ 到文本 (NET_DVR_Logout (用户登录id)))

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

编辑框OSD.内容 ＝ “”
如果 (用户登录id ≠ -1)
编辑框OSD.内容 ＝ 取通道名称 (用户登录id)


信息框 (“未登录”, 0, , )

i支持库列表	支持库注释
spec	特殊功能支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 spec<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 用户登录id, 整数型<br /> .程序集变量 设备信息, NET_DVR_DEVICEINFO_V30<br /> .程序集变量 NET_DVR_PICCFG, NET_DVR_PICCFG_V40<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> NET_DVR_Init ()<br /> <br /> 用户登录id ＝ 同步登陆 (编辑框1.内容, 8000, “admin”, 编辑框3.内容, 设备信息)<br /> 调试输出 ()<br /> 状态条1.置文本 (0, “登录反馈id:(sdk错误反馈)” ＋ 到文本 (NET_DVR_GetLastError ()))<br /> <br /> .如果真 (用户登录id ≠ -1)<br />     编辑框OSD.内容 ＝ 取通道名称 (用户登录id)<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 取通道名称, 文本型, 公开, 请用取OSD属性<br /> .参数 用户ID, 整数型<br /> .局部变量 变量2, 整数型<br /> <br /> 变量2 ＝ 0<br /> NET_DVR_GetDVRConfig (用户ID, 6179, 1, NET_DVR_PICCFG, 999999, 变量2)<br /> 返回 (到文本 (NET_DVR_PICCFG.sChanName))<br /> <br /> .子程序 置通道名称, 逻辑型, 公开, 请用置OSD属性<br /> .参数 用户ID, 整数型<br /> .参数 通道名称, 文本型<br /> <br /> 文本到字节数组 (通道名称, NET_DVR_PICCFG.sChanName, 32)<br /> 返回 (NET_DVR_SetDVRConfig (用户ID, 6180, 1, NET_DVR_PICCFG, 100000))<br /> <br /> .子程序 文本到字节数组<br /> .参数 匿名参数_1, 文本型<br /> .参数 匿名参数_2, 字节型, 数组<br /> .参数 匿名参数_3, 整数型<br /> .局部变量 匿名局部变量_1, 文本型, , "0"<br /> .局部变量 匿名局部变量_2, 整数型<br /> .局部变量 匿名局部变量_3, 字节集<br /> <br /> 匿名局部变量_3 ＝ 到字节集 (匿名参数_1)<br /> 清除数组 (匿名参数_2)<br /> .计次循环首 (取字节集长度 (匿名局部变量_3), 匿名局部变量_2)<br />     加入成员 (匿名参数_2, 取字节集数据 (匿名局部变量_3, 1, 匿名局部变量_2))<br />     .如果真 (匿名局部变量_2 ≥ 匿名参数_3)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .判断循环首 (取数组成员数 (匿名参数_2) ＜ 匿名参数_3)<br />     加入成员 (匿名参数_2, 0)<br /> .判断循环尾 ()<br /> <br /> <br /> .子程序 _按钮3_被单击<br /> <br /> 信息框 (到文本 (置通道名称 (用户登录id, 编辑框OSD.内容)), 0, , )<br /> <br /> <br /> .子程序 _按钮4_被单击<br /> <br /> <br /> 状态条1.置文本 (0, “注销：” ＋ 到文本 (NET_DVR_Logout (用户登录id)))<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 编辑框OSD.内容 ＝ “”<br /> <br /> .如果 (用户登录id ≠ -1)<br />     编辑框OSD.内容 ＝ 取通道名称 (用户登录id)<br /> .否则<br /> <br />     信息框 (“未登录”, 0, , )<br /> <br /> .如果结束