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

    WebCam - Tira foto move ficheiro e grava o caminho

    Maicon
    Maicon
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 267
    Registrado : 08/09/2012

    webcam - WebCam -   Tira foto move ficheiro e grava o caminho   Empty WebCam - Tira foto move ficheiro e grava o caminho

    Mensagem  Maicon 5/12/2019, 00:52

    Depois de ter muitas dificuldades em capturar imagens no Access , e muitas tentativas sem suscesso de realizar a captura de fotos via webcam, testei todos os meios disponíveis aqui no fórum e fora também, sem sucesso : (  Mad , Então  achei o programa na internet Commandcam, escrito em C++ com código fonte aberto do site : "https://batchloaf.wordpress.com/commandcam/" . Com base nos exemplos aqui do fórum em especial do mestre JPAULO, Adaptando os códigos e executando o aplicativo CommandCam, cheguei á uma solução satisfatória para o problema que havia enfrentando. Espero que seja útil.

    Descrição do site do software : :  " ... CommandCam é um captador de imagens de webcam de linha de comando simples e fácil de usar para Windows. Ele captura uma única imagem de uma webcam e a armazena em um arquivo de bitmap. O CommandCam é ideal para uso em arquivos em lote e outras situações em que você, deseja uma maneira muito simples de automatizar a captura de imagens. A CommandCam usa a API DirectShow da Microsoft para acessar webcams,por isso deve funcionar com a maioria das câmeras USB."  

    Neste trecho do código abaixo não consegui atribuir a função [CurrentProject].[Path] para definir a variável x.
    Código:

      x = "C:\Users\Usuario\Documents\image.bmp"
      y = Me.local_txt
      FileCopy x, [CurrentProject].[Path] & "\Fotos\" & [nome_txt] & ".bmp"

    Então terá que alterar este trecho para : "C:\SeuUsuario\Documents\image.bmp" , note que até poderá alterar o local padrão da imagem , mas não descobri por que não funciona se alterar este caminho, não sei se erro do Windows 7 Home. Note que também não consegui deixar o arquivo na mesma pasta do banco de dados , então a dinâmica é essa: O vba chama o CommandCam.
    Onde é criada uma imagem na pasta"C:\Users\"SeuUsuario"\Documents\image.bmp", Em seguida copia a imagem e renomeia com nome digitado no formulário do banco movendo para pasta Fotos. Esta pasta sim no mesmo local do banco de dados. Salvando a imagem como image.bmp , a proxima foto o arquivo image.bmp será sobrescrito , então o inconveniente que não consegui contornar é que o arquivo image.bmp tem que ficar na pasta usuário e o caminho x tem que ser escrito via vba , que não me incomoda em nada já que funciona!!!. cheers cheers cheers cheers


    Última edição por Maicon em 5/12/2019, 03:14, editado 10 vez(es) (Motivo da edição : Melhorar texto, corrigir erros digitação e português.)


    .................................................................................
    "O talento vence jogos, mas só o trabalho em equipe ganha campeonatos."
    Michael Jordan

    Bons Estudos.

    nandomota gosta desta mensagem

    leoni_dias
    leoni_dias
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 179
    Registrado : 14/08/2011

    webcam - WebCam -   Tira foto move ficheiro e grava o caminho   Empty Re: WebCam - Tira foto move ficheiro e grava o caminho

    Mensagem  leoni_dias 9/12/2019, 19:12

    Boa Tarde.

    Me parece que o programa de linha de comando "CommandCam" não aceita variáveis.

    A unica forma seria vc atribuir um caminho para o comando e o mesmo para a variável x.

    Ex.

    Call Shell(CurrentProject.Path & "\CommandCam /filename C:\Pastaescolhida\face.bmp")

    x= "C:\Pastaescolhida\face.bmp"

    Maicon gosta desta mensagem


      Data/hora atual: 23/11/2024, 02:58