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 :
D'où peu venir le problème ??
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
Si vous connaissez d'autre source qui traite de ce sujet, je suis preneur...
Merci d'avance
Partager