[求助]在一个窗口调取2个摄像头，怎么老是只显示1个？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]在一个窗口调取2个摄像头，怎么老是只显示1个？

共有3099人关注过本帖树形打印复制链接主题：[求助]在一个窗口调取2个摄像头，怎么老是只显示1个？

yjm789000

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：136 积分：1723 威望：0 精华：0 注册：2016/7/18 20:17:00

[求助]在一个窗口调取2个摄像头，怎么老是只显示1个？ 发帖心情

Post By：2019/5/27 23:35:00 [只看该作者]

[求助]在一个窗口调取2个摄像头，怎么老是只显示1个？

此主题相关图片如下：s1.jpg

使用的代码是下面的：

'获取摄像头列表

Dim camList As WinForm.ComboBox = e.Form.Controls("CamList")

Dim camList1 As WinForm.ComboBox = e.Form.Controls("CamList1")

Functions.Execute("GetCams")

'显示摄像头列表

Dim i As Integer

camList.Items.Clear

camList1.Items.Clear

For i=0 To _CamList.Count - 1

camList.Items.Add(_CamList(i))

camList1.Items.Add(_CamList(i))

'默认选中第一个摄像头

If _CamList.Count > 1 And _CamIndex < 1

_CamIndex = 1

End If

camList.SelectedIndex = _CamIndex

camList1.SelectedIndex = _CamIndex

'激活预览

If _CamList.Count > 0

_CamIndex = 1

Functions.Execute("SetCamView",_CamIndex,e.Form.Controls("CamView"))

Functions.Execute("SetCamView",_CamIndex,e.Form.Controls("CamView1"))

Else

MessageBox.Show("未检测摄像头,请先连接摄像头!","警告")

e.Form.Close()

End If

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/5/28 9:23:00 [只看该作者]

测试了一下，支持多摄像头的。SetCamView代码改一下，如

'在指定控件上预览摄像头视频
'参数0 : 摄像头序号
'参数1 : 视频预览控件, 建议使用Panel,PictureBox第一次调用不显示图像

Dim ViewCamIndex As String = Args(0)
Dim ViewControl As WinForm.Control = Args(1)
Dim cam As DCap.Filter
If _Cap IsNot Nothing
    _Cap.PreviewWindow = Nothing
End If
If ViewCamIndex > 0 And ViewCamIndex < _CamList.Count Then
    Functions.Execute("GetCams")
    cam = _Cams.VideoInputDevices(ViewCamIndex-1)
    Try
        Dim Cap = New DCap.Capture(cam,Nothing)
        Cap.PreviewWindow = ViewControl.basecontrol
        Cap.GrapImg()

        vars(ViewCamIndex) = cap
    Catch ex As Exception
        MessageBox.Show("视频预览出现错误." & ex.Message,"提示",MessageBoxButtons.OK)
    End Try
End If

对应的，你其余代码也要修改（涉及到_cap变量的，要改成 vars(0)、vars(1) 才行。细节自己调整