Webcam

[lervys cuicas]

Buenas noches, alguien tiene algun codigo para mostrar lo que se esta filmando en una webcam desde foxpro..??

[Douglas Sánchez Guillén]

Hola que tal creo que el recomendado para esta tarea es edgarkummers@gmail.c

om  enviale un Pv.

Saludes.

[edgar suarez kummers]

Gracias Douglas por la recomendación que haces.

Mira, apenas con google y tecleando (webcam code vfp)

llegas a dos sitios al menos cuyos códigos funcionan totalmente bien.

saludos

edgar

--
edgar suarez kummers

[MartinS]

Webcam o camaras de seguridad ?

[Luis Maria Guayan]

Aquí tienes un código que funciona:

http://fox.wikis.com/wc.dll?Wiki~VideoCaptureApi 

 

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com

Nada corre como un zorro
_________________________

[lervys cuicas]

Muchas gracias..!!!
 

---

Date: Sat, 24 Mar 2012 16:27:40 -0300
Subject: Re: [vfp] Webcam
From: luism...@gmail.com
To: publice...@googlegroups.com

[lervys cuicas]

Puede ser ambas o por lo menos una webcam...
 

> Date: Sat, 24 Mar 2012 06:38:47 -0700
> Subject: [vfp] Re: Webcam
> From: marti...@gmail.com
> To: publice...@googlegroups.com

[Santiago]

Alguien sabe como cambiar el tamaño de foto a tomar con este código? . Estuve probando pero no pude ni cambiar el tamaño de la vista previa ni el de la captura de la imagen.

 

Gracias

Santiago

[Santiago]

Buscando encontré la function en vbasic para cambiar el formato de la imagen pero no se como pasar este código a vfp, también encontré como poner un botón de configuración y otro de tamaño pero en tiempo de ejecución no queda guardado el tamaño de captura, cuando lo termine les paso el código.

 

Esto es lo que funciona en vb para formatear el tamaño de captura:

 

*********************************************************************************************

 

Const WM_CAP_SET_VIDEOFORMAT As Integer = (WM_CAP_START + 45)

Private Sub capSetFormat()

Dim bmi As BITMAPINFO
Dim wSize As Byte 'structure size
Dim test As Boolean

With bmi.bmiHeader
.biSize = 40
.biPlanes = 1
.biBitCount = 24
.biCompression = 0
.biClrUsed = 0
.biClrImportant = 0
.biSizeImage = (640 * 480) * 3
.biWidth = 640
.biHeight = 480
End With

SendMessageFormat(hWnd, WM_CAP_SET_VIDEOFORMAT, 40, bmi)

 

***************************************************************************************************

--
 
 
 

[narcizo norzagaray]

#DEFINE WM_CAP_SET_VIDEOFORMAT   (WM_CAP_START + 45)

PROCEDURE capSetFormat()

LOCAL bmi As BITMAPINFO

LOCAL wSize  &&structure size

LOCAL test 

With bmi.bmiHeader

 .biSize = 40

 .biPlanes = 1

 .biBitCount = 24

 .biCompression = 0

 .biClrUsed = 0

 .biClrImportant = 0

 .biSizeImage = (640 * 480) * 3

 .biWidth = 640

 .biHeight = 480

End With

SendMessageFormat(hWnd, WM_CAP_SET_VIDEOFORMAT, 40, bmi)

--
 
 
 

--
Narcizo Norzagaray S.
Desarrollo De Sistemas Computacionales.
www.facebook.com/nzysoft

Cel 622 118 1324

Nextel 129 9426