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


    Ajuda para finalizar a função de tirar foto pela webcam num formulário

    avatar
    ORLANDOCBM
    Novato
    Novato

    Respeito às Regras 100%

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

    Ajuda para finalizar a função de tirar foto pela webcam num formulário Empty Ajuda para finalizar a função de tirar foto pela webcam num formulário

    Mensagem  ORLANDOCBM em 12/12/2019, 05:28

    Ajuda para finalizar a função de tirar foto pela webcam num formulário Sem_tz10


    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

      Data/hora atual: 20/1/2020, 06:09