无法通过Vb.net在Windows 7中捕获图像 [英] Unable to Capture Image in Windows 7 by Vb.net

问题描述

嗨。

我尝试使用 Avicap.dll 进行编码，它在windos Xp中运行良好

但是当我在Win 7操作系统下尝试我的代码时，它无法捕获。

有什么办法可以帮助。



谢谢你提前



我使用下面的代码。

这不是我的代码实际上我从谷歌那里拿走了它。

Hi.
I tried to code using Avicap.dll, and it is working fine in windos Xp
But when I tried my codes under Win 7 OS, it failed to capture.
is there any way please help.

Thanks In Advance

I have usage the code bellow.
it is not my code actually i have taken it from google.

  Const WM_CAP As Short = &H400S
    Const WM_CAP_DRIVER_CONNECT As Integer = WM_CAP + 10
    Const WM_CAP_DRIVER_DISCONNECT As Integer = WM_CAP + 11
    Const WM_CAP_EDIT_COPY As Integer = WM_CAP + 30
    Const WM_CAP_SET_PREVIEW As Integer = WM_CAP + 50
    Const WM_CAP_SET_PREVIEWRATE As Integer = WM_CAP + 52
    Const WM_CAP_SET_SCALE As Integer = WM_CAP + 53
    Const WS_CHILD As Integer = &H40000000
    Const WS_VISIBLE As Integer = &H10000000
    Const SWP_NOMOVE As Short = &H2S
    Const SWP_NOSIZE As Short = 1
    Const SWP_NOZORDER As Short = &H4S
    Const HWND_BOTTOM As Short = 1
    Dim iDevice As Integer = 0 ' Current device ID
    Dim hHwnd As Integer ' Handle to preview window 


 Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
        (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, _
        <marshalas(unmanagedtype.asany)> ByVal lParam As Object) As Integer

    Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Integer, _
        ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, _
        ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer

    Declare Function DestroyWindow Lib "user32" (ByVal hndw As Integer) As Boolean

    Declare Function capCreateCaptureWindowA Lib "avicap32.dll" _
        (ByVal lpszWindowName As String, ByVal dwStyle As Integer, _
        ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, _
        ByVal nHeight As Short, ByVal hWndParent As Integer, _
        ByVal nID As Integer) As Integer

    Declare Function capGetDriverDescriptionA Lib "avicap32.dll" (ByVal wDriver As Short, _
        ByVal lpszName As String, ByVal cbName As Integer, ByVal lpszVer As String, _
        ByVal cbVer As Integer) As Boolean


Private Sub OpenForm()
       Try

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

           ' ' Open Preview window in picturebox
           '
           hHwnd = capCreateCaptureWindowA(iDevice, WS_VISIBLE Or WS_CHILD, 0, 0, 640, _
               480, PictureBox1.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, PictureBox1.Width, PictureBox1.Height, _
                       SWP_NOMOVE Or SWP_NOZORDER)
               End If
       Catch ex As Exception

       End Try
   End Sub

Private Sub btnTakeImage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTakeImage.Click
               OpenForm()
End Sub

推荐答案

Mabe这篇文章可能对你有所帮助 Stack Overflow

Mabe this article may be of help to you Stack Overflow

你最好使用 DriverX 文件。

就是这样。

you better use DriverX file.
That is the way.

这篇关于无法通过Vb.net在Windows 7中捕获图像的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！