Como transmitir webcam desde un server a su cliente

[goodbye]

Ya saben a que me refiero.. una aplicacion cliente-servidor.
Pero en particular me gustaria que postearan algunas teorias sobre como transmitir especificamente video de la webcam al cliente remoto, digamos que en tiempo real.

[Slasher-K]

Existe una librería que se llama AVICAP32.DLL que contiene las funciones de multimedia del sistema y que, entre otras cosas, te permite controlar la webcam.

Esta librería tiene la función capCreateCaptureWindow que crea una ventana dentro de otra (ventana padre) para enviar las imágenes tomadas por la webcam y devuelve el controlador de ventana (hWnd).

Para implementarla es muy sencillo, se crea un PictureBox y luego se llama a esta función pasandole como argumento hWndParent (ventana padre) en controlador de ventana del PictureBox. Por ej:

Código:

Const RES_X = 680  'Resolución horizontal
Const RES_Y = 480  'Resolución vertical

Private 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

Private hWndCap As Long

Private Sub Form_Load()
  'NOTA: picCapFrame es el nombre de un control PictureBox.
  '


  'Crea la ventana a la que se enviarán las imágenes de la cam.
  '
  hWndCap = capCreateCaptureWindow(vbNullString,0,0,0, RES_X, RES_Y, picCapFrame.hWnd, 0)
End Sub

Luego queda utilizar la función SendMessage para enviarle los mensajes a la ventana que creamos (hWndCap ). Hay varios mensajes predefinidos que controlan las acciones de la webcam:

Código:

Const WM_CAP_CONNECT = 1034     'Conecta el dispositivo de captura.
Const WM_CAP_DISCONNECT = 1035  'Desconecta el dispositivo de captura.
Const WM_CAP_GET_FRAME = 1084   'Obtiene un frame desde el dispositivo.
Const WM_CAP_COPY = 1054        'Copia el frame capturado con WM_CAP_GET_FRAME al portapapeles.

Sabiendo esto se puede ir obteniendo frame por frame y enviando los datos en tiempo real con el control WinSock o usando la API de winsock, pero claro esto conlleva un consumo muy grande de ancho de banda y si el programa se ejecuta en una pc con conexión de 56k va a ser muy alevoso .

Por último, antes de descargar el programa debe llamarse a DestroyWindow para liberar el controlador de ventana.

Con esos datos creo que ya se puede empezar a probar, de lo contrario remitirse a google . Igualmente dejo el link de MSDN que es de donde saqué toda la referencia de las funciones.

Windows Multimedia

Saludos.

[goodbye]

He usando un Timer, un Picture y dos Button para este ejemplo.
Nota: No lo documento suficientemente porque no se podría redundar en una exposición tan magistral como la anterior.
Cualquier sugerencia que optimize este code es bienvenida.

Código:

Private 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
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hndw As Long) As Boolean

Private Const CONNECT As Long = 1034
Private Const DISCONNECT As Long = 1035
Private Const GET_FRAME As Long = 1084
Private Const COPY As Long = 1054

Private hWndCap As Long

Private Sub START_WEBCAM_Button1_Click()
    hWndCap = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 160, 120, Me.hwnd, 0)
    DoEvents
    SendMessage hWndCap, CONNECT, 0, 0
    Timer1.Enabled = True
End Sub

Private Sub STOP_WEBCAM_Button2_Click()
    DoEvents: SendMessage hWndCap, DISCONNECT, 0, 0
    Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
    'Obtiene frames para Picture1
    SendMessage hWndCap, GET_FRAME, 0, 0
    SendMessage hWndCap, COPY, 0, 0
    Picture1.Picture = Clipboard.GetData
    Clipboard.Clear
End Sub

Private Sub Form_Load()
    Timer1.Enabled = False
    Timer1.Interval = 1
End Sub

Private Sub Form_Unload(Cancel As Integer)
    DestroyWindow hWndCap
End Sub

A los interesandos en este hilo:
Publiquen code para transmitir los frames capturados de una forma óptima aunque se tratase de conexiones de 56Kb 

[p0w3r f1y]

Genial, esto me interesa bastante pero nunca me había puesto ha buscarlo... jeje, ya lo probaré y os cuento... Gracias.
Salu2.

[p0w3r f1y]

ah, se me olvidaba, yo para transmitir imágenes utilizo un módulo que comprime en jpg, es lo que utilizaba para hacer un escritorio remoto y bueno, si le bajas la calidad a la imágen... puedes conseguir archivos de entre 10 y 20 kb con una calidad...... en fín... algo pobre, pero aceptable... pero al ser para una webcam el tamaño es mucho más pequeño (más pequeño que la resolución de la pantalla, que era lo que capturaba yo...) y podrías darle más calidad y conservarías el tamaño, eso intentaré hacer yo, ahora mismo no se de donde saqué el código pero si buscas por google Module JPEG Compressor visual basic, o algo así, seguro que lo encuentras (así lo encontré yo...)
Salu2

[xadap]

yo lo que ando buscando es meter la webcam en el usb y ver lo que la camara ve desde un programa en VB. sirve?

yo no consigo que me funcione ni un código ni otro. hay que hacer algo más? yo tengo una cam "easy point & click" de "best buy". tmb sirve como cámara digital, es de esas baratas de hace 3 años, pero no veo xk no va.
la libreria que tengo en c: \windows es de mayor tamaño que la de dll-files.com

[Slasher-K]

Esos códigos trabajan a nivel de aplicación, es decir que lo que el sistema operativo haga internamente es ajeno a estas funciones. Por lo tanto si no funcionan es problema no del programa sino de la configuración del SO, quizá los drivers de la cam no están instalados correctamente o el sistema tiene algún conflicto con dicho hardware-

En cuanto a tu pregunta de si el código sirve o no, sí sirve.

Saludos.

[xadap]

oks gracias
al final he conseguido que la webcam funcionase jejej  han sido unos dias probando códigos de google y ha habido suerte. ya lo he adaptado a mi programa

[Kizar]

Mientras se esta aciendo la captura de la imagen de la cam los demas programas no pueden aceder a la cam, por ejemplo el msn si k te permite verla con otros programas al mismo tempo, se os ocurre alguna solucion?

[Slasher-K]

No se puede, el dispositivo de captura sólo puede ser abierto por una aplicación a la vez.

Saludos.

[741852]

No se puede, el dispositivo de captura sólo puede ser abierto por una aplicación a la vez.

Saludos.

[Kizar]

pues mientras estan enviado imagenes de la cam con el msn puedes verte en la pantalla con otros programas, se tiene que poder en vb a lo mejor no, pero en otros lenguakes sip

[jcarles]

Hola. El código va a las mil maravillas, pero ahora tengo una duda: ¿como puedo capturar el frame y guardarlo en un fichero? Gracias.

[Slasher-K]

Un botón que diga "Guardar imagen" y luego usas SavePicture.

Código:

Call SavePicture(picVideo.Image, "C:\image.bmp")

picVideo es el PictureBox que muestra las imágenes de la cam.

Saludos.

[renga73]

No me anda esto
Código:
Call SavePicture(picVideo.Image, "C:\image.bmp")

q otra manera de guardar imagenes durante un intervalo de tiempo  existen. Ponga el codigo claramente porque soy muy novato en el tema. Gracias