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_har ... /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

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

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