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
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.
ResponderEliminarTienes 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 )
ResponderEliminarDespué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