Tomar imagen de webcam

[JuanJuan77]

Hola. Tengo powercobol 9. Necesito tomar foto con webcam y almacenarlas con un nombre. Como se puede hacer? gracias

[Kuk]

juanjuan77, prueba con esto: [Aporte] VFW Video Capture OCX - COBOL Foro (http://cobolforo.es/showthread.php?p=1177#post1177)

[Roger]

Hola Juan

Utilizo el ezVidC60.ocx primero lo registro incrusto en el programa el ocx
puedes poner en un boton este codigo:
WORKING-STORAGE SECTION.
01 RETURNVALUE PIC S9(9) COMP-5.
01 foto.
02 RUTA PIC X(50) VALUE "D:\FOTOS\0001.bmp".
PROCEDURE DIVISION.
INVOKE EZVIDCAP1 "SaveDIB" USING FOTO INVOKE EZVIDCAP1 "CaptureEnd" RETURNING ReturnValue.

images son solo en .bmp
Funciona en modo de ejecución, mas no en programa.

[Roger]

Este es el OCX

[Josber]

Yo lo hago como dice Roger y sin problemas de momento.

Un saludo.-

[JuanJuan77]

Gracias!, pero se ve que tengo un problema, no me aparece la imagen, probe con 2 webcams, a alguien le paso?, me queda negro

[Rapinto]

Hola Juan,

Não podes executar o programa com o PPJ aberto.
O OCX não permite duas ocorrências do programa a serem executadas.

Anexo um PPJ completo com um exemplo de Foto e de Video : [Aporte] VFW Video Capture OCX - COBOL Foro (http://cobolforo.es/showthread.php?t=258&p=1193)

[Josber]

juanjuan77, No sé si entiendes lo que ha dicho Rapinto, pero es el problema, casi seguro, para poder ver la imágen, has de tener el proyecto cerrado, el ocx, no permite dos ejecuciones simultáneas, en éste caso el proyecto y el ejecutable, cierra uno de los dos para que funcione. Yo tengo una dll, hecha para ésto, que llama a un form, que captura la imágen, si la quieres, dilo y la subo al foro.

Un saludo.-

[JuanJuan77]

Muchas gracias!, con el ejemplo de Rapinto lo pude hacer. GRacias!

[Galileo]

juanjuan77, No sé si entiendes lo que ha dicho Rapinto, pero es el problema, casi seguro, para poder ver la imágen, has de tener el proyecto cerrado, el ocx, no permite dos ejecuciones simultáneas, en éste caso el proyecto y el ejecutable, cierra uno de los dos para que funcione. Yo tengo una dll, hecha para ésto, que llama a un form, que captura la imágen, si la quieres, dilo y la subo al foro.

Un saludo.-

¿Crees que funcionaría en PowerCOBOL 3.0?

[Kuk]

Galileo, el OCX es un control ACTIVEX. Es otra tecnología, no se puede usar en Power 3.

[Rapinto]

Galileo,

Deve ser possível, utilizando a API da Microsoft AVICAP32.DLL.
Tem lá todas as rotinas necessárias.

Mas eu nunca utilizei PCobol 3.0.

Posso fazer um exemplo para PowerCobol 9.
Poderão ver se é possível adaptar a PowerCobol 3.0.

Amanhã vou tentar fazer esse exemplo.
Un saludo,
Rui Pinto