Autor
|
Tema: Como transmitir webcam desde un server a su cliente (Leído 38,088 veces)
|
goodbye
Desconectado
Mensajes: 93
|
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.
|
|
« Última modificación: 18 Junio 2005, 10:57 am por CrackelDestripador »
|
En línea
|
Al lado de la dificultad está la facilidad. Cambiad de placeres, pero no cambies de amigos. Aceptar un favor de un amigo, es hacerle otro.
|
|
|
Slasher-K
Desconectado
Mensajes: 1.477
|
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: 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: 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 MultimediaSaludos.
|
|
|
En línea
|
A la reina de las profundidades que cuida los pasos de una sombra en la noche :*
|
|
|
goodbye
Desconectado
Mensajes: 93
|
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. 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
|
|
« Última modificación: 18 Julio 2005, 09:31 am por CrackelDestripador »
|
En línea
|
Al lado de la dificultad está la facilidad. Cambiad de placeres, pero no cambies de amigos. Aceptar un favor de un amigo, es hacerle otro.
|
|
|
p0w3r f1y
Desconectado
Mensajes: 33
|
Genial, esto me interesa bastante pero nunca me había puesto ha buscarlo... jeje, ya lo probaré y os cuento... Gracias. Salu2.
|
|
|
En línea
|
|
|
|
p0w3r f1y
Desconectado
Mensajes: 33
|
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
|
|
|
En línea
|
|
|
|
xadap
Visitante
|
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
|
|
|
En línea
|
|
|
|
|
xadap
Visitante
|
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
|
|
|
En línea
|
|
|
|
Kizar
Desconectado
Mensajes: 1.325
kizar_net
|
Mientras se esta haciendo 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?
|
|
|
En línea
|
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Proyecto Transmitir Imagen a las TVs desde PC
Redes
|
CATBro
|
0
|
4,129
|
12 Marzo 2011, 04:27 am
por CATBro
|
|
|
transmitir señal de tv abierta desde mi pc?
Dudas Generales
|
flacc
|
6
|
20,308
|
28 Julio 2011, 18:51 pm
por Luna71c0
|
|
|
Tutorial Como Transmitir tus peliculas en HD justin-tv 2012! jholger482
Foro Libre
|
Weeken
|
0
|
5,285
|
29 Junio 2012, 06:34 am
por Weeken
|
|
|
Transmitir una señal de TV en una red LAN ¿cómo? ME URGE
Redes
|
Platanito Mx
|
5
|
11,368
|
7 Julio 2014, 18:17 pm
por Platanito Mx
|
|
|
C++ Winsockets como reconectar un cliente al server
Análisis y Diseño de Malware
|
Grado 33
|
8
|
5,640
|
28 Agosto 2017, 16:33 pm
por dapz
|
|