Saudações amigos,
Alguém poderia me dizer como iniciar a webcam com resolução de 160x120?
Tenho um formulário chamado de WEBCAM, por onde capturo as fotos para o formulário de clientes. O problema é que qdo inicio a webcam (ao clicar no botão ON ---- ver foto em anexo) ela sempre inicia na resolução máxima, ou seja, 640x480. Implementei um botão que abre as opções da câmera (Const WM_CAP_DLG_VIDEOFORMAT As Long = WM_CAP_START + 41), onde eu posso escolher dentre as várias resoluções disponíveis, mas gostaria de otimizar as ações para captura das fotos e descartar esse botão, fazendo com que a câmera já inicie em 160x120.
Alguém poderia me informar que código eu devo acrescentar?
Atualmente o código para ligar a webcam é esse:
Private Sub BTLIGAR_Click()
hCap = capCreateCaptureWindow("Take a Camera Shot", WS_CHILD Or WS_VISIBLE, 0, 0, 220, 161, PicWebCam.Form.hwnd, 0)
If hCap <> 0 Then
Call SendMessage(hCap, WM_CAP_DRIVER_CONNECT, 0, 0)
Call SendMessage(hCap, WM_CAP_SET_SCALE, True, 0)
Call SendMessage(hCap, WM_CAP_SET_PREVIEWRATE, 66, 0&)
Call SendMessage(hCap, WM_CAP_SET_PREVIEW, 1, 0)
End If