intouch/ifix嵌入视频控件2(报警视频联动初步思路)
在项目中有朋友遇到类似的需求,ifix中嵌入视频,并实现报警与视频的联动功能。诸如,重要设备启动时,摄像头自动弹窗,并持续一段时间自动弹窗关掉;设备故障时,摄像头自动截图,录像一段时间存储;设备停止时,摄像头自动弹窗等等。其实本质上,对ifix来讲,就是出发相应的报警事件,并在报警事件中调用相应接口实现。
重要点:设备启动/停止/故障时,摄像头如何自动跟随并拍照记录?
思路:设置预置点。(每个触发事件,配置好相应的预置点;当事件触发时,摄像头自动跟随到预置点即可)
初步将整个ifix嵌入视频,开发流程梳理下:
1.控件注册
直接打开开发包中register脚本双击,显示注册成功即可。
2.控件嵌入
插入OLE对象,找到NetvideoActive.ocx插入
3.脚本编写
'画面关闭时,释放摄像头
Private Sub CFixPicture_Close()
NetVideoActiveX231.ClearOCX
End Sub
'画面打开时,连接摄像头并开启实时播放
Private Sub CFixPicture_Initialize()
Dim lUserID As Long
Dim ret As Boolean
lUserID = NetVideoActiveX231.Login("192.168.1.127", 8000, "admin", "jsjl1340")
ret = NetVideoActiveX231.StartRealPlay(0, 0, 0)
NetVideoActiveX231.AboutBox
End Sub
'测试截图功能
Private Sub CommandButton1_Click()
NetVideoActiveX231.BMPCapturePicture "C:\Users\yuanshengqi\Desktop", True
End Sub
4.事件触发
在事件触发时,(编写调度脚本,比如事件调度事件,触发某些条件时,可以执行相关接口,比如截图功能,转换到预置点等)。
相关资源:
本文来自博客园,作者:cache.yuan,转载请注明原文链接:https://www.cnblogs.com/cache-yuan/p/12870784.html