Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Modelo de captura de Imagem WebCam
- Mauro Coutinho
- Jedi
- Mensagens: 1561
- Registrado em: Sáb Mar 13, 2010 8:10 pm
- Localização: São José dos Pinhais - Pr
Modelo de captura de Imagem WebCam
Anexo uma planilha que captura a imagem de uma WebCam e a coloca em USF(Userorm), encontrei por acaso em um Forum na França, tive de me registrar para poder baixar o exemplo, apesar de dizer que foi testada na WebCam Logitech QuickCam Home 1.02, e que é necessário a DLL avicap32.dll(deve estar em Windows\System32) padrão do Windows, no teste com minha webcam da Fortrek funcionou perfeitamente.
Como meu francês não é la grande coisa usei o tradutor do Google, mas tem muita informação, então só fiquei no básico, para outras adaptações aconselhoo fazerem o mesmo.
Parte do que traduzi, diz que esse exemplo SOMENTE Captura a Imagem da Cam, mas NÃO é possivel ve-la em tempo Real, se encontrarem uma forma, postem, e que a mesma tem de estar LIGADA antes para poder funcionar corretamente.
A única adaptação que fiz, foi adicionar a rotina de enviar a Imagem para a planilha em um outro CommndButton.
Link Original Forum, é possivel ver, mas para baixar tem de se Registrar:
http://www.excel-downloads.com/forum/34 ... ebcam.html
Neste, temos várias outras opções, usando um Scanner, formatação das Imagens, etc . . .
Usando o Windows Image Acquisition biblioteca em VBA (WIA)
http://silkyroad.developpez.com/VBA/Win ... tion/#LIII
Pelo que entendi a Fonte dos códigos, foram tiradas do site abaixo que é utilizado em VB.
http://www.vbfrance.com/code.aspx?ID=30202
Por hora deixo aos colegas a tarefa de implementações e adaptações, apesar de não dizer nada no site, mas é sempre bom colocarmos os créditos da adaptação do método PastePicture do STEPHEN BULLEN.
O arquivo estava corrompido, anexei novamente. - 11/04/2011
abraços
Como meu francês não é la grande coisa usei o tradutor do Google, mas tem muita informação, então só fiquei no básico, para outras adaptações aconselhoo fazerem o mesmo.
Parte do que traduzi, diz que esse exemplo SOMENTE Captura a Imagem da Cam, mas NÃO é possivel ve-la em tempo Real, se encontrarem uma forma, postem, e que a mesma tem de estar LIGADA antes para poder funcionar corretamente.
A única adaptação que fiz, foi adicionar a rotina de enviar a Imagem para a planilha em um outro CommndButton.
Link Original Forum, é possivel ver, mas para baixar tem de se Registrar:
http://www.excel-downloads.com/forum/34 ... ebcam.html
Neste, temos várias outras opções, usando um Scanner, formatação das Imagens, etc . . .
Usando o Windows Image Acquisition biblioteca em VBA (WIA)
http://silkyroad.developpez.com/VBA/Win ... tion/#LIII
Pelo que entendi a Fonte dos códigos, foram tiradas do site abaixo que é utilizado em VB.
http://www.vbfrance.com/code.aspx?ID=30202
Por hora deixo aos colegas a tarefa de implementações e adaptações, apesar de não dizer nada no site, mas é sempre bom colocarmos os créditos da adaptação do método PastePicture do STEPHEN BULLEN.
O arquivo estava corrompido, anexei novamente. - 11/04/2011
abraços
- Anexos
-
- XLD_WebCamCapture_mvc.rar
- Captura Imagem WebCam
- (25.96 KiB) Baixado 3608 vezes
Re: Modelo de captura de Imagem WebCam
Mauro,
Está no blog:
http://www.tomasvasquez.com.br/blog/mic ... -da-webcam
Mais um que mereceu.
Abraços
Está no blog:
http://www.tomasvasquez.com.br/blog/mic ... -da-webcam
Mais um que mereceu.
Abraços
- Mauro Coutinho
- Jedi
- Mensagens: 1561
- Registrado em: Sáb Mar 13, 2010 8:10 pm
- Localização: São José dos Pinhais - Pr
Re: Modelo de captura de Imagem WebCam
Valeu, Tomas.webmaster escreveu:Mauro,
Está no blog:
http://www.tomasvasquez.com.br/blog/mic ... -da-webcam
Mais um que mereceu.
Abraços
Pena que não foi criação minha, alias estou a anos luz de conhecimento comparado ao que os colegas franceses criaram, mas está valendo, o importante é divulgar ótimos exemplos.
E se olharem no link que postei acima, tem 3 outros exemplos ótimos, com captura da Imagem da WebCam em tempo Real, Edição de uma Imagem, e outras, fora as dicas para se capturar de Scanner, só que Usando a biblioteca Windows Image Acquisition (WIA).
Usando o Windows Image Acquisition biblioteca em VBA (WIA)
http://silkyroad.developpez.com/VBA/Win ... tion/#LIII
Vale a pena baixar os exemplos.
abraços
- Mauro Coutinho
- Jedi
- Mensagens: 1561
- Registrado em: Sáb Mar 13, 2010 8:10 pm
- Localização: São José dos Pinhais - Pr
Re: Modelo de captura de Imagem WebCam
Aproveitando o Tópico, uma outra alternativa, seria usar a rotina abaixo para Exibir a Caixa de Dialogo com os Dispositvos para Inserir Imagem de Scanner ou Câmera.
abraços
Código: Selecionar todos
Sub ExibeDialogoInseerirImagemScanerCam()
Application.CommandBars.FindControl(ID:=1764).Execute
End Sub
Re: Modelo de captura de Imagem WebCam
Alguem sabe como eu fasso para passar a imagem capturada para outro form?
- Mauro Coutinho
- Jedi
- Mensagens: 1561
- Registrado em: Sáb Mar 13, 2010 8:10 pm
- Localização: São José dos Pinhais - Pr
Re: Modelo de captura de Imagem WebCam
dudu, não sei se ja resolveu, só fiquei na duvida referente aos formulários, faltou alguns detalhes, mas vou passar algumas formas.duducp escreveu:Alguem sabe como eu fasso para passar a imagem capturada para outro form?
1º ) Apos capturar a imagem e jogar na planilha, você pode fechar o form1 e abrir o form2 e carregar a imagem que esta na planilha, para isto tem um modelo no tópico abaixo que irá lhe ajudar a entender.
Criando imagem apartir de intervalo celulas - viewtopic.php?f=5&t=210&p=1381&hilit=figura#p1381, baixe o anexo :- CopyPictureToIPicture.rar
2º ) Crie um segundo formulário, adicione um controle Image, supondo que o nome do formulario está Userform2 e o controle image "Image1", volte para o userform1 de dois cliques no botão "Imagem do form para Planilha" e troque pela rotina abaixo :
Deixei desabilitadas as linhas que jogam para a planilha, mas se quiser pode deixar as duas formas, que ira para a planilha e form2.
Código: Selecionar todos
Private Sub CommandButton4_Click()
'Imagem do Userform1 para a planilha
'Sheets("Feuil1").Image1.Picture = PastePicture(WM_CAP_EDIT_COPY)
'Sheets("Feuil1").Image1.PictureSizeMode = fmPictureSizeModeStretch
'Imagem do Userform1 para o Userform2
UserForm2.Image1.Picture = PastePicture(WM_CAP_EDIT_COPY)
UserForm2.Image1.PictureSizeMode = fmPictureSizeModeStretch
UserForm2.Show
End Sub
Desculpe a demora, mas faça os testes se é isto.
[]s