Question

我正在尝试从连接到USB驱动器的网络摄像头捕获提要。我已经测试过网络摄像头，并且该网络摄像头可以在其他软件中运行，但是无法在我的vb代码中使用。

我不确定如何获取代码以显示所有相关的WebCam设备，因为我已将2连接到系统。在我设法生成的所有设备列表中，是Microsoft WDM Image Capture（Win32），并且我的picturebox1对象中没有网络摄像头。

这是我到目前为止的代码...

    Private Sub LoadDeviceList()
    Dim strName As String = Space(100)
    Dim strVer As String = Space(100)
    Dim bReturn As Boolean
    Dim x As Integer = 0
    Do
        bReturn = capGetDriverDescriptionA(x, strName, 100, strVer, 
    100)
        lstDevices.Items.Add(strName.Trim)
        x += 1
    Loop Until bReturn = False
    End Sub

    Private Sub OpenPreviewWindow()
    Dim iHeight As Integer = picCapture.Height
    Dim iWidth As Integer = picCapture.Width
    hHwnd = capCreateCaptureWindowA(iDevice, WS_VISIBLE Or WS_CHILD, 
    0, 0, 640, 480, picCapture.Handle.ToInt32, 0)
    If SendMessage(hHwnd, WM_CAP_DRIVER_CONNECT, 0, 0) Then
        SendMessage(hHwnd, WM_CAP_SET_SCALE, True, 0)
        SendMessage(hHwnd, WM_CAP_SET_PREVIEWRATE, 66, 0)
        SendMessage(hHwnd, WM_CAP_SET_PREVIEW, True, 0)
        SetWindowPos(hHwnd, HWND_BOTTOM, 0, 0, picCapture.Width, 
        picCapture.Height, SWP_NOMOVE Or SWP_NOZORDER)
        btnSave.Enabled = True
        btnStop.Enabled = True
        btnStart.Enabled = False
    Else
        DestroyWindow(hHwnd)
        btnSave.Enabled = False
    End If
    End Sub

任何帮助将不胜感激...

网络摄像头未显示在picturebox1中

0 个答案: