MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

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

    avatar
    ORLANDOCBM
    Novato
    Novato


    Respeito às regras : 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 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
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2741
    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 7/2/2020, 20:59

    estou como o mesmo problema


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 7/11/2024, 05:31