SGSCan - Capturar imagen de camara web

[[seoane]]

Estuve haciendo unas pruebas y este es el resultado. Antes de nada aclaro que no tengo webcam, las pruebas las hago con la capturadora de televisión, pero para el caso es lo mismo, porque los dos son dispositivos de captura y windows los trata como si fueran iguales.

Bueno, primero creamos una ventana de captura, utilizando un TPanel como padre:

Código Delphi [-]
// Remodele un poco la definicion de la funcion
function CreateCaptureWindow(Name: PChar; Style: Longint; X, Y: Integer;
 Width, Height: integer; Parent: HWND; id: integer): HWND; stdcall;
 external 'AVICAP32.DLL' name 'capCreateCaptureWindowA';


CapWindow:= CreateCaptureWindow('Ventana de captura',WS_CHILD or WS_VISIBLE,
    0,0,Panel1.Width,Panel1.Height,Panel1.Handle,0);

Ahora que tenemos una ventana de captura, nos conectamos con el driver.

Código Delphi [-]
  SendMessage(CapWindow, WM_CAP_DRIVER_CONNECT, 0, 0);

Ahora estaríamos conectados, pero no veríamos nada en la ventana de captura, o como mucho una imagen fija. Para tener un visualización podemos indicarle, por ejemplo, que utilice el método overlay (por hardware). Algo así:

Código Delphi [-]
  SendMessage(CapWindow, WM_CAP_SET_OVERLAY, 1, 0);

En este momento ya deberíamos de ver la imagen en movimiento en la ventana de captura. Ahora, si no me equivoco, tu querías capturar una imagen fija, pues en un botón, por ejemplo, coloca este código:

Código Delphi [-]
  SendMessage(CapWindow, WM_CAP_SAVEDIB, 0, lParam(PChar('c:\1.bmp')));

El código anterior captura una imagen fija y la guarda en la ruta "c:\1.bmp". Creo que esto era todo lo que necesitabas, si necesitas algo mas o si te falla en algún punto comentalo y veremos si podemos averiguar que esta fallando. Por cierto recuerda que cuando termines tienes que desconectar el driver:

Código Delphi [-]
if CapWindow <> 0 then
    SendMessage(CapWindow, WM_CAP_DRIVER_DISCONNECT, 0, 0);

También dejo por aquí algunas de las constantes que se utilizan, para que luego la gente no se me queje

Código Delphi [-]
const
  WM_CAP_START = WM_USER;
  WM_CAP_STOP = WM_CAP_START + 68;
  WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10;
  WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11;
  WM_CAP_SAVEDIB = WM_CAP_START + 25;
  WM_CAP_GRAB_FRAME = WM_CAP_START + 60;
  WM_CAP_SEQUENCE = WM_CAP_START + 62;
  WM_CAP_FILE_SET_CAPTURE_FILEA = WM_CAP_START + 20;
  WM_CAP_SET_PREVIEW = WM_CAP_START + 50;
  WM_CAP_SET_OVERLAY = WM_CAP_START + 51;

PD: Aunque no tiene mucho que ver con el tema, estoy enfadado con los fabricantes de mi tarjeta capturadora. Imaginaros mi sorpresa cuando intento probar el código anterior desde delphi y me salta un mensaje de error diciendo que han detectado que estoy usando un debugger (el propio delphi) y que me va a cerrar la aplicación, así que tuve que ejecutar el programa desde fuera de delphi. Supongo que no seré al único que sorprende que un driver implemente una función antidebugger, es ridículo, ya compre la tarjeta ¿que piensan que voy a piratear?. Increíble ....