Tomar foto desde una webcam Genius iLook 300 desde Visual FoxPro

[Programador Desarrollador]

Buenas. Necesito tomar foto desde una webcam Genius iLook 300 desde
Visual FoxPro. Me baje del PortalFox lo siguiente: Controlando
dispositivos TWAIN desde VFP, no me funciono. Instale otros OCX en
estos momentos no recuerdo el nombre pero es gratuito y tampoco me
funciono. Agradeceria su colaboración para resolver este. Agradaciendo
ante mano, saludos y gracias anticipadas.

[Santiago]

Primero bajate las librerías eztwain que están en portalfox, luego esto lo
tenes que declarar en el init del formulario:

****************************************************************************
*
DECLARE INTEGER TWAIN_SelectImageSource ;
IN Eztw32.DLL INTEGER hWnd
DECLARE INTEGER TWAIN_GetSourceList ;
IN Eztw32.dll
DECLARE INTEGER TWAIN_GetNextSourceName ;
IN Eztw32.dll STRING @cSourceName
DECLARE INTEGER TWAIN_OpenSource ;
IN Eztw32.DLL STRING cSourceName
DECLARE INTEGER TWAIN_AcquireNative ;
IN Eztw32.DLL INTEGER nAppWind, INTEGER nPixelTypes
DECLARE INTEGER TWAIN_WriteNativeToFilename ;
IN Eztw32.DLL INTEGER nDIB, STRING cFilename
DECLARE INTEGER TWAIN_FreeNative ;
IN Eztw32.DLL INTEGER nDIB
DECLARE INTEGER TWAIN_SetMultiTransfer ;
IN Eztw32.dll INTEGER nFlag
****************************************************************************
*
Esto en el botón con que tomas la foto:

imagen=sys(5)+curdir()+"nombrefoto.jpg" && reemplazar por el path y el
nombre correcto
lcFile="'"+imagen+"'"
TWAIN_SelectImageSource(0)
lnImageHandle = TWAIN_AcquireNative(0,0)

* copia la imagen a un archivo
IF lnImageHandle=0
TWAIN_FreeNative(lnImageHandle) && liberamos todo si cancela
RETURN
ENDIF
lnReply = ;
TWAIN_WriteNativeToFilename(lnImageHandle,lcFile)
* Libera la memoria del manejador de la imágen
TWAIN_FreeNative(lnImageHandle)
* Chequear errores
IF lnReply = 0
* imagen fue exitosamente grabada
ELSE
TWAIN_FreeNative(lnImageHandle)
*WAIT WINDOW "QUeeeeeeeeeeeeeeeeeeee pasoooooooooooo"
ENDIF
****************************************************************************
**************

Saludos
Santiago Starita
S. C. de Bariloche
Arg.

-----Mensaje original-----
De: publice...@googlegroups.com
[mailto:publice...@googlegroups.com] En nombre de Programador
Desarrollador
Enviado el: lunes, 30 de agosto de 2010 06:30 p.m.
Para: Comunidad de Visual Foxpro en Español
Asunto: [vfp] Tomar foto desde una webcam Genius iLook 300 desde Visual

[Oscar Díaz]

Buenos dias Santiago:

 

Adjunto .rar con formulario de prueba y activex ezvidcap.ocx, debes registrar el activex por inicio - ejecutar - regsvr32 c:\ezvidcap.ocx donde c:\ es la ruta donde tienes el activex.

 

Espero le sirva.

 

Exitos...

 

Oscar Díaz

Bogotá - Colombia

[Alejandro Garcia G.]

Saludos.

Aunque este post es un poco viejo, me veo en la necesidad de pedir a ustedes colaboración

Tengo una aplicación que entre sus formularios, hay uno que me permitia tomar fotografias. Actualice el programa, pasando y utilizando FoxyRb, FoxyTb y otras clases similares. Igualmente muchas funciones internas las he modernizado, uso MySQL como base de datos.

Resulta que esa opción para tomar fotos ha dejado de funcionar y no se que hacer, busco información sobre esto pero nada. Encontre una solución hace un par de meses con un OCX llamado videocap.ocx, trabajo muy bien durante un tiempo pero ya no funciona no se por que. Mi programa esta instalado en Widnows XP, 7, 8, 8.1 y 10. Algunas empresas trabajan con camaras integradas a los equipos otras tiene camaras web externas de diferentes marcas.

Encontre esta rutina y quice implementarla ya que mi programa usa es dll para escanear documentos y no tengo  problema con ella, pero cuando implemento este ejemplo, la foto no es guardada y o he dado el porqué.

¿Alguien me podria ayudar para ver que puede ser?, Tome el ejemplo tal cual y nada mas le cambie la ruta y nombre del archivo a guardar.

Por cierto, con las otras opciones que he buscado y probado, mi camara, la de mi equipo Lenovo 80E4, siempre sale en negro, con esta opción si sale normal (igual que con cualquier programa que no esa VFP)