Fuentes programa completo Webcam

[jll-fwh]

Hola a todos:

Algunos compañeros me han mandado e-mails sobre como funciona el tema de las webcam USB, para los que no tenéis muy claro como funciona y no usáis las últimas versiones de FWH, aquí os dejo un programa completo con el código fuente incluido.

Este programa yo lo uso para poder ver los nidos de los loros en la época de cría con unas 10 webcam distintas. Para no modificar el programa inicial que hice, simplemente ejecuto 10 veces el programa y en cada uno veo una webcam distinta.

Creada con la versión FWH812, aunque la he probado hasta la versión FWH1109 sin problemas.

1.- Podemos crear imágenes capturadas de la webcam en disco.
2.- Podemos grabar videos sin problemas con "NO RESPONDE".
3.- Modificar formato de video.
4.- Copia imagen webcam al Portapapeles.
5.- Podemos crear Streem para ver las capturas en Internet. ( solo es una pequeña base, en la carpeta HTML/Ejemplo teneis un fichero HTML para ver los stream de la cam, lo podeis mejorar esto solo es una base ).



Descargar:
http://www.grupes.es/basura/webcam.rar

Captura de la webcam mediante Streemers FWH:
Ejemplo:


Para aquellos que estabais interesados ver la Webcam vía explorardor ( HTML), no necesariamente tenéis que usar por ejemplo este programa, simplemente ejecutar webcam.html de la carpeta "html\Ejemplo WebCam OnLine Web-modo local", y vuestra webcam se vera vía Web.

Ejemplo:


También tenéis otra opción que es el programa Yawcam, ejecutáis el programa, le indicas que quieres usar Streem, luego ejecutas WebCam.HTML de la carpeta HTML\Ejemplo Webcam OnLine Web con YawCam y veréis vuestra webcam en internet.

Ejemplo:


Lo prometido es deuda, espero que os sirva.

Un saludo
JLL

[Antonio Linares]

Publicada en la página de contribuciones libres para FiveWin:
http://code.google.com/p/fivewin-contributions/downloads/detail?name=webcam.rar&can=2&q=

Gracias!

[luisduque]

Buenas tardes

La clase webcam no se porque, pero probe el webcam.exe que esta como ejemplo y no me reconoce la camara web

tengo windows 7, 64 bit

lo curioso es que si activo la webcam con sjype por ejemplo entro al ejemplo WebCam.exe y luego me salgo del skype si funciona.

aparece
Initialize Process: No Succeful


desde hace tiempo utilizo la misma clase y me toco para resolver hacer lo siguiente


DEFINE BRUSH oBrush STYLE NULL
DEFINE WINDOW oWnd STYLE WS_POPUP
@ 0, 5 WEBCAM oWebCam SIZE 320,320 OF oWnd START ADJUST RATE 66

oWebCam:Initialize()

ACTIVATE window oWnd Maximized
oBrush:End()

es como incializarla 2 veces no se pero me servido asi,

[jll-fwh]

Hola Luis;

Correcto, probando ahora con un portatil da ese problema. Yo hasta ahora lo tengo montado con webcam USB funcionado perfecto, pero con webcam integradas efectivamente tenia problemas al inicializar el controlador.

Ya esta solucionado al menos con las pruebas que acabo de hacer con 2 tipos de webcam, uno integrada y la otra USB, ahora ya inicializa correctamente.

Simplemente en el boton "ACTIVAR"añadir oWebCam:Initialize(), no se sabe porque hay que inicializar dos veces el controlador, el codigo fuente del boton "ACTIVAR" tiene que ser:

Code: Select all  Expand view

    DEFINE BUTTON RESOURCE "MenuP_Media","MenuP_Media","MenuP_Media";
            NOBORDER OF oBar;
            ACTION ( oWebCam:Initialize(),;
                     oWebCam:Initialize(),;
                     If( oWebCam:isConnected,;
                       ( oWnd:oMsgBar:cMsgDef := "WebCam: Conectada",;
                         oWnd:oMsgBar:Refresh()),));
            TOOLTIP "Conectar la WebCam";
            FONT oFont;
            PROMPT "Conectar";
            WHEN ! oWebCam:isConnected .AND. !oWebCam:lTimer
 

Un saludso
JLL

[jll-fwh]

Si alguien quiere descargarse la modificación:

http://www.grupes.es/basura/webcam.rar

Un saludo
JLL

[luisduque]

Maestro,


Trabaja perfecto webcam


Gracias, exitos

Para mi fivewin es una herramienta muy completa los foros son excelente

Maestro le deseo de corazón que Dios lo siga iluminando, para seguir innovando, me pareció excelente la clase Metro nueva

[jll-fwh]

Gracias luisduque:

Aunque esto es una colaboración de todos.

A ver si tengo tiempo y mejoro la clase TMetro, de momento esta quedando muy bien.

Un saludo
JLL

[Antonio Linares]

Javier,

Publicada la actualización, gracias!

http://code.google.com/p/fivewin-contributions/downloads/detail?name=webcam2.rar&can=2&q=

[Cgallegoa]

Hola amigos,

No puedo compilarla con xHarbour, Borland 5.8.2.

Error: Unresolved external '_HB_FUN_CAPFILESETCAPTUREFILE' referenced from C:\TRANSI25\TWEBCAM.OBJ
Error: Unresolved external '_HB_FUN_ENUMDEVICE' referenced from C:\TRANSI25\TWEBCAM.OBJ
Error: Unresolved external '_HB_FUN___CALLBACK' referenced from C:\TRANSI25\TWEBCAM.OBJ

Qué hace falta ?

Gracias y saludos,

Carlos Gallego

[jll-fwh]

Hola cGallegoA:

Lo siento, en este punto no puedo ayudarte, yo uso Harbour no xHarbour.

Si tengo algo de tiempo, intentare instalar xHarbour para ver si puedo ayudarte.

Un saludo
JLL