FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Capturar Imagen Con WebCam
Hola a todos los foreros
Se ha debatido demasiado sobre como capturar una foto desde una WebCam, y la mayoria de las respuestas coinciden con la utilizacion de un componente llamado TWain que es muy dificil de encontrar sino imposible. Otros han propuesto la utilizacion de un componente de la JVCL de la paleta JEDI denominado TJAviCapture. He tenido la posibilidad de probarlo y ver que funciona en D2009 pero resulto un poco engorrosa su aplicacion y dicho componente esta desarrollado para hacer mucho mas que capturar solo una foto WebCam, por eso lo interesante de la sencillez del codigo descripto en este hilo. Solo pocos han preguntado como hacer una captura de una foto desde una WebCam sin objeto alguno. En este hilo tratare de explicar como se puede capturar una foto desde una WebCam utilizando unos comandos de la API de Windows cuyas principales funciones y procedimientos estan descriptos en este archivo WIN32S.HLP. Por razones de practicidad vamos a encapsular todo el codigo necesario para realizar dicha tarea en una Unit.pas que nos definira un componente propio. El siguiente codigo deben colocarlo dentro de una unit.
Salven la unit como WebCam Como pueden observar el codigo esta basado puramente en la API de Win, y entendemos que se trata de enviar o recibir mensajes asi que esa parte no debe darnos problemas. La funcion especifica en cuestion es la denominada capCreateCaptureWindowA, que a continuacion veremos que dice la ayuda de la API. The capCreateCaptureWindow function creates a capture window. Parameters lpszWindowName Null-terminated string containing the name used for the capture window. dwStyle Window styles used for the capture window. Window styles are described with the CreateWindowEx function. x and y The x- and y-coordinates of the upper left corner of the capture window. nWidth and nHeight Width and height of the capture window. hWnd Handle of the parent window. nID Window identifier. Return Values Returns a handle of the capture window if successful or NULL otherwise. A continuacion un ejemplo de como implementarla en una aplicacion desarrollada en Delphi. Paso 1 - Creamos una nueva aplicacion File -> New -> VCL Forms Applications - Delphi. Paso 2 - Creamos nuestro objeto en una nueva unit File -> New -> Unit - Delphi Copiamos el codigo aqui descripto y luego salvamos esta Unit como WebCam Paso 3 - Diseño de la Form1 En nuestra Form colocamos un TPanel, con las siguientes dimensiones with 640 heigh 480, una TImage y dos TButton, uno tendra en su caption Encender y el otro Tomar Foto. Paso 4 - Codigo para hacer funcionar la captura En el Uses agregaremos WebCam
En el evento OnCreate de nuestra Form pondremos lo siguiente.
Este codigo sera para el boton de encendido o apagado de la camara
Y este codigo para el boton de captura de la foto
Aqui podemos observar que aparece una segunda funcion API de Win que hace el resto del trabajo, esta funcion es y su explicacion es la siguiente The BitBlt function performs a bit-block transfer of the color data corresponding to a rectangle of pixels from the specified source device context into a destination device context. BOOL BitBlt( HDC hdcDest, // handle to destination device context int nXDest, // x-coordinate of destination rectangle's upper-left corner int nYDest, // y-coordinate of destination rectangle's upper-left corner int nWidth, // width of destination rectangle int nHeight, // height of destination rectangle HDC hdcSrc, // handle to source device context int nXSrc, // x-coordinate of source rectangle's upper-left corner int nYSrc, // y-coordinate of source rectangle's upper-left corner DWORD dwRop // raster operation code ); Parameters hdcDest Identifies the destination device context. nXDest Specifies the logical x-coordinate of the upper-left corner of the destination rectangle. nYDest Specifies the logical y-coordinate of the upper-left corner of the destination rectangle. nWidth Specifies the logical width of the source and destination rectangles. nHeight Specifies the logical height of the source and the destination rectangles. hdcSrc Identifies the source device context. nXSrc Specifies the logical x-coordinate of the upper-left corner of the source rectangle. nYSrc Specifies the logical y-coordinate of the upper-left corner of the source rectangle. dwRop Specifies a raster-operation code. These codes define how the color data for the source rectangle is to be combined with the color data for the destination rectangle to achieve the final color. The following list shows some common raster operation codes: Value Description BLACKNESS Fills the destination rectangle using the color associated with index 0 in the physical palette. (This color is black for the default physical palette.) DSTINVERT Inverts the destination rectangle. MERGECOPY Merges the colors of the source rectangle with the specified pattern by using the Boolean AND operator. MERGEPAINT Merges the colors of the inverted source rectangle with the colors of the destination rectangle by using the Boolean OR operator. NOTSRCCOPY Copies the inverted source rectangle to the destination. NOTSRCERASE Combines the colors of the source and destination rectangles by using the Boolean OR operator and then inverts the resultant color. PATCOPY Copies the specified pattern into the destination bitmap. PATINVERT Combines the colors of the specified pattern with the colors of the destination rectangle by using the Boolean XOR operator. PATPAINT Combines the colors of the pattern with the colors of the inverted source rectangle by using the Boolean OR operator. The result of this operation is combined with the colors of the destination rectangle by using the Boolean OR operator. SRCAND Combines the colors of the source and destination rectangles by using the Boolean AND operator. SRCCOPY Copies the source rectangle directly to the destination rectangle. SRCERASE Combines the inverted colors of the destination rectangle with the colors of the source rectangle by using the Boolean AND operator. SRCINVERT Combines the colors of the source and destination rectangles by using the Boolean XOR operator. SRCPAINT Combines the colors of the source and destination rectangles by using the Boolean OR operator. WHITENESS Fills the destination rectangle using the color associated with index 1 in the physical palette. (This color is white for the default physical palette.) Return Values If the function succeeds, the return value is nonzero. If the function fails, the return value is zero. To get extended error information, call GetLastError. Remarks If a rotation or shear transformation is in effect in the source device context, BitBlt returns an error. If other transformations exist in the source device context (and a matching transformation is not in effect in the destination device context), the rectangle in the destination device context is stretched, compressed, or rotated as necessary. If the color formats of the source and destination device contexts do not match, the BitBlt function converts the source color format to match the destination format. When an enhanced metafile is being recorded, an error occurs if the source device context identifies an enhanced-metafile device context. Not all devices support the BitBlt function. For more information, see the RC_BITBLT raster capability entry in GetDeviceCaps. BitBlt returns an error if the source and destination device contexts represent different devices.
__________________
La vida no trata de encontrarse a uno mismo, sino de crearse a uno mismo. Tanto si piensas que puedes como si no, estarás en lo cierto |
#2
|
||||
|
||||
Espero comentarios
Espero que este codigo les haya sido de utilidad y voy a estar esperando por correcciones, sugerencias y todo aquello que pueda ayudar a ampliar la info en este hilo para aquellos que realizan futuras busquedas sobre este tema.
__________________
La vida no trata de encontrarse a uno mismo, sino de crearse a uno mismo. Tanto si piensas que puedes como si no, estarás en lo cierto |
#3
|
||||
|
||||
Cita:
Lo que sí te quería comentar es que quizás esto etaría bueno ponerlo en la sección "trucos" o quizás hacerce un ejemplito y subirlo al FTP. |
#4
|
||||
|
||||
Va a estar en Trucos
Este codigo puede ser descargado desde Directorio raíz » Delphi » Ejemplos, deben buscar con el nombre WebCamCapture - API.zip
__________________
La vida no trata de encontrarse a uno mismo, sino de crearse a uno mismo. Tanto si piensas que puedes como si no, estarás en lo cierto Última edición por casacham fecha: 23-04-2010 a las 22:32:08. |
#5
|
||||
|
||||
Hola
No tengo en este momento la cámara pero lo voy a probar. Lo mas importante es el aporte, gracias. Saludos
__________________
Siempre Novato |
#6
|
||||
|
||||
Estimado casacham :
He probado múltiples componentes para captura de video desde una webcam y el mejor resultado lo obtuve con BasicVideo. Siempre he querido independizarme de este componente y utilizar las Api de windows. Había probado con el codigo que se encuentra publicado en Delphimagic.blogspot.com, sin embargo con mi webcam Microsoft NX-6000 siempre obtengo una ventana de captura vacía en negro. La cámara se enciende y no genera tampoco el preview. Los mismos resultados obtengo con el código que aquí has publicado, que es similar al que mencioné anteriormente, aunque el tuyo es más comprensible y separa en dos Unit los códigos, lo que me parece más ordenado. ¿Este código debiera funcionar con cualquier cámara? ¿Se requiere alguna instrucción especial dependiendo del tipo de cámara? Agradezco enormemente tu aporte, aunque no me haya servido, porque me hizo revisar este tema, que a la fecha no he logrado solucionar. Salu2 y muchas gracias Última edición por radenf fecha: 24-04-2010 a las 13:23:08. |
#7
|
||||
|
||||
En algun punto esta la clave
Hola radenf, la verdad es que el codigo lo he probado solo con las camaras incorporadas a las notebooks, y en todas las maquinas que he probado el codigo ha funcionado muy bien, no tengo experiencia con camaras accesorias o externas, en teoria deberia funcionar de la misma manera siempre y cuando sea una sola la camara activa. Espero que resuelvas tu problema y lo comentes aqui con nosotros para ayudar a quien busque esta informacion.
__________________
La vida no trata de encontrarse a uno mismo, sino de crearse a uno mismo. Tanto si piensas que puedes como si no, estarás en lo cierto |
#8
|
|||
|
|||
Una Gran Ayuda
Cita:
GRACIAS ADELANTADO POR LA AYUDA |
#9
|
||||
|
||||
Podria Servir
El codigo podria ser de utilidad, no lo he probado. Pero en teoria si uno especifica la fuente de donde proviene la imagen, esta se puede capturar. Analiza mas el contenido del codigo a ver si te es de utilidad. Si lo logras, por favor publicalo en este hilo.
Gracias a todos.
__________________
La vida no trata de encontrarse a uno mismo, sino de crearse a uno mismo. Tanto si piensas que puedes como si no, estarás en lo cierto |
#10
|
|||
|
|||
Alguno de ustedes al final pudo averiguar como pasarle la fuente de la procedencia a esta API?
Muchas gracias de antemano Última edición por socger fecha: 16-09-2011 a las 10:08:47. Razón: Necesito respuestas |
#11
|
|||
|
|||
Acabo de terminar una pequeña aplicacion utilizando los componentes dspack, esto es porque al igual que un usuario menciono, el codigo de este post solo me mostraba un cuadro negro al darle "Play" usando una webcam microsoft nx6000, investigando un poco mas encontre estos componentes gratuitos y muy faciles de usar, el pack original esta actualizado hasta Delphi7, yo hice una version para DelphiXE que es el que estoy usando, mi aplicacion permite seleccionar la fuente del video, y despues tomar una foto y guardarla en un archivo jpg, si a alguien le intereresa con gusto comparto el codigo asi como la actualizacion del dspack, intente compartir 2 enlaces pero como esta es mi primer colaboracion en el foro no me lo permitio, contacteme a quien le interesen, saludos desde Mexico!
|
#12
|
||||
|
||||
Error al recapturar con WebCam
Hola buenos días amigos, muchas gracias a todos por sus aportes a la comunidad. En esta oportunidad les escribo para solicitar su ayuda, ya que he implementado el código funciona todo ok utilizo delphi 7 con windows 7 en una SONY VAIO VPCSE core I5 8 Gb de ram con su webcam integrada. El problema que tengo es que solo puedo capturar imagen una vez, luego cuando vuelvo a ejecutar la aplicación la webcam no se activa, me aparece una ventana de dialogo que dice Origen de Video y debo seleccionar un dispositivo de vídeo, al aceptar la webcam no se enciende y ya no captura imagen alguna y para que funcione debo reiniciar la computadora y todo funcina bien otra vez, cabe destacar que he probado con otras aplicaciones como webCam Monitor 6 y sin necesidad de reiniciar si enciende la webcam y funciona sin problema, también he probado con otras computadoras y presenta el mismo problema. Me parece como que se quedara en ejecución algún proceso que no deja reconectar o encender la webcam desde mi aplicación, por que al reiniciar si vuelve a funcionar, he monitoreado desde el administrador de tareas y no veo nada.
Mucho les sabría agradecer su colaboración. |
#13
|
||||
|
||||
¡Felicidades!
Éste código es ESTUPENDO..., casi logra lo que necesito, excepto que cuando intento tomar una SEGUNDA "fotografía", me arroja éste error..., y lo peor, si después del error deseo cerrar (comando Close; de ObjectPASCAL) me envía el mismo error...
Por cierto, felicidades a CasaCham...
__________________
Felipe Eduardo Ortiz López. Delphi programmers does it recursively... "Un programador, es un creador de universos en donde sólo él es responsable. Universos de complejidad prácticamente ilimitada que se puede crear en forma de programas de ordenador." - Joseph Weizenbaum. Témele a los profetas... y a aquellos que están listos para morir por "la verdad", ya que como regla general hacen morir a muchos otros con ellos, frecuentemente antes que ellos, y a veces en lugar de ellos. — Umberto Eco |
#14
|
|||
|
|||
Yo tenía el mismo problema en Delphi 7 para Windows 7, lo solucioné dejando sólo la sentencia
Image1.picture.Bitmap := TBitmap.Create; en el primer if del procedimiento Button2Click Saludos Última edición por Casimiro Notevi fecha: 17-12-2017 a las 01:30:06. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Webcam capturar imagen y adaptada | ronald_tro | Gráficos | 18 | 14-12-2017 19:48:42 |
Capturar Fotografia desde Webcam ? | martita | Gráficos | 11 | 13-12-2012 18:24:04 |
Capturar imagen webcam | fmtidona | Gráficos | 4 | 25-11-2005 18:04:31 |
Capturar imagen de webcam en Monocromo | fmtidona | Gráficos | 1 | 15-09-2005 22:18:49 |
Capturar imagen desde webcam | wogshit | Gráficos | 1 | 03-06-2004 10:14:50 |
|