1.控件初始化方法
Public Sub InitVideo(ByVal messageIp As String, ByVal messagePort As String, ByVal user As
String, ByVal ip As String, ByVal m_IDVRurl As String, ByVal m_username As String, ByVal
m_psw As String, ByVal m_isJy As Boolean, ByVal defaultCam As String, ByRef CctvMsg() As
CCTVmessage, ByRef CamMsg() As CamMessage)
messageIp 消息服务器 ip 地址
messagePort 消息服务器端口
user 登陆用户名如“admin”
ip 登陆客户端 ip 地址（指打开视频的机器的 ip 地址）
IDVRurl IDVR 网站地址如（http://192.168.1.155/adv）
m_username 登陆 IDVR 网站的用户名
m_psw 登陆 IDVR 网站密码
m_isJy 是否是局域网登陆
defaultCam 打开视频时默认切换到的摄像机 ID
CctvMsg() 视频 信 息 数 组 用 select * from t_cctv_channel t2,t_cctv_master t3,t_cctv_mon t4
where t3.masterid=t2.masterid and t2.monnumber = t4.auxnumber 从数据库中查找
CamMsg() 摄像机数组 用 select * from t_cctv_cam 从数据库中查找
Public Type CCTVmessage
chlid As String
masterid As String
serverid As String
monNumber As String
monName As String
End Type
Public Type CamMessage
camId As String 摄像机逻辑号
name As String 摄像机名称
End Type
