Autor Tema: Boton De Camara Web (Leído 3306 veces)

riciar · « **en:** Sábado 25 de Febrero de 2006, 13:28 »

Hola, necesitaria saber como puedo capturar el boton de las camaras web con visual basic sin que se active el programa que viene con la camara.
gracias.

RadicalEd

Utiliza el buscador del foro, creo que de ahi encontre esto hace algun tiempo.

Código: Text

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 &#34;user32&#34; Alias &#34;SendMessageA&#34; (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lparam As Long) As Long
Private Declare Function capCreateCaptureWindow Lib &#34;avicap32.dll&#34; Alias &#34;capCreateCaptureWindowA&#34; (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 &#34;picture1&#34; y &#34;picture2&#34;)
 
hwndc = capCreateCaptureWindow(&#34;Ventana de Captura&#34;, ws_child Or ws_visible, 0, 0, Picture2.Width, Picture2.Height, Picture2.hwnd, 0)
If (hwndc &#60;&#62; 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
 

Ojala te sirva.
Chao

riciar

El programa de captura de imagenes con una webcam lo tengo, lo que necesito es que cuando pulso el boton de la webcam me congele la imagen y no se me active el programa que viene con la camara.
Gracias de nuevo.

eliza_marti · « **Respuesta #3 en:** Jueves 9 de Marzo de 2006, 00:11 »

hola riciar..

..pues si manejas la captura con un picture ..entonces podrias por ejemplo poner otro picture que cuando hagas el efecto de congelar la imagen pues se active el segundo picture..con la imagen congelada (claro..ocultando el otro..)..mmm..es una idea..

....chaitos..

..nos cuantas como te fue..

riciar

Gracias Eliza por responder.
Lo que necesitaria es poder ver cuando el usuario presiona el boton de la webcam y capturar en ese momento. El problema que tengo es que cuando pulso el boton se activa el soft que viene con la camara.
Gracias de nuevo.

eliza_marti

hola riciar..

..la verdad es que no te entiendomucho...

..segun lo que puienso creo que no estas utilizando apis..sino el programa manejador de la web cam...mmm..utiliza mejor las apis de windows..

..nos cuentas como te va..

..yo hice un programa parecidoutilizando las apis y 0 problems..

..bye..suerte!!!...

riciar

Veo que tengo un problema mas grande ya que no se manejar las apis de window para las camaras.
Vere que puedo hacer.
Gracias de nuevo Eliza.

SoloCodigo

Autor Tema: Boton De Camara Web (Leído 3306 veces)

riciar

Boton De Camara Web

RadicalEd

Re: Boton De Camara Web

riciar

Re: Boton De Camara Web

eliza_marti

Re: Boton De Camara Web

riciar

Re: Boton De Camara Web

eliza_marti

Re: Boton De Camara Web

riciar

Re: Boton De Camara Web