MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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 Qui 12 Dez - 5: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
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1336
    Registrado : 23/01/2018

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

    Mensagem  crysostomo em Sex 7 Fev - 20:59

    estou como o mesmo problema


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: Sex 18 Set - 14:41