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 : ( , 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.
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!!!.
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!!!.
Ú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.)