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

    Erro em função captura por câmera

    Compartilhe

    eduas65
    Novato
    Novato

    Respeito às Regras 100%

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

    Erro em função captura por câmera

    Mensagem  eduas65 em Sex 12 Set 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!
    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Marcelo David em Sex 12 Set 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!


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)

    eduas65
    Novato
    Novato

    Respeito às Regras 100%

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

    Erro em função captura por câmera

    Mensagem  eduas65 em Sex 12 Set 2014, 14:57

    Por orientação do moderador alterei a grafia do tópico!

    crb_sjrp
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  crb_sjrp em Sex 17 Out 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.

    crb_sjrp
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  crb_sjrp em Qua 22 Out 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

    profjoabe
    Novato
    Novato

    Respeito às Regras 100%

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

    Enviar o BD de Exemplo

    Mensagem  profjoabe em Qua 18 Jan 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
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves em Dom 22 Jan 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

      Data/hora atual: Seg 25 Set 2017, 00:03