FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour TWebCam Cambiar resolucion
Posts: 147
Joined: Tue Oct 11, 2005 08:22 PM
TWebCam Cambiar resolucion
Posted: Fri Apr 12, 2019 08:01 PM

Hola compa帽eros,

Alguien sabe como puedo cambiar la resoluci贸n de la c谩mara web desde mi aplicaci贸n? Necesito bajar la resoluci贸n al tomar fotograf铆as de asistencia y no logro hacerlo. Desde Windows 10 entro a la aplicaci贸n de c谩mara y puedo bajar la resoluci贸n, pero en mi aplicaci贸n sigue tomando los valores m谩ximos y me genera archivos grand铆simos para cada foto y como necesito almacenarlos en un campo con MySql, la tabla crece demasiado, con equipos con Windows 8 si puedo cambiar la resoluci贸n y me lo respeta y me crea archivos bmp peque帽os, pero con Windows 10 no logro hacerlo. Alguna sugerencia?

Saludos!

Eduardo Borondon Mu帽iz

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: TWebCam Cambiar resolucion
Posted: Sat Apr 13, 2019 05:29 AM

Eduardo,

> con Windows 8 si puedo cambiar la resoluci贸n (desde la app)

C贸mo lo haces ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 147
Joined: Tue Oct 11, 2005 08:22 PM
Re: TWebCam Cambiar resolucion
Posted: Sat Apr 13, 2019 04:20 PM

Hola Antonio,

Me refiero a que con el programa de c谩mara que viene con Windows 8, si modifico la resoluci贸n, desde mi App si me respeta los cambios pero con Windows 10 no lo hace, aunque cambie la resoluci贸n en la Camara, en mi App toma la m谩xima resoluci贸n. Alguna idea para bajar la resoluci贸n por medio de c贸digo a un bmp?

Saludos!

Eduardo Borond贸n Mu帽iz

Posts: 147
Joined: Tue Oct 11, 2005 08:22 PM
Re: TWebCam Cambiar resolucion
Posted: Sat Apr 13, 2019 05:44 PM

Resuelto!!

Buscando y buscando, encontr茅 una clase de C茅sar Lozada, TWebCamPhoto en la que tiene un Metodo Format() que llama al dialogo para configurar la resoluci贸n del controlador de la c谩mara, copi茅 el m茅todo a la clase TWebCam de FWH ajustando solamente los nombres de unas DATA's y funciona!!. Dejo aqu铆 el m茅todo por si alguien lo necesita y por si Antonio quiere incluirlo en la pr贸xima versi贸n de FWH.

define WM_CAP_DLG_VIDEOFORMAT (WM_CAP_START + 41)

METHOD Format() CLASS TWebCam // C茅sar E. Lozada, cesarlozada@hotmail.com

If ::hWebCam <> NIL .and. ::isConnected
SendMessage( ::hWebCam, WM_CAP_DLG_VIDEOFORMAT, 0, 0 )
EndIf

Return NIL

Saludos!

Eduardo Borond贸n Mu帽iz

Continue the discussion