Click here to Skip to main content
Rate this: bad
good
Please Sign up or sign in to vote.
See more: VB.NET
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
Posted 14-Dec-12 23:25pm
v2

1 solution

Rate this: bad
good
Please Sign up or sign in to vote.

Solution 1

Mabe this article may be of help to you Stack Overflow
  Permalink  

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



Advertise | Privacy | Mobile
Web01 | 2.8.141022.1 | Last Updated 20 Dec 2012
Copyright © CodeProject, 1999-2014
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100