How can I connect WebCam to my Application
-
I want to connect Webcam to my application. I have made a form i want that as i click the button the image from webcam should be apear in picturebox. Please help me !!!!!!!!!!!!!!!!!
-
I want to connect Webcam to my application. I have made a form i want that as i click the button the image from webcam should be apear in picturebox. Please help me !!!!!!!!!!!!!!!!!
I have just used the same kind of thing on one of my projects. I cant remember where i got this code from but it works. This is how i decided to implement it you can mess around with it to how u want it once you have it working. 1) Create a picture box and call it "picCapture" 2) Create a list box and call it "Video_Sources" 3) Create a Button Called "Change_Video_Apply" 4) Create a Buttin Called "Change_Video_Source" On the Form designer place the Button and List box 'Behind' the Picture box. Make sure the pic box has a ratio of 4:3 for its Width:Height - stops streching Copy these into your form class Place this with you declerations i.e. before subroutines
#Region "Webcam Defines" 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 Friend WithEvents SerialPort1 As System.IO.Ports.SerialPort Friend WithEvents Button3 As System.Windows.Forms.Button Friend WithEvents Timer1 As System.Windows.Forms.Timer Friend WithEvents Button4 As System.Windows.Forms.Button ' 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, _ 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 Inte