Tomando fotos con la webcam

[FranciscoA]

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.

[FranciscoA]

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.

[leandro]

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

[Antonio Linares]

Usando mod_harbour para tomar fotos / Using mod_harbour to take photos

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

[wartiaga]

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!

[Antonio Linares]

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

[artu01]

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

[Antonio Linares]

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

[Enrico Maria Giordano]

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: Select all  Expand view

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

[Silvio.Falconi]

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

[Enrico Maria Giordano]

Found! The problem is here:

Code: Select all  Expand view

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

[Antonio Linares]

Thank you Enrico

[AIDA]

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

[Antonio Linares]

Aida,

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

Incluye dichas opciones en tu app y comprueba que aparece

[AIDA]

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: Select all  Expand view

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: Select all  Expand view

REDEFINE BTNBMP oBtnOkKM PROMPT FWString("Add Photo") ID 4032 OF oSof FILE "OPEN"  Left FONT oFontV GRADIENT bGrad ACTION WinExec("photos.exe")