WEBCAM INCOMPATIBILIDAE

MARCELO.TREZE 19/07/2011 11:59:55
#379535
analizando o código tive uma idéia teremos de tentar

primeiro coloquei um label no form e nomei de lblStatus

ne nele coloquei para exibir o status, veja o que aparece quando vc inicia o programa

Private Sub Command1_Click()

WCam1.Iniciar
lblstatus.Caption = WCam1.Status

End Sub

Private Sub Command2_Click()

WCam1.Fechar
lblstatus.Caption = WCam1.Status

End Sub

Private Sub Form_Load()
WCam1.Iniciar
lblstatus.Caption = WCam1.Status

End Sub

Private Sub Form_Unload(Cancel As Integer)

WCam1.Fechar

End Sub
KAIBOLL 19/07/2011 12:52:44
#379542
Primeiro lugar muitíssimo obrigado Marcelo e a todos que estão me ajudando...Bem, o label assume este valor:

05 - Driver de captura não conectado.

o erro acontece nesta linha, onde o capDriverConnect fica False.

Private Function capDriverConnect(ByVal hCapWnd As Long, Optional ByVal i As Long = 0&) As Boolean
capDriverConnect = SendMessageAsLong(hCapWnd, WM_CAP_DRIVER_CONNECT, i, 0&)
End Function

já tentei

capDriverConnect = SendMessageAsLong(hCapWnd, WM_CAP_DRIVER_CONNECT, i, 0&)
capDriverConnect = SendMessageAsLong(hCapWnd, WM_CAP_DRIVER_CONNECT, i, 0)
capDriverConnect = SendMessageAsLong(hCapWnd, WM_CAP_DRIVER_CONNECT, 0, 0)

e sempre aparece a janela Fonte de Video e pedido para selecionar um dispositivo de video, mas nas opções só aparece USB Camera, estou usando no notebook h buster hbnb 1402/210.

Resinstalei os drivers e tudo, no programa da cam TspCap funciona normal a cam, mas no vb6 dá o erro.

Procurei até uma versão mais nova do drive mas não achei
MARCELO.TREZE 19/07/2011 13:07:15
#379543
so por curiosidade, vc está usando o vb6 com sp6?

bom sabendo que que o status é quem determina, e que vc disse que tem que tentar algumas vezes até se conectar, o ideal seria criar um loop

para tentar a conexão

ex:

Private Sub Form_Load()
iniciar:
    WCam1.Iniciar
       lblstatus.Caption = [Ô]conectando...[Ô]
if WCam1.Status = [Ô][Ô]05 - Driver de captura não conectado.[Ô] then
Goto iniciar
End if
 lblstatus.Caption = WCam1.Status
End Sub


olha só supostamente o código acima irá iniciar a cam, e se o status for o 05 ele retorna ao inicio e tenta novamente

teste
KAIBOLL 19/07/2011 13:32:57
#379544
Poderia colocar em um loop, mas o pc que não tiver webcam ele vai ficar repetindo esse processo o tempo todo, e tb a janela Fonte de Video abre...o problema tá aí....eu coloquei um video de 1,2 MB pra vc ver como funciona.

Sim estou usando o SP6.

http://www.wilsonpaes.info/erro.wmv

Obrigado
MARCELO.TREZE 19/07/2011 13:41:21
#379546
vc pode colocar um contador, e se depois de determinadas vezes der o mesmo erro exibe uma mensagem
KAIBOLL 19/07/2011 13:43:40
#379547
é que na primeira vez que executa o código abre logo a janela [Ô]Fonte de video[Ô]
KAIBOLL 23/07/2011 08:59:04
#379801
Esse comando é que tá o erro: SendMessage mCapHwnd, WM_CAP_DRIVER_CONNECT, 0, 0

ele acha a camera onde o index é 0, cria a janela, mas quando chega nessa parte dá erro...esgotou as possibilidades, alguém testa aí pra mim no winsowns 7
KAIBOLL 23/07/2011 09:01:54
#379802
Galera faz um favor, é só testar esse código no windows 7 e dizer se tá abrindo a janela Fonte de video, preciso saber se o problema é com meu pc.

Obrigado
KAIBOLL 19/11/2011 19:37:24
#389498
depois de muito tempo consegui resolver o problema.

para quem passar por isso vai aí a solução.

é só instalar o driver do fabricante da webcam, ex: no meu tava funcionando a webcam no Msn, Skype e até no sistema desenvolvido por mim, mas apresentando problemas..tentei Everest, Aida etc. para tentar descobrir o fabricante e não consegui.

solução

http://www.babooforum.com.br/forum/index.php?/topic/578743-como-encontrar-drivers-de-webcam/page__st__90
Página 3 de 3 [29 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar