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


5 participantes

    Erro em função captura por câmera

    avatar
    eduas65
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 30/10/2012

    Erro em função captura por câmera Empty Erro em função captura por câmera

    Mensagem  eduas65 12/9/2014, 13:47

    Caros, uso um módulo desenvolvido em vb/access que captura fotos da webcam salvando na tabela o caminho da foto.
    Passei a obter mensagem de erro ao usar o módulo em outra máquina. Este módulo foi desenvolvido por um amigo aqui do fórum do qual não tenho obtido resposta por email quanto a este suporte daí estar pedindo auxílio dos colegas deste fórum.

    no evento ao abrir do form;

    Private Sub Form_Open(Cancel As Integer)
    Dim lpszName As String * 100
    Dim lpszVer As String * 100
    Dim Caps As CAPDRIVERCAPS
    capGetDriverDescriptionA 0, lpszName, 40, lpszVer, 40
    lwndC = capCreateCaptureWindowA(lpszName, WS_CAPTION Or WS_THICKFRAME Or WS_VISIBLE Or WS_CHILD, 0, 0, 160, 120, Me.hwnd, 0)
    SetWindowText lwndC, lpszName
    capSetCallbackOnStatus lwndC, AddressOf MyStatusCallback
    capSetCallbackOnError lwndC, AddressOf MyErrorCallback
    If capDriverConnect(lwndC, 0) Then
    capDriverGetCaps lwndC, VarPtr(Caps), Len(Caps)
    capPreviewScale lwndC, True
    capPreviewRate lwndC, 66
    capPreview lwndC, True
    ResizeCaptureWindow lwndC
    End If
    End Sub

    Após a abrir o seletor da camera e ao a escolher mostra mensagem de erro interna OCORREU ERRO -> 418.

    Tanto selecionando câmera do notebook como selecionando uma instalada (usb) dá a mesma mensagem

    Comento que tenho o módulo rodando em outros dois notebooks, não sei se relevante mas cada notebook tem uma resolução/tamanho de tela diferente, ocasionalmente no notebook de tela menor só consigo usar a câmera USB.

    Possuo conhecimentos básico em VB !

    Caso algum colega aqui se interesse nesta ajuda e precise de outros dados estou pronto a fornecer as funções chamadas no script.

    Agradeço a costumeira boa vontade dos colegas!
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3857
    Registrado : 21/04/2011

    Erro em função captura por câmera Empty Re: Erro em função captura por câmera

    Mensagem  Marcelo David 12/9/2014, 14:33

    REGRAS DO FÓRUM

    1. Tenha paciência com quem coloca aqui as suas duvidas.
    2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
    3. Não colocar diversas vezes a mesma dúvida.
    4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
    5. Retorne sempre se deu certo, esse retorno é muito importante.
    6. Respeite toda a equipe Staff e demais membros deste fórum.
    7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
    8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
    9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
    10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
    11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
    12. Fale, não GRITE! Só letras Maiúsculas, na Internet é o mesmo que gritar!
    13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.

    Observe as regra 12 e por gentileza adeque o título da postagem!


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    Erro em função captura por câmera Marcel11
    avatar
    eduas65
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 30/10/2012

    Erro em função captura por câmera Empty Erro em função captura por câmera

    Mensagem  eduas65 12/9/2014, 14:57

    Por orientação do moderador alterei a grafia do tópico!
    avatar
    crb_sjrp
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 172
    Registrado : 21/03/2013

    Erro em função captura por câmera Empty Re: Erro em função captura por câmera

    Mensagem  crb_sjrp 17/10/2014, 06:11

    amigo estou tentando fazer a mesma coisa, consegui fazer abrir a cam mas nao consigo copiar a imagem numa pasta do hd se puder me passar o modulo que faz isso ficarei agradecido abracos.
    avatar
    crb_sjrp
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 172
    Registrado : 21/03/2013

    Erro em função captura por câmera Empty Re: Erro em função captura por câmera

    Mensagem  crb_sjrp 22/10/2014, 01:16

    amigo no meu ta dando certo assim


    Private Sub Form_Load()
    Dim lpszName As String * 100
    Dim lpszVer As String * 100
    Dim Caps As CAPDRIVERCAPS
    mCapHwnd = capCreateCaptureWindow("My Own Capture Window", 0, 0, 0, 320, 240, Me.hwnd, 0)
    SendMessage mCapHwnd, wm_cap_driver_connect, 0, 0
    capGetDriverDescriptionA 0, lpszName, 50, lpszVer, 50
    lwndC = capCreateCaptureWindowa(lpszName, WS_CAPTION Or WS_THICKFRAME Or ws_visible Or ws_child, 0, 0, 160, 120, Me.hwnd, 0)
    SetWindowText lwndC, lpszName
    capSetCallbackOnStatus lwndC, AddressOf MyStatusCallback
    capSetCallbackOnError lwndC, AddressOf MyErrorCallback
    If capDriverConnect(lwndC, 0) Then
      capDriverGetCaps lwndC, VarPtr(Caps), Len(Caps)
      capPreviewScale lwndC, True
      capPreviewRate lwndC, 66
      capPreview lwndC, True
      ResizeCaptureWindow lwndC
    End If
    If SendMessage(mCapHwnd, wm_cap_driver_connect, 0, 0) = 0 Then
       MsgBox ("Não foi detectada nenhuma WebCam"), vbInformation, "Rio Corais"
    End If
    End Sub



    so que nao consigo e salvar uma foto dessa imagem que captura e jogar no hd se tiver alguma solucao
    avatar
    profjoabe
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 10/01/2017

    Erro em função captura por câmera Empty Enviar o BD de Exemplo

    Mensagem  profjoabe 18/1/2017, 13:21

    Bom dia;

    estou fazendo um sistema muito simples de controle de acesso, porém gostaria de saber se é possível mostrar a imagem (através da câmera) do notebook quando a pessoa confirmar seu acesso;

    Formulário tem os seguintes campos:

    Matricula: (Campo texto onde o funcionário vai digitar sua matricula)
    imagem: (preciso que apareça aqui imagem da câmera, pois quando o funcionário for digitar a matricula ele entenda que está sendo filmado)
    botão de confirmação: ao clicar se possível tirar uma foto do colaborador e armazenar no banco (opcional)

    preciso muito dessa ajuda!!!

    Obrigado;

    Att.

    Joabe Sousa cheers cheers cheers
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    Erro em função captura por câmera Empty Re: Erro em função captura por câmera

    Mensagem  Alexandre Neves 22/1/2017, 17:26

    Boa tarde, profjoabe
    Não use o título para mensagem


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Conteúdo patrocinado


    Erro em função captura por câmera Empty Re: Erro em função captura por câmera

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 09:14