MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Como iniciar a webcam em 160x120?

    avatar
    ORLANDOCBM
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 01/08/2019

    Como iniciar a webcam em 160x120? Empty Como iniciar a webcam em 160x120?

    Mensagem  ORLANDOCBM em 21/9/2019, 00:14

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

      Data/hora atual: 7/12/2019, 01:55