Código completo y funcional para tomar foto desde WebCam

[Fernando Leal]

Hola Gente,
Pues aquí­ lo tienen. Con un OCX de tan solo 29.90 dolares...
Bajar el OXC Trial de aquí­
http://www.gogowishs.com/products/webcamcapture/
y el proyecto Xailer bajarlo de aquí­.
http://www.captura-digital.com/asistencia/webcam.zip
Que le saqueis provecho
Saludos
Fernando Leal
México, DF

[Carlos Ortiz]

Se agradece, muy atento.
C.Ortiz.

[Bingen Ugaldebere]

Siento el retraso he estado de vacaciones hasta ayer, pero lo que te he
enviado en una pregunta anterior es gratis....
http://www.bisoft.es/Demos/FotosWebCam/FOTOS.rar
Salu2.

[Bingen Ugaldebere]

Siento el retraso en mi respuesta, pero he estado de vacaciones y he
vuelto ayer.
Lo que te he enviado en la pregunta anterior es gratis y 100 % xHarbour
sin nada externo, basado en un antiguo trabajo de The Full para FW de32
bits.
http://www.bisoft.es/Demos/FotosWebCam/FOTOS.rar
Salu2.

[emeasoft]

Bingen:
Estou precisando disto.
Quanto é o custo dos direitos autorais?
Estoy necesitando esto.
¿Cuánto es el costo del derecho de autor?

[emeasoft]

Ao compilar o exemplo acusa o erro anexo.
Al compilar el ejemplo acusa el error adjunto.



Attached files

[ignacio]

HB_FUNC( WC_CAPTURAS )
{
// He cambiado la declaracion porque capGetDrivers necesita un puntero
// a la memoria donde almacenar szDeviceName y szDeviceVersion
char szDeviceName[80];
char szDeviceVersion[80];
WORD wIndex;
WORD wDevices;
PHB_ITEM pReturn;
for( wIndex = 0; wIndex < 10; wIndex++ )
{
if( capGetDriverDescription( wIndex, (LPTSTR) &szDeviceName,
sizeof( szDeviceName ),
(LPTSTR) &szDeviceVersion,
sizeof( szDeviceVersion ) ) )
{
wDevices = wIndex + 1;
}
}
--
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
http://www.xailer.com/forum
http://www.xailer.com/dokuwiki
"Mário Angelini" <mario[at]emeasoft[dot]com[dot]br> escribió en el mensaje
de noticias:4cab3eb9$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Ao compilar o exemplo acusa o erro anexo.
>
> Al compilar el ejemplo acusa el error adjunto.
>
>
>
>
>
>
>
> --
> Saludos!
> M탡rio Angelini
> http://www.eMeAsOfT.com
> http://emeasoft.blogspot.com/
> http://twitter.com/emeasoft
>
> http://bit.ly/ci22sm
> http://www.brasilturismo.com/brasil/

[emeasoft]

Ignacio,
Ya no es error de compilación, pero afirma:
ERROR: Cámara desconectada (linha 49 de Form2.prg)
//Instanciar el objeto
::oCapture := TCapture():New( ::oPanel1 )
//Conectar
IF ::oCapture:Conect()
::oCapture:PreviewRate( 15 )
::oCapture:PreViewScale( .T. )
::oCapture:Preview(.T.)
ELSE
Msginfo("ERROR: Cámara desconectada")
::Close()
ENDIF
¿Cómo puedo dibujar la pantalla para configurar la cámara, como la imagen adjunta?



Attached files

[Xevi]

Mario,
Con la versión 2 de Xailer...
y me daba error al compilar
he comentado TODAS las lineas de la función
HB_FUNC( WC_CAPTURAS )
ha compilado correctamente, y funciona perfecto.
Un Saludo,
Xevi.
"Mário Angelini" <mario[at]emeasoft[dot]com[dot]br> escribió en el mensaje
de noticias:4cab56e4$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Ignacio, Ya no es error de compilaciíƒÂ³n, pero afirma:
>
> ERROR: C탡mara desconectada (linha 49 de Form2.prg)
>
> //Instanciar el objeto
> ::oCapture := TCapture():New( ::oPanel1 )
>
> //Conectar
> IF ::oCapture:Conect()
> ::oCapture:PreviewRate( 15 )
> ::oCapture:PreViewScale( .T. )
> ::oCapture:Preview(.T.)
> ELSE
> Msginfo("ERROR: C탡mara desconectada")
> ::Close()
> ENDIF
>
> í‚¿CíƒÂ³mo puedo dibujar la pantalla para configurar la
> c탡mara, como la imagen adjunta?
>
>
>
>
>
>
> --
> Saludos!
> M탡rio Angelini
> http://www.eMeAsOfT.com
> http://emeasoft.blogspot.com/
> http://twitter.com/emeasoft
>
> http://bit.ly/ci22sm
> http://www.brasilturismo.com/brasil/
>
> __________ Información de ESET NOD32 Antivirus, versión de la base de
> firmas de virus 5505 (20101005) __________
>
> ESET NOD32 Antivirus ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 5505 (20101005) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com

[emeasoft]

Xevi:
Pero como usted hizo para abrir el diálogo "Fuente de captura"?

[Xevi]

Mario,
no he tenido que abrir este cuadro de diálogo. La cámara me la detecta
automáticamente al iniciar la aplicación.
Un Saludo,
Xevi.
"Mário Angelini" <mario[at]emeasoft[dot]com[dot]br> escribió en el mensaje
de noticias:4cab615e$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Xevi:
> Pero como usted hizo para abrir el diálogo "Fuente de
> captura"?
>
>
> --
> Saludos!
> Mário Angelini
> http://www.eMeAsOfT.com
> http://emeasoft.blogspot.com/
> http://twitter.com/emeasoft
>
> http://bit.ly/ci22sm
> http://www.brasilturismo.com/brasil/
>
> __________ Informaci�n de ESET NOD32 Antivirus, versi�n de la base de
> firmas de virus 5506 (20101005) __________
>
> ESET NOD32 Antivirus ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 5506 (20101005) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com

[emeasoft]

Al compilar el ejemplo citado aquí­ y me
devuelve "cámara desconectada."
Si utilizo FOTO.EXE da descarga, funciona correctamente.
Creo que el ejemplo de PRG no es completa.
¿Existe la posibilidad que hacerme un pequeño ejemplo en Xailer 2.

[Bingen Ugaldebere]

El EXE que he adjuntado esta compilado con la versión de Xailer 2.0, es
cierto que con las modificaciones adjuntadas por Ignacio ahora ya no da
warnings de compilación, pero funcionar funciona de ambas maneras y lo
he probado con 4 webcam distintas en 4 Pcs distintos y 3 versiones de
windows, no se que mas decirte.

[ignacio]

Mario,
Yo ni siquiera tengo camara, lo siento.
Un saludo
--
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
http://www.xailer.com/forum
http://www.xailer.com/dokuwiki
"Mário Angelini" <mario[at]emeasoft[dot]com[dot]br> escribió en el mensaje
de noticias:4cab56e4$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Ignacio, Ya no es error de compilaciíƒÂ³n, pero afirma:
>
> ERROR: C탡mara desconectada (linha 49 de Form2.prg)
>
> //Instanciar el objeto
> ::oCapture := TCapture():New( ::oPanel1 )
>
> //Conectar
> IF ::oCapture:Conect()
> ::oCapture:PreviewRate( 15 )
> ::oCapture:PreViewScale( .T. )
> ::oCapture:Preview(.T.)
> ELSE
> Msginfo("ERROR: C탡mara desconectada")
> ::Close()
> ENDIF
>
> í‚¿CíƒÂ³mo puedo dibujar la pantalla para configurar la
> c탡mara, como la imagen adjunta?
>
>
>
>
>
>
> --
> Saludos!
> M탡rio Angelini
> http://www.eMeAsOfT.com
> http://emeasoft.blogspot.com/
> http://twitter.com/emeasoft
>
> http://bit.ly/ci22sm
> http://www.brasilturismo.com/brasil/

[emeasoft]

Resuelto.
Si se utiliza F9 no funciona. Usted debe hacer clic en el ejecutable.
Agradecido por la atención.

[Fernando Leal]

Si se compila con la 1.99 marca este error.
TFORM2:CREATEFORM(3)
Error BASE/1066 Argument error: conditional
Argumentos: ( [ 1] = Tipo: U Valor: NIL)
Si se usa la 2.01 bajada de la web de xailer.
Error: Camara desconectada.
Como yo tengo la 1.99 hasta ahí­ llego. Será cuando me actualize.
Gracias Bingen
Fernando Leal
México, DF

[emeasoft]

Funciona, pero tiene que ejecutar como Administrador.

[Bingen Ugaldebere]

Esto se ha resuelto con la modificación aportada por Ignacio, ver más
arriba.
El 06/10/2010 16:23, Fernando Leal escribió:
> Al compilar con la 1.99 y la 2.01 bajado de la web de
> xailer, sale el mismo mensaje.
>
> Compilando FOTOS.prg...
> Compilando Form2.prg...
> Warning W8075 Form2.prg 364: Suspicious pointer conversion
> in function HB_FUN_WC_CAPTURAS
> Warning W8075 Form2.prg 364: Suspicious pointer conversion
> in function HB_FUN_WC_CAPTURAS
> Warning W8075 Form2.prg 377: Suspicious pointer conversion
> in function HB_FUN_WC_CAPTURAS
> Warning W8075 Form2.prg 377: Suspicious pointer conversion
> in function HB_FUN_WC_CAPTURAS
> Enlazando FOTOS.exe...
> 4 Warnings, 0 Errors
>
>
>