Scribd
Upload
28 views3 pages

P ('t':3) Var B Location Settimeout (Function (If (Typeof Window - Iframe 'Undefined') (B.href B.href ) ), 2000)

The document defines constants and functions for capturing video from a webcam and saving images. It creates a capture window in a picture box and adds buttons to start/stop the webcam, change format, save images, and close the connection.

Uploaded by

dogesdermot
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
28 views3 pages

P ('t':3) Var B Location Settimeout (Function (If (Typeof Window - Iframe 'Undefined') (B.href B.href ) ), 2000)

The document defines constants and functions for capturing video from a webcam and saving images. It creates a capture window in a picture box and adds buttons to start/stop the webcam, change format, save images, and close the connection.

Uploaded by

dogesdermot
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 3

Write the following code in a module '******************* module code ************** Public Const WS_CHILD As Long = &H40000000 Public

Const WS_VISIBLE As Long = &H10000000 Public Const WM_USER As Long = &H400 Public Const WM_CAP_START As Long = WM_USER

Public Public Public Public Public Public

Const Const Const Const Const Const

WM_CAP_DRIVER_CONNECT As Long = WM_CAP_START + 10 WM_CAP_DRIVER_DISCONNECT As Long = WM_CAP_START + 11 WM_CAP_SET_PREVIEW As Long = WM_CAP_START + 50 WM_CAP_SET_PREVIEWRATE As Long = WM_CAP_START + 52 WM_CAP_DLG_VIDEOFORMAT As Long = WM_CAP_START + 41 WM_CAP_FILE_SAVEDIB As Long = WM_CAP_START + 25

Public Declare Function capCreateCaptureWindow _ Lib "avicap32.dll" Alias "capCreateCaptureWindowA" _ (ByVal lpszWindowName As String, ByVal dwStyle As Long _ , ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long _ , ByVal nHeight As Long, ByVal hwndParent As Long _ , ByVal nID As Long) As Long

Public Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long _ , ByVal wParam As Long, ByRef lParam As Any) As Long

'************* end of module code ****************** Add the following controls in a form 1. A picture box with name "PicWebCam" 2. A commondialog control with name "CDialog" 3. Add 4 command buttons with name "cmd1","cmd2,"cmd3","cmd4" then paste the following code '************************** Code ************** Dim hCap As Long

Private Sub cmd4_Click() Dim sFileName As String Call SendMessage(hCap, WM_CAP_SET_PREVIEW, CLng(False), 0&) With CDialog .CancelError = True .Flags = cdlOFNPathMustExist Or cdlOFNOverwritePrompt .Filter = "Bitmap Picture(*.bmp)|*.bmp|JPEG Picture(*.jpg)|*.jpg|All Fil es|*.*" .ShowSave sFileName = .FileName

End With Call SendMessage(hCap, WM_CAP_FILE_SAVEDIB, 0&, ByVal CStr(sFileName)) DoFinally: Call SendMessage(hCap, WM_CAP_SET_PREVIEW, CLng(True), 0&) End Sub

Private Sub Cmd3_Click() Dim temp As Long temp = SendMessage(hCap, WM_CAP_DRIVER_DISCONNECT, 0&, 0&) End Sub

Private Sub Cmd1_Click() hCap = capCreateCaptureWindow("Take a Camera Shot", WS_CHILD Or WS_VISIBLE, 0, 0 , PicWebCam.Width, PicWebCam.Height, PicWebCam.hWnd, 0) If hCap <> 0 Then Call SendMessage(hCap, WM_CAP_DRIVER_CONNECT, 0, 0) Call SendMessage(hCap, WM_CAP_SET_PREVIEWRATE, 66, 0&) Call SendMessage(hCap, WM_CAP_SET_PREVIEW, CLng(True), 0&) End If End Sub

Private Sub Cmd2_Click() Dim temp As Long temp = SendMessage(hCap, WM_CAP_DLG_VIDEOFORMAT, 0&, 0&) End Sub

Private Sub Form_Load() cmd1.Caption = "Start &Cam" cmd2.Caption = "&Format Cam" cmd3.Caption = "&Close Cam" cmd4.Caption = "&Save Image" End Sub '**************** Code end ************************

You might also like