Snapshot from webcam

i started this project in interest of a thread for taking ID photos

the code, using AMCAP, has been put together from many sources including research in msdn, and several other forums and is not original by me, i had trouble to make my webcam work, or select which cam to use if more than 1 was attached, there maybe better solutions than the way i have done it, but it works for me on XP home, with a generic webcam and a kodak dual mode camera.

i have used a timer to take a series (6) of snaps, which would allow the user, to select the best photo, to do whatever they wanted, as there seems to be no other code for webcams in the code bank i decided to post this project

Nice work. This also works for me (XP pro with Logitech cam)

but, when the windows is not on the top, it captures a part of the window on the top!!!

that's my problem,

set that to topmost window then

the program only taking 5 snapshort only right it didnot save the picture correct?
what if i want to save the photo in desktop how should i write it?

try
savepicture picture1(index).picture, path & "\campic.bmp"
where index is the picture box you want to save and path is the folder to save in

do you mean by savepicture picture1(0).picture, "desktop" & "\campic.bmp"

it gives an error

desktop is not a vaild path
you would need the full path, something like, C:\Documents and Settings\ericeoh\Desktop
search in vb6 forum for code to return special folders

when i try to close this it just locks up?

This thread is a little old, but I came across it trying to solve a problem using a built-in webcam (as opposed to external usb-connected), and now that my code finally works I thought I'd share it in case anyone out there is still looking....

[Originally posted to the thread "Re: WM_CAP_DRIVER_CONNECT connects but black window?", but added here by request from pete]

The problem I had was with code almost identical to that listed here, which worked fine with a USB-attached webcam, but not with a built-in device. I noticed that the SendMessage was always failing, but could find no versions of this code which actually investigate WHY it fails; all they ever do is just give up and destroy the capture window.

After many attempts to find the actual error, I noticed that *occasionally*, maybe 1 time in 10, the code did actually work, for no good reason.

I had to give up on finding the error, as the code got less and less stable the more error-handling code I put in. BUT, I finally put some retry code in, and the whole application burst into life and now works 100% reliably!

What fixed it for me was to replace the single IF SendMessage line with the following:

Code:

---

        Dim connectAttempts As Integer = 0
        While Not CBool(SendMessage(hHwnd, WM_CAP_DRIVER_CONNECT, 0, Nothing))
            connectAttempts += 1
            If connectAttempts > 10 Then
                DestroyWindow(hHwnd)
                Me.Cursor = Cursors.Default
                Return False
            End If
            Threading.Thread.Sleep(1000)
        End While

---

Hope this helps someone, as it cost me a couple of frustrating days getting this to work!

Ade