Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: LeandroA en Septiembre 04, 2011, 09:52:33 pm
-
Hola alguien sabe como capturar cuando se preciona el boton que tiene la webcam?
Saludos.
-
No se si sirva no probé por que no tengo ahora la camarita.
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
Private Sub Command1_Click()
'Código que realiza la captura de la imagen:
temp = SendMessage(hwndc, WM_CAP_EDIT_COPY, 1, 0)
Set Picture1.Picture = Clipboard.GetData
End Sub
Private Sub Form_Load()
'Código que activa la captura de imágenesse 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
End Sub
-
Gracias Enter pero no es lo que busco, yo quiero interceptar el presionado este boton
(http://www.vbforums.com/attachment.php?attachmentid=85702&stc=1&d=1315220156)
Saludos.
-
Hola Leandro!!!
Creo... CREO que esta es la solución...
http://www.vbforums.com/showthread.php?t=552692
Cualquier cosa avisame...
Un saludo,
Hugo
---------------------------------
Igual te comento...
Buscando en Google con el siguiente termino, seguramente encontrarás la solución...
intitle:webcam +Snapshot +button +vb6
Fijate este link:
http://www.bigresource.com/Tracker/Track-vb-BSQClaWJhg/
Ahora mismo no puedo confirmartelo, ya que no estoy en mi PC... :) pero me gustaría
Hasta luego!
-
Hola Leandro
Un amigo me explico que lo que se hace es revisar los mensages en los usb y asi detectar cuando el hardware de la camara envia al usb que se ha presionado boton.
en este link lo explican mejor, espero te sea de ayuda.
http://forums.quickcamteam.net/showthread.php?tid=833 (http://forums.quickcamteam.net/showthread.php?tid=833)
Saludos