MinhajAli Ответов: 0

Как делать снимки с помощью USB-камеры в Vb.net

Я использую Visual Basic 2010. Попытка надежно захватить изображения веб-камеры. Он работает несколько раз - но примерно в 50% случаев он всплывает и запрашивает Источник видео. Даже после этого всплывающего окна он работает только спорадически.

Платформа Windows 7 32bit, Vusial Basic 2010

Вот пример моего кода-взятый из примеров, размещенных в интернете.

Private Sub OpenForm()
       Try

           Dim iHeight As Integer = Privew.Height
           Dim iWidth As Integer = Privew.Width

           '
           ' Open Preview window in picturebox
           '
           hHwnd = capCreateCaptureWindowA(iDevice, WS_VISIBLE Or WS_CHILD, 0, 0, 640, _
               480, Privew.Handle.ToInt32, 0)

           '
           ' Connect to device
           '
           If SendMessage(hHwnd, WM_CAP_DRIVER_CONNECT, iDevice, 0) Then
               '
               'Set the preview scale
               '
               SendMessage(hHwnd, WM_CAP_SET_SCALE, True, 0)

               '
               'Set the preview rate in milliseconds
               '
               SendMessage(hHwnd, WM_CAP_SET_PREVIEWRATE, 66, 0)

               '
               'Start previewing the image from the camera
               '
               SendMessage(hHwnd, WM_CAP_SET_PREVIEW, True, 0)

               '
               ' Resize window to fit in picturebox
               '
               SetWindowPos(hHwnd, HWND_BOTTOM, 0, 0, Privew.Width, Privew.Height, _
                       SWP_NOMOVE Or SWP_NOZORDER)
           End If
       Catch ex As Exception

       End Try



Он работает только иногда - много раз спрашивая меня об "источнике видео", прежде чем он может показать или не показать изображение.

если кто-нибудь знает, помогите мне
Заранее спасибо

0 Ответов