FiveTech Software tech support forums

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.

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.

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

Usando mod_harbour para tomar fotos / Using mod_harbour to take photos

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

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!

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

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

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

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

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

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

Thank you Enrico

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

Aida,

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

Incluye dichas opciones en tu app y comprueba que aparece

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")