Hola a Todos..
eh tratado de hacer la captura de la igagen tomada por la webcam segun
un ejemplo puesto aqui en un post en el foro pero no eh logrado hacerlo
eh estado probando con esto:
SendMessage(::hwdc, WM_CAP_FILE_SAVEAS,0,"zzz.bmp")
No logro tener resultado. Quizas me falte algo o un pequeño detalle...
Gracias de Antemano...!
--
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Captura con WEBCAM
-
Diego Ferreira
- Mensajes: 148
- Registrado: Mar Dic 18, 2007 4:39 pm
-
Martin Del Angel
- Mensajes: 360
- Registrado: Mié Dic 03, 2008 5:05 am
Captura con WEBCAM
"Diego Ferreira" <diego.datamatic@hotmail.com> escribió en el mensaje
news:[email=47ab12cd@ozsrv2.ozlan.local...]47ab12cd@ozsrv2.ozlan.local...[/email]
> Hola a Todos..
>
> eh tratado de hacer la captura de la igagen tomada por la webcam segun
> un ejemplo puesto aqui en un post en el foro pero no eh logrado hacerlo
> eh estado probando con esto:
>
> SendMessage(::hwdc, WM_CAP_FILE_SAVEAS,0,"zzz.bmp")
>
> No logro tener resultado. Quizas me falte algo o un pequeño detalle...
>
> Gracias de Antemano...!
>
Hola que tal !
Utiliza esto:
METHOD TomarFoto( oSender ) CLASS TCamaraWeb
Local hBitmap,oClip,cImagen,cFileBmp
cFileBmp:= FileUnique(Application:CurrentDir(),'BMP')
AppData:cFileBmp:=cFileBmp
IF ::startcap
SendMessage(::hwdc, WM_CAP_GET_FRAME,0,0)
SendMessage(::hwdc, WM_CAP_COPY, 0, 0); // La copio al portapeles
WITH OBJECT oClip:=TClipboard():New(::oForm)
hBitmap := :GetData(CF_BITMAP )
END
IF ! Empty( hBitmap )
::oImage1:oPicture := TPicture():CreateIndirect( 1, hBitmap )
IF ::oImage1:oPicture:Ispicture()
::oImage1:oPicture:Save(cFileBmp )
ELSE
*** Tu codigo
ENDIF
oClip:Empty()
ENDIF
ENDIF
IF ::startcap
SendMessage(::hwdc, WM_CAP_DRIVER_DISCONNECT, 0&, 0&)
::startcap =.f.
End If
::Close()
RETURN Nil
Este codigo debe de funcionar
Saludos....
news:[email=47ab12cd@ozsrv2.ozlan.local...]47ab12cd@ozsrv2.ozlan.local...[/email]
> Hola a Todos..
>
> eh tratado de hacer la captura de la igagen tomada por la webcam segun
> un ejemplo puesto aqui en un post en el foro pero no eh logrado hacerlo
> eh estado probando con esto:
>
> SendMessage(::hwdc, WM_CAP_FILE_SAVEAS,0,"zzz.bmp")
>
> No logro tener resultado. Quizas me falte algo o un pequeño detalle...
>
> Gracias de Antemano...!
>
Hola que tal !
Utiliza esto:
METHOD TomarFoto( oSender ) CLASS TCamaraWeb
Local hBitmap,oClip,cImagen,cFileBmp
cFileBmp:= FileUnique(Application:CurrentDir(),'BMP')
AppData:cFileBmp:=cFileBmp
IF ::startcap
SendMessage(::hwdc, WM_CAP_GET_FRAME,0,0)
SendMessage(::hwdc, WM_CAP_COPY, 0, 0); // La copio al portapeles
WITH OBJECT oClip:=TClipboard():New(::oForm)
hBitmap := :GetData(CF_BITMAP )
END
IF ! Empty( hBitmap )
::oImage1:oPicture := TPicture():CreateIndirect( 1, hBitmap )
IF ::oImage1:oPicture:Ispicture()
::oImage1:oPicture:Save(cFileBmp )
ELSE
*** Tu codigo
ENDIF
oClip:Empty()
ENDIF
ENDIF
IF ::startcap
SendMessage(::hwdc, WM_CAP_DRIVER_DISCONNECT, 0&, 0&)
::startcap =.f.
End If
::Close()
RETURN Nil
Este codigo debe de funcionar
Saludos....