FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Tomando fotos con la webcam
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: Tomando fotos con la webcam
Posted: Mon Apr 20, 2020 03:57 PM

Antonio.
Compil茅 en W8 y funcion贸 bien, hasta que se me ocurri贸 presionar el bot贸n 'Traspasar'.
Ya no funcion贸 m谩s. Al entrar, nuevamente, presenta la pantalla de la imagen peque帽铆sima, y no volvi贸 a capturar ya m谩s.

Apagu茅 el cpu pensando tal vez... pero lo mismo. Pero... ojo, por primera vez mi computador present贸 mensaje de que Windows estaba tratando de eliminar un malaware. Francamente no s茅.

Volv铆 a compilarlo y lo mismo.

Baj茅 tu ejecutable de prueba, y exactamente el mismo comportamiento. No me funciona.

Saludos.

Francisco J. Alegr铆a P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: Tomando fotos con la webcam
Posted: Mon Apr 20, 2020 04:05 PM

Resuelto!!!

Re-instal茅 los drivers de la camara y volvi贸 a funcionar.
Es decir, cambi茅 a otro puerto usb y Windows instal贸 los drivers nuevamente.

Saludos.

Francisco J. Alegr铆a P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: Tomando fotos con la webcam
Posted: Mon Apr 20, 2020 10:00 PM
Antonio, ya funciono, pero tuve que cambiar el formato del v铆deo a YUY2, en formato MJPG no funciona. Much铆simas gracias con esto logro solucionar el inconveniente que tenia.

Windows 10 64 bits

Saludos
LEANDRO AREVALO
Bogot谩 (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Tomando fotos con la webcam
Posted: Tue Apr 28, 2020 07:19 AM
Usando mod_harbour para tomar fotos / Using mod_harbour to take photos

https://www.modharbour.org/modharbour_samples/photo.prg
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 253
Joined: Wed May 25, 2016 01:04 AM
Re: Tomando fotos con la webcam
Posted: Tue Apr 28, 2020 05:32 PM
Antonio Linares wrote:Usando mod_harbour para tomar fotos / Using mod_harbour to take photos

https://www.modharbour.org/modharbour_samples/photo.prg


Amazing! Can you provide source code? Thanks!
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Tomando fotos con la webcam
Posted: Tue Apr 28, 2020 07:56 PM
here you have it:

https://github.com/FiveTechSoft/mod_harbour/blob/master/samples/photo.prg

In fact you don't need to run any app at all. Simply save the HTML on a local file and you may even open it from a local HTML file from your browser :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 400
Joined: Fri May 11, 2007 08:20 PM
Re: Tomando fotos con la webcam
Posted: Wed Apr 29, 2020 02:04 AM

Excelente Antonio!
tengo una duda todo ese codigo que esta en HTML lo has digitado o haz utilizado alguna herramienta ?

fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Tomando fotos con la webcam
Posted: Wed Apr 29, 2020 06:33 AM

Son ejemplos que busco por la web y los adapto a mod_harbour :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: Tomando fotos con la webcam
Posted: Sun Jul 12, 2020 02:37 PM
I'm referring to the sample for Windows. I'm trying to change the width and height of the capture window without success (top and left work fine, though):

Code (fw): Select all Collapse
oWC:CreateWnd( oWnd , 25, 10, 200, 120 )


Replacing 200 with 100 (as an example) nothing changes.

What am I missing? Is it possible to change width and height of the capture window? If yes, how?

EMG
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: Tomando fotos con la webcam
Posted: Sun Jul 12, 2020 04:51 PM

Is It possibile have Two or many webcam into One dialog?
The cam link from a link or lan

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: Tomando fotos con la webcam
Posted: Sun Jul 12, 2020 07:37 PM
Found! The problem is here:

Code (fw): Select all Collapse
SetWindowPos(::hWnd,HWND_BOTTOM,0,0,oStatus:nWidth,oStatus:nHeight,;
             nOr(SWP_NOMOVE,SWP_NOZORDER ) )


Once this is commented out, we can change width and height of the capture window.

EMG
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Tomando fotos con la webcam
Posted: Mon Jul 13, 2020 07:02 AM

Thank you Enrico

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
Re: Tomando fotos con la webcam
Posted: Fri Apr 23, 2021 04:52 AM
Hola otra vez yo dando lata :-)

Aplique el c贸digo del photos.prg dentro de mi programita pero al ejecutarse no pregunta que controlador de camara se va usar
solo sale el cuadrito negro :-) .



pero si lo compilo fuera de mi programa funciona perfecto que sera lo que falta o lo que causa problema :-)




Saluditos :-)
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

s茅蕦菨晒 谉蓯 蓯蕠s菨 opun莎 菨蕠s菨
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Tomando fotos con la webcam
Posted: Fri Apr 23, 2021 10:18 AM

Aida,

Pulsa en "opciones" y en "formato" y dinos que te aparece, gracias

Incluye dichas opciones en tu app y comprueba que aparece

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
Re: Tomando fotos con la webcam
Posted: Fri Apr 23, 2021 02:51 PM
al pulsar en los botones no pasa nada no sale nada :-)

el c贸digo esta sin modificar solo lo maquille en aspecto visual



internamente no funciona
Code (fw): Select all Collapse
REDEFINE BTNBMP oBtnOkKM PROMPT FWString("Add Photo") ID 4032 OF oSof FILE "OPEN" 聽Left FONT oFontV GRADIENT bGrad ACTION 聽 FotoCamara()



pero si lo ejecuto externamente si funciona
Code (fw): Select all Collapse
REDEFINE BTNBMP oBtnOkKM PROMPT FWString("Add Photo") ID 4032 OF oSof FILE "OPEN" 聽Left FONT oFontV GRADIENT bGrad ACTION WinExec("photos.exe")
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

s茅蕦菨晒 谉蓯 蓯蕠s菨 opun莎 菨蕠s菨