Listar webcam existente no PC

[Sergio Carvalho 0]

Senhores,

 

Estou desenvolvendo um sistema que utiliza duas webscams, peguei um código de exemplo mas ele não lista todas as webcams conectadas no PC, somente a primeira a ser conectada. Eu já estou procurando uma resposta ha algum tempo nas não consegui evoluir em nada.

 

Se alguem puder ajudar eu agradeço.

 

Estou utilizando o VB 2008 no Vista.

 

Segue a parte do cógigo que deveria listar as câmeras.

 

Private Sub carregaDispositivos()
        Dim strNome As String = Space(100)
        Dim strVer As String = Space(100)
        Dim bRetorna As Boolean
        Dim x As Integer = 0

        ' 
        ' Carrega os dispositivos em lstDevices
        Do
            '
            '   Obtem o nome e a versão Driver
            bRetorna = capGetDriverDescriptionA(x, strNome, 100, strVer, 100)

            '
            ' se existir um dispositivo inclui o nome da lista
            If bRetorna Then lstDispositivos.Items.Add(strNome.Trim)
            x += 1
        Loop Until bRetorna = False
    End Sub

Obrigado,

Sérgio

[VictorWentz 0]

Dê uma lida em

http://www.devx.com/dotnet/Article/30375 (Em inglês)

 

Boa sorte.

[Sergio Carvalho 0]

Dê uma lida em

http://www.devx.com/dotnet/Article/30375 (Em inglês)

 

Boa sorte.

 

Victor, acontece o mesmo problema, o sistema mostra apenas uma das webcans.

 

Se você depurar essa parte do código (abaixo), vai ver que ele só reconhece uma das webcans:

'---list all the various video sources---
    Private Sub ListVideoSources()
        Dim DriverName As String = Space(80)
        Dim DriverVersion As String = Space(80)
        For i As Integer = 0 To 9
            If capGetDriverDescriptionA(i, DriverName, 80, DriverVersion, 80) Then
                lstVideoSources.Items.Add(DriverName.Trim)
            End If
        Next
    End Sub

Aparentemente ele só mostra a câmera que está selecionada como default no windows. Preciso descobrir como encontrar ou mudar a câmer default do windows.

 

Mesmo assim obrigado pela resposta.

 

Abç,

Sérgio