Autor
|
Tema: Capturar Cam de otra forma. (Leído 5,112 veces)
|
WarGhost
I love basket
Desconectado
Mensajes: 1.070
|
Public Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 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 mCapHwnd As Long
Public Const CONNECT As Long = 1034 Public Const DISCONNECT As Long = 1035 Public Const GET_FRAME As Long = 1084 Public Const COPY As Long = 1054 Private Sub Form_Load() On Error Resume Next mCapHwnd = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 320, 240, Me.hwnd, 0) DoEvents: SendMessage mCapHwnd, CONNECT, 0, 0
End Sub
Private Sub Form_Unload(Cancel As Integer) On Error Resume Next DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0 End Sub
Private Sub Timer1_Timer() On Error Resume Next SendMessage mCapHwnd, GET_FRAME, 0, 0 SendMessage mCapHwnd, COPY, 0, 0 Picture1.Picture = Clipboard.GetData End Sub Este Codigo es el que tengo pero ami me gustaria saber si hay laguna otra forma de capturar la webCam pero esa no me gusta. hay alguna forma de por ejemplo solo capturar una imagen de la cam. Salu2, WarGhost
|
|
|
En línea
|
|
|
|
byebye
Desconectado
Mensajes: 5.093
|
hay alguna forma de por ejemplo solo capturar una imagen de la cam. ese codigo es tuyo? pq se captura frame a frame.
|
|
|
En línea
|
|
|
|
WarGhost
I love basket
Desconectado
Mensajes: 1.070
|
no no ese código no es mio solo e modificado unas cosas ,pero quiero saber si hay alguna forma de simplemente capturar una imagen de la cam.
|
|
|
En línea
|
|
|
|
Kizar
Desconectado
Mensajes: 1.325
kizar_net
|
...Private Sub Form_Load() On Error Resume Next mCapHwnd = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 320, 240, Me.hwnd, 0) SendMessage mCapHwnd, CONNECT, 0, 0 SendMessage mCapHwnd, GET_FRAME, 0, 0 SendMessage mCapHwnd, COPY, 0, 0 Picture1.Picture = Clipboard.GetData End Sub
Private Sub Form_Unload(Cancel As Integer) On Error Resume Next DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0 End Sub
|
|
|
En línea
|
|
|
|
Robokop
Desconectado
Mensajes: 1.660
|
Public Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 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 mCapHwnd As Long
Public Const CONNECT As Long = 1034 Public Const DISCONNECT As Long = 1035 Public Const GET_FRAME As Long = 1084 Public Const COPY As Long = 1054
Private Sub cmdStart_Click() cmdStart.Enabled = False cmdStop.Enabled = True 'Setup a capture window (You can replace "WebcamCapture" with watever you want) mCapHwnd = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 320, 240, Me.hwnd, 0)
DoEvents: SendMessage mCapHwnd, CONNECT, 0, 0 tmrMain.Enabled = True End Sub
Private Sub cmdStop_Click() cmdStart.Enabled = True cmdStop.Enabled = False tmrMain.Enabled = False
DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0 End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If cmdStop.Enabled = False Then 'Se asegura de la conexion DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0 End If End Sub
Private Sub tmrMain_Timer() On Error Resume Next 'Obtiene el frame actual SendMessage mCapHwnd, GET_FRAME, 0, 0 'Copia el Frame SendMessage mCapHwnd, COPY, 0, 0 'Pega los datos en el picture picOutput.Picture = Clipboard.GetData 'Limpia clipboard Clipboard.Clear End Sub timer: name:tmrMAin enabled=false interval= 200Este otro codigo a lo mejor te puede servir , este codigo no es mio lo obtuve de internet . salu2
|
|
|
En línea
|
|
|
|
WarGhost
I love basket
Desconectado
Mensajes: 1.070
|
Muchas gracias ya tengo sulucionado el tema . Salu2, WarGhost
|
|
|
En línea
|
|
|
|
|
WarGhost
I love basket
Desconectado
Mensajes: 1.070
|
Ya conseguí hacer lo que quería pero ahora no se como puedo hacer para saber si existe una cámara instalada y utilizable ¿?. Gracias a todos.
|
|
|
En línea
|
|
|
|
Kizar
Desconectado
Mensajes: 1.325
kizar_net
|
Cuando vuelva te ayudo a listar los dispositivos de entrada de video y audio
|
|
|
En línea
|
|
|
|
alfredogarc
Desconectado
Mensajes: 1
|
Todo funciona perfectamente, pero como hago para grabar la imagen con una resolución específica, por ejemplo 200 x 240, tipo carnet? y no se puede grabar tipo jpg?
|
|
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Otra forma de conectar java~sql
Java
|
_-Javier-_
|
3
|
4,154
|
18 Marzo 2011, 00:53 am
por _-Javier-_
|
|
|
[Duda] Otra forma de resolverlo?
Programación C/C++
|
criskapunk
|
6
|
2,826
|
18 Julio 2011, 13:45 pm
por criskapunk
|
|
|
api de windows usando handle para capturar botones o text en otra aplicacion
Java
|
trachtenberg
|
2
|
3,361
|
2 Octubre 2011, 06:24 am
por trachtenberg
|
|
|
Alguna forma de capturar url en WebBrowser?(solucionado)
Programación Visual Basic
|
Senior++
|
3
|
3,006
|
16 Diciembre 2011, 19:21 pm
por Senior++
|
|
|
capturar escritorio de forma sileciosa
« 1 2 »
Windows
|
electroduende24
|
10
|
7,742
|
20 Enero 2013, 11:14 am
por electroduende24
|
|