Discussion :

[SoGood]

Bonjour,

Je cherche a lister l'ensemble des webcams connectées à mon pc.
J'ai trouvé ce bout de code mais au lieu de lister les cams, il affiche ca :
Microsoft WDM Image Capture (Win32)
Pourtant, j'ai bien 2 webcams de connectées. Une Logitech et une Chicony !

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Public Class Form2
    'To make this code work make sure you have a button called btnGetDevices and a listbox called lstCams       
    Declare Function capGetDriverDescriptionA Lib "avicap32.dll" (ByVal wDriver As Short, _
                                                                  ByVal lpszName As String, _
                                                                  ByVal cbName As Integer, _
                                                                  ByVal lpszVer As String, _
                                                                  ByVal cbVer As Integer) As Boolean
    Private Sub LoadCams()
        Dim strName As String = Space(100)
        Dim strVer As String = Space(100)
        Dim bReturn As Boolean
        Dim x As Integer = 0
        ' Load name of all avialable devices into the lstcams .       
        Do
            ' Get Driver name and version   
            bReturn = capGetDriverDescriptionA(x, strName, 100, strVer, 100)
            ' If there was a device add device name to the list   
            If bReturn Then ListBox1.Items.Add(strName.Trim)
            x += 1
        Loop Until bReturn = False
    End Sub
 
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        LoadCams()
    End Sub
End Class

D'où peu venir le problème ??
Si vous connaissez d'autre source qui traite de ce sujet, je suis preneur...

Merci d'avance

[SoGood]

Bon !! J'ai trouvé comment les lister :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Dim capDevices As DsDevice()
' Get the collection of video devices 
capDevices = DsDevice.GetDevicesOfCat(FilterCategory.VideoInputDevice)
For Each CD As DsDevice In capDevices
lstVideoSources.Items.Add(CD.Name)
Next

Mais comment faire maintenant pour afficher la bonne cam lors d'une sélection ds mon listview ????