当COM接口已经成功安装到计算中之后,可以在iCV的组态中通过书写vb脚本调用COM接口。
举例如下:
1. 安装并启动iCV。
2. 打开iCV组态系统。
3. 新建画面“testCOMbyVBA”。
4. 在画面中添加按钮。
5. 在按钮处单击右键,弹出属性修改框,按图修改按钮名和显示名称。
6. 添加vb脚本。
7. 在按钮上右键点击“编辑脚本”,弹出脚本编辑工具。
8. 编辑对象脚本,内容是按钮按下时响应函数:
|
|
Set objArray= CreateObject("hdCOMInterface.hdCOMClass.1")
Dim ip,port,bakip,bakport,timeout ip= "127.0.0.1" port= 5678 bakip = "" bakport = timeout= 3
Dim ret objArray.com_nt_connect ip,port,bakip,bakport,timeout Dim usrname,password,result usrname= "test" password="test" result = CLng(objArray.com_sc_login (usrname,password))
objArray.com_nt_disconnect
Msgbox "login result is:" &result
Set objArray= nothing |
9. 最后运行画面,单击按钮,就可以调用COM接口了。
10. 其他COM接口的调用方式都是类似的,请参考COM接口详细介绍。