[Resolvido]Capturar imagem

Tenho um formulário, no qual existe um campo FOTO. Gostaria de saber se é possível que quando clicasse nele, ele capturasse a imagem da webcam. É um formulário de cadastro e precisso iserir fotos.

Sim, é possível. Para isso, você deverá usar um componente da própria camera ou instalar um compatível, uma dll, ocx, algo do gênero, e depois fazer as configurações e programação necessária para que o mesmo funcione.

O equipamento já está instalado, mas ao dar o clique é aberto o localizador de imagens do windons. Gostaria que abrisse o progrma da camera.

Amigo

Veja se este exemplo ajuda. Se ajudar retorne.

http://dl.dropbox.com/u/8157744/Camara%20Web.zip

Abraço

vieieasoft
Perfeito, era isso que eu estva procurando, muito obrigado

Valeu amigo se precisar apite

Este tópico pode ser encerrado

vieieasoft
No meu PC está dando erro 439, quando clico no botão fotografar do formulário Imagenes. Será que preciso habilitar alguma referência? Uso Access 2007.

Abra o formulário em modo de código aponte para tools references e verifique se existe alguma Missing. Não tenho aqui o 7 para experimentar, mas é o mais provável.

vieieasoft
Ainda não consegui

Amigo

No 2003 funfa bem, mas aqui vai material que ´so visto:

http://dl.dropbox.com/u/8157744/Nova%20pasta.zip

o link está okk

Prezados Boa tarde;

preciso do Código atualizado para versão 64bts. tem como disponibilizar???

Windows 10 + Access 2010. preciso muito do exemplo de como tirar uma foto com a câmera do Notebook;

Obrigado;

Att.

Joabe SOusa

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

Olá

Tentei utilizar o app, mas está aparecendo um erro de compilação - tipos incompatíveis em "MyStatusCallback" no código abaixo:

Código:


Private Sub Form_Open(Cancel As Integer)
Dim lpszName As String * 100
Dim lpszVer As String * 100
Dim Caps As CAPDRIVERCAPS
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
End Sub


Podem ajudar com este problema?

tb tenho mesmo problema: tipo incompatível.

Private Sub Form_Open(Cancel As Integer)
Dim lpszName As String * 100
Dim lpszVer As String * 100
Dim Caps As CAPDRIVERCAPS
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

Boa noite! Eu estava procurando um exemplo que pudesse funcionar não com webcam, mas com placa de captura. Na intuição, baixei o exemplo deste tópico e pra minha surpresa, funcionou!!! Quando eu rodo o exemplo, abre uma janela perguntando se eu quero capturar da webcam (que não funcionou) ou da placa de captura. Selecionei a placa de captura e funcionou perfeitamente. Só tem um problema. A imagem foi capturada, mas não o som. Olhei o código e vi que a palavra áudio aparece várias vezes. Será que é possível fazer funcionar com o som?

Aguardo ansiosamente por uma ajuda.

Valew, grato desde já.