Xailer & OZ Software

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...!
--

"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....