comparar Imagenes

[LeandroA]

hola te paso un ejemplo

http://ar.geocities.com/leandroascierto/webcam.zip

fijate que de esta forma no usa timer ni ocupa el portapapeles pero 
es importante que la aplicacion este siempre visible , tambien tiene una contra de esta forma no vas a poder comparar las imagenes porque lo que hace es enviarle un hwnd  de una ventana para que el dispositivo de captura se reprodusca, yo lo que hice para la alarma es enviarle un SendMessage para que guarde constantemente las capturas en un archivo(.bmp) y luego desde alli las voy cargando a  un picture y las voy comparando cuadro por cuadro

te paso la rutina para guardar la imagen ya que en el ejemplo del enlace no lo tiene

para esto si uso un timer, pero cuando empieza a grabar el video, el timer se detiene

Dim nombre As String
'------le paso el nombre para guardar una foto
nombre = StrConv(App.Path & "\TMPfoto.bmp", vbFromUnicode)
SendMessage mCapHwnd, WM_CAP_FILE_SAVEDIB, 0, StrPtr(nombre)
Picture1.PaintPicture LoadPicture(App.Path & "\TMPfoto.bmp"), 0, 0, Picture1.Width, Picture1.Height
Picture1.Picture = Picture1.Image


Bueno no es por deslentarte pero viene complicado el asunto yo hace rato que vengo con este proyecto y aun lo puedo terminar

Saludos