Detector de movimiento con Delphi

Este software detecta el movimiento entre imágenes tomadas por una webcam, se pueden ajustar varios parámetros como la sensibilidad, pixels verificados y el retardo antes de avisar. Cuando salta un aviso nos enviará un email ( antes hay que cambiar el nombre del host SMTP ) y se guardará en la carpeta "detection" una imagen jpg de ese instante.
Es interesante observar cómo se inicializa el dispositivo de captura de imagen de la siguiente forma:

hcam:=capCreateCaptureWindowA('',0,0,0,320,240,handle,0);
sendmessage(hcam,1034,0,0);
form1.DoubleBuffered:=true;

Descargar codigo fuente


Posts relacionados:

Webcam con Delphi

Webcam con OpenGL

Programa para generar efectos graficos





2 comentarios:

  1. me intereso mucho tu codigo pero no lo logro hacerlo andar me marca un error que no puedo cachar, el error que me indica es EXCeption EMCIDeviceError, File name o path ar incorrect.

    ResponderEliminar
  2. Tienes que quitar del form el componente tmediaplayer (hay algunas lineas de código que hacen referencia a ese componente, que también hay que anularlas )
    Después hay que crear una carpeta llamada "detection" donde se almacenarán las imágenes en las que se detecte movimiento.
    Con lo anterior, en Delphi 7, funciona correctamente

    ResponderEliminar