Capturar Imagen Con WebCam

[fsolispa]

no me da error en la compilación, me da error cuando lo ejecuto me dice que el tipo de clase no es valido (Invalid class typedcast) trabajo con delphi 2010, win7 y una camara muy antigua de logitec

[casacham]

Rta para JXJ: Hoy mismo intente entrar al FTP del foro y no me ha dejado, a veces suele caerse ese servicio. Te sugiero que leas bien lo que escribi arriba y sigas las indicaciones alli puestas, de esa forma podras crear tu mismo la unit en cuestion y aplicarla en tu proyecto y probar si funciona.

Rta. para fsolispa: Parece que con camaras externas tiene problemas el codigo, personalmente lo he probado en varias notebooks de diferentes marcas y en todas ha funcionado correctamente, pero cabe aclarar que dichos aparatos traen una camra web incorporada. Creo que necesitamos de la ayuda de gente experta en el tema para descubrir ese punto flojo en este codigo, tal vez Caral nos pueda dar una mano con eso.

[[kurono]]

tambien puede servir este otro manual que esta compuesto por 3 partes

http://delphimagic.blogspot.com/2008...-delphi-i.html

http://delphimagic.blogspot.com/2008...delphi-ii.html

http://delphimagic.blogspot.com/2008...elphi-iii.html

[sercornejov]

Hola. Yo lo probé con D2010, Win 7 ultimate y una webcam creative de hace años, de conexión USB. Funciona sí, pero no del todo...

Se compilo sin problemas
Se ejecuto de la siguiente forma:

Abre el form1 pero el Timage queda negro. al pulsar en encender una vez, no pasa nada, pero si le das clic de nuevo se enciende la cámara pero la imagen se ve solo en la esquina superior izquierda del Timage.

Al pulsar el botón TOMAR FOTO, no aparece la imagen tomada, pero en el Paso a Paso, se puede constatar que si genera la imagen

Lo que hice fue colocar el TImagen fuera del TPanel y la imagen aparece inmediatamente. También hice CASO, fui Obediente y coloque en el primer botón el Caption que dice Casacham y todo funciona a las 1000 maravillas.

Voy a probarlo con imagenes JPG, pues en mi caso necesito poder gusrdarlo en una base de datos y BMP, pues no...

GRACIAS A CASACHAM por este aporte, oo's gracias...

[yapt]

Bueno, yo estoy probando en un:

- Windows Vista
- Portatil ACER con cámara Cristal Eye (incluida en el portatil).

Ejecuto la aplicación (el .exe) WebCamCapture.exe y la imagen sale en negro. Siempre.

Pero me sucede lo mismo con el ejemplo simple de:

http://delphimagic.blogspot.com/2008...-delphi-i.html

Y lo mismo con la aplicación de sensor de movimiento de AJPDSoft:

http://www.ajpdsoft.com/modules.php?...rticle&sid=263

Debo decir que mi Skype funciona a las mil maravillas... :-( Sic...

Alguien tiene una "remota" idea de qué puede ser ?

Saludos.

[yapt]

Bueno, parece que en el único ordenador del mundo en el que la "Ventana de captura" se ve mal, es el mio de desarrollo.

Incluso si capturo un "fotograma" del video de la webcam, se captura correctamente. Simplemente no se ve el movimiento en tiempo real.



Saludos.

[Nekopuka]

Antes que nada, felicitaciones a casacham por el aporte, bueno les cuento lo que se:

Antes de toparme con este foro había probado varios componentes y tuve resultados con algunos de prueba en Windows XP 32 con Delphi 7. Después de migrar a Windows 7 64 y tras mucho respaldar archivos no logro encontrar dichos componentes. Ni modo a empezar otra vez .

He probado el código tal cuál dice casacham, al descomprimir el archivo todo el fuente y lo necesario está ahí. Ejecuto el exe que viene integrado y todo a las mil maravillas, pero al compilar yo mismo el código sin hacer cambio alguno, me da un error pero se soluciona con poner ";" después de stdcall en webcam.pas. Pero aún así sucede lo mismo del panel negro y nada de imagen ni de encendido de webcam .

Antes que modificar el código explico el porque del mal funcionamiento y como es que podría arreglarse para algunos, más no para mi todavía pués necesito utilizar una webcam externa.
Utilizo Delphi 2009 en Windows 7 Homepremium 64 en una Toshiba A505 (Laptop), ésta tiene una webcam integrada pero conecto además una webcam phillips CN700 algo ya viejita; hago notar que para que funcione en Windows 7 64 la webcam tiene que ser reconocida por el mismo windows Drivers y todo. Entonces ¿qué pasa con el código?

1. El Exe incluido funciona con ambas cámaras conectadas y manda un cuadro de diálogo en el cual podemos seleccionar el dispositivo al cual conectarnos .
2. El Exe generado de la recompilación no lo hace con ninguna, estando ambas conectadas .
3. Si desconectamos la webcam externa, cualquier Exe funciona y reconoce la cámara integrada en la laptop, pero ya no sale el cuadro de selección de dispositivo mencionado en el paso 1 .
4. Es obvio que no podemos quitar la cámara integrada sin desinstalar los drivers y es mucho rollo así que mejor no lo he intentado para probar con la cámara phillips externa únicamente.
5. De lo anterior podemos pensar que el problema radica en la llamada a la librería avicap32.dll.
6. ¿Habrá alguna forma de indicarle a la librería que queremos el dispositivo 0,1,2... (WebcamID supongo) en lugar de esperar a ver si reconoce cualquier dispositivo?, mejor aún, ¿qué valor es el que identifica cada dispositivo?, ya he probado los primeros valores 0..9 y nada y da lo mismo el valor que se introduzca si sólo hay una cámara en el equipo.

Espero podamos dar solución a esta interrogante.

Saludos a todos.

[monina2112]

Efectivamente este código lo he probado con una WEBcam Genius y me ha servido para mis pruebas muy bien.

[MARLON1]

Empezado por casacham

Rta para JXJ: Hoy mismo intente entrar al FTP del foro y no me ha dejado, a veces suele caerse ese servicio. Te sugiero que leas bien lo que escribi arriba y sigas las indicaciones alli puestas, de esa forma podras crear tu mismo la unit en cuestion y aplicarla en tu proyecto y probar si funciona.

Rta. para fsolispa: Parece que con camaras externas tiene problemas el codigo, personalmente lo he probado en varias notebooks de diferentes marcas y en todas ha funcionado correctamente, pero cabe aclarar que dichos aparatos traen una camra web incorporada. Creo que necesitamos de la ayuda de gente experta en el tema para descubrir ese punto flojo en este codigo, tal vez Caral nos pueda dar una mano con eso.

gracias a tu codigo eh logrado capturar una imagen y guardarla en un carpeta, el problema que tengo es que esto funciona perfectamente desde el compilador, pero si lo ejecuto desde el .exe no reconoce la webcam, ojala me pudieras ayudar!! y muchas gracias por el codigo.

estoy trabajando con delphi 2010 , wind 7, y tengo una lap HP, gracias.