Programación General > Visual Basic 6.0 e inferiores

 Re: Capturar imagen desde una webcam

(1/3) > >>

MindEye:
- Me gustaría que alguien me explicara por favor, como puedo capturar una imagen desde una webcam, para guardarla en el disco duro.

 - Gracias amigos.

jjabietar:
Declaraciones:

Const ws_visible = &H10000000
Const ws_child = &H40000000
Const WM_USER = 1024
Const WM_CAP_EDIT_COPY = WM_USER + 30
Const wm_cap_driver_connect = WM_USER + 10
Const wm_cap_set_preview = WM_USER + 50
Const wm_cap_set_overlay = WM_USER + 51
Const WM_CAP_SET_PREVIEWRATE = WM_USER + 52
Const WM_CAP_SEQUENCE = WM_USER + 62
Const WM_CAP_SINGLE_FRAME_OPEN = WM_USER + 70
Const WM_CAP_SINGLE_FRAME_CLOSE = WM_USER + 71
Const WM_CAP_SINGLE_FRAME = WM_USER + 72
Const DRV_USER = &H4000
Const DVM_DIALOG = DRV_USER + 100
Const PREVIEWRATE = 30

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lparam As Long) As Long
Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" (ByVal a As String, ByVal b As Long, ByVal c As Integer, ByVal d As Integer, ByVal e As Integer, ByVal f As Integer, ByVal g As Long, ByVal h As Integer) As Long

Dim hwndc As Long


Código que activa la captura de imágenes:(se supone un formulario con 2 picture llamados "picture1" y "picture2")

    hwndc = capCreateCaptureWindow("Ventana de Captura", ws_child Or ws_visible, 0, 0, Picture2.Width, Picture2.Height, Picture2.hwnd, 0)
    If (hwndc <> 0) Then
        temp = SendMessage(hwndc, wm_cap_driver_connect, 0, 0)
        temp = SendMessage(hwndc, wm_cap_set_preview, 1, 0)
        temp = SendMessage(hwndc, WM_CAP_SET_PREVIEWRATE, PREVIEWRATE, 0)
    End If

Código que realiza la captura de la imagen:

   temp = SendMessage(hwndc, WM_CAP_EDIT_COPY, 1, 0)
   Set Picture1.Picture = Clipboard.GetData

Espero que te sirva de ayuda.

Saludos,
Joaquín.

agfed:
las camaras logitech quickam incluyen un sdk, con codigo en vba

MindEye:
- Muchisimas Gracias.

 - Estoy realmente agradecido

eliza_marti:
Hola Chicos!!  :hola: ..JJABIETAR..derrepente..no sabes como configurar la camara Web....así como tu la haces..(osea... que? constantes tengo que mandar a sendmessager y como?)...lo que quiero es cambiar la dimensión de la imagen que se presenta..y si es posible .. :unsure: ..Me podrías enseñar como capturo la imagen de la webcam para guardarla como JPG?.. :) ....De antemano...Muchas gracias.. :P ..Bye.. :hola:  :comp:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente