Capturar Imagen Con WebCam

[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.

[Nekopuka]

Saludos a todos.

Pues con la nueva que después de desvelarme toda la noche buscando la solución al problema de la cámara, por fin pude encontrar el problema para recompilar el programa y que éste funcionara.

1. En Windows 7 es necesario dar privilegios de administrador al ejecutar Delphi 2009 (o la versión que usen). Por este pequeño detalle no servía nada de lo demás. Todo esto se cambia desde la UAC de windows, o simplemente dando click derecho sobre el exe de delphi, propiedades y activar la casilla Ejecutar este programa como administrador que se encuentra en la pestaña Compatibilidad.

2. Al parecer no basta con hacer esto, en algunos casos el archivo ejecutable generado por delphi tambien necesita de estos cambios y además de activar la casilla Ejecutar este programa en modo de compatibilidad para, y en el combobox de abajo seleccionar la opción Windows XP (Service Pack 2), que se encuentran en la misma pestaña Compatibilidad.

3. Si dan privilegios al archivo exe generado por delphi (nuestra aplicación), sin dar privilegios de administrador al Programa Delphi, se encontraran con una ventana molesta que no les dejará ejecutar el exe desde delphi, con el siguiente texto: Unable to create process: la operacion solicitada requiere elevación, o su equivalente en el idioma por defecto. Para solucionar esto hay que cerrar Delphi, asignarle derechos de asministrador al mismo Delphi y rearrancarlo; podrán darse cuenta que ya no sale la ventanita anterior y podrán ejecutar el exe con el clásico F9.

4. Una vez que Delphi y el exe de nuestra aplicación tienen derechos de administrador, podremos visualizar el contenido de la webcam externa o integrada del equipo.

Concluyendo:
Hechos estos cambios ya puedo recompilar la aplicación y el exe resultante funciona con ambas cámaras en mi laptop pero, cuando ambas están conectadas, ahora se selecciona la camara externa por default en lugar de la integrada.
Entonces la incógnita sigue siendo ¿Cómo indicarle al programa por código que quiero la cámara integrada o la externa teniendo ambas conectadas al equipo?

Creo que eso queda de tarea.

Hasta pronto.

[Fjchaveze]

stdcall external 'AVICAP32.dll';

en esta línea me marca error de syntaxis, al ponerle el punto y coma después de stdcall, ya no lo hace.

El problema es el siguiente en windows xp utilizando d2007, me marca un error de excepción al compilar y ejecutar el programa dentro del IDE.

De igual manera con vista y d2009 dentro del IDE.

El detalle es que si ejecuto directamente esta aplicación fuera del IDE funciona correctamente, habrá alguna forma de corregir este detalle?

Ya probe quitando el punto y coma,poniendolo también.

[[Caral]]

Hola

Saludos

[MAXIUM]

¿Se podrá capturar solo una porción de la imagen que se ve?

[Wbarrantes]

muy interesante.... me gustaria intentar manipular una camara por web remota, como los de las camaras de seguridad, por ejemplo... si lo logro les paso mis alcances, aunque por el tiempo (en mi trabajo) me va a llevar rato...

[Cañones]

Empezado por MAXIUM

¿Se podrá capturar solo una porción de la imagen que se ve?

A kristen bell la quiero entera no de a pedazos. Mejor si es de la época de Veronica Mars. Ja ja ja.

Ahora en serio, la verdad que te pasate con éste hilo. Todavía no lo probé pero me va a hacer mucha falta esto para una aplicación.
Muchisimas gracias por el aporte.

[radenf]

Empezado por MAXIUM

¿Se podrá capturar solo una porción de la imagen que se ve?

Aunque un poco tarde en este link está la respuesta a tu pregunta

http://www.clubdelphi.com/foros/showthread.php?t=68262

Salu2

[MAXIUM]

Nunca es tarde, muchas gracias

[jfrancho]

Buen día, excelente aporte, mi pregunta es se podrá convertir la imagen capturada a texto?, por ejemplo la imagen de una patente de auto, convertirla al texto que dice la patente.Saludos.-

[casacham]

Eso tiene que ver con el análisis del gráfico, busca temas relacionados al reconocimiento facial y/o imágenes. Hay funciones que permiten analizar pixel por pixel la imagen capturada, que con un algoritmo correcto te devolvería el texto de la patente.

[jlr733]

Hola

He probado captura la imagen desde la webcam y funcionó perfectamente. También logre recortar la imagen y hacerle zoom alejándola o acercándola. Hasta ahí todo bien.


Lo que no se como hacer es como capturar una imagen con mayor resolución ya que la cámara es HD, pero las imagenes que capturo solo tienen una resolución de 96 ppp y yo quisiera capturar imágenes de 300 ppp por ejemplo. Las imagenes son fotos (tipo carnet) de 120 x 160 px y las necesito en más calidad para poder imprimirlas.

¿Alguien sabe como hacer eso?
Muchas gracias.

[[José Luis Garcí]]

Se que lleva tiempo de este hilo, pero acabo de usar su código y me ha ido estupendamente con una webcam Best buy, gracias por tu aportación.

[FideRosado]

aun n se de que forma es que va ese fichero webcam.pas ya que me da error a la hoora de cmpilarl, me dice que hay cosas que no estan declaradas

el errroo esta pr aca

Código Delphi [-]
  public
      const
        WM_Connect     = WM_USER + 10;
        WM_Disconnect  = WM_USER + 11;
        WM_GrabFrame   = WM_USER + 60;
        WM_SaveDIB     = WM_USER + 25;
        WM_Preview     = WM_USER + 50;
        WM_PreviewRate = WM_USER + 52;
        WM_Configure   = WM_USER + 41;
    public
      procedure Connect;
      procedure Disconnect;
      procedure GrabFrame;
      procedure SaveDIB(const FileName: String = 'webcam.bmp');
      procedure Preview(&on: Boolean = True);
      procedure PreviewRate(Rate: Integer = 42);
      procedure Configure;
    private
      CaptureWnd: HWnd;

[mjjj]

Estimados, estoy utilizando este código y me funciona perfecto con Delphi 2010 y Win7, pero tengo un problema al capturar una imagen.
Resulta que si el programa está minimizado, o escondido (hide), la imagen guardada es un cuadrado negro.

Porque pasará esto?
Como lo puedo resolver?

Gracias.

[Casimiro Notevi]

No lo he mirado, pero puede ser que al estar minimizada u oculta, el sistema decida no repintar la ventana y por eso no toma la imagen.

[broma] Además, si está oculta o escondida, ¿qué esperabas?, pues saldrá una mancha negra [/broma]

[mjjj]

Entiendo que ese debe ser el problema, pero como lo soluciono???

Alguna idea??