[R] Récupérer les noms des sources vidéo

[TommyDDR]

Bonjour,

J'aimerais savoir comment récupérer les noms des sources vidéo disponibles sur l'ordinateur.
J'ai déjà essayé capGetDriverDescriptionA / capGetDriverDescriptionW mais ceux ci me ramènent toujours "Microsoft WDM Image Capture (Win32)", quel que soit la source vidéo connecté.

J'ai installé ManyCam et m'attends donc à ce que la fonction me retourne "ManyCam Virtual Webcam" comme le fait bien le FlashPlayer.

flash.PNG (5.97 Kio) Vu 1240 fois

Si quelqu'un a la solution, que son âme soit bénie.

[lesolutionneur]

Salut http://www.autoitscript.com/forum/topic ... ebcam-udf/

Sinon, cherche dans la msdn, tu y trouveras ton bonheur !

[TommyDDR]

Salut http://www.autoitscript.com/forum/topic ... ebcam-udf/

C'est justement le genre de réponse que je craignais...
Ce n'est pas parce qu’il y a "WebCam" dans le titre qu'il faut simplement balancer l'UDF WebCam ...

Vous vous doutez bien que j'ai fait un minimum de recherche avant de poster ici.
Je connais donc bien cet UDF (et si vous aviez bien regardé l UDF, vous auriez vu qu'il ne contient pas ma réponse)

Sinon, cherche dans la msdn, tu y trouveras ton bonheur !

Regardons vite fait dans msdn...
Oh, ils nous parlent de capGetDriverDescriptionA et capGetDriverDescriptionW !

Comparons avec mon message :

J'ai déjà essayé capGetDriverDescriptionA / capGetDriverDescriptionW mais ceux ci me ramènent toujours "Microsoft WDM Image Capture (Win32)"

Mince, ca à déjà été évoqué...

Merci aux futures réponse de prendre en compte le tout premier message sans s'arrêter au titre.

PS : Je n'ai rien contre vous lesolutionneur ^^ ce sont les réponses à la va vite qui me hérissent

[lesolutionneur]

Quand je t'avais dit de regarder dans la msdn...
http://msdn.microsoft.com/en-us/library ... s.85).aspx

http://msdn.microsoft.com/en-us/library ... s.85).aspx

Je n'ai pas bien vérifié mais ça te donne la liste des trucs connectés et puis il te suffit de faire un tri pour retrouver les webcams !

Et si cette fonction ne te convient pas, alors regarde à gauche pour connaitre les fonctions similaires !

(désolé pour l'autre réponse rapide mais faut dire aussi que je te donnais des pistes et que c'était à toi de les creuser)

[mikell]

Peut-être que ce code te parlera
http://www.developpez.net/forums/d10622 ... ost5894278
personnellement j'y comprends rien

[TommyDDR]

@lesolutionneur, j'ai regardé les fonctions coté msdn, je pense que cela peut servir pour les webcam branché mais pas les webcam virtuelles.

Niveau msdn, il me semblait logique de chercher dans Avicap32.dll, je ne vois pas comment vous êtes atterri sur ce lien (Et j'aimerais bien savoir comment ^^)

@Mikell, la fonction utilisé est celle que j'ai déjà testé et qui me renvoyait une autre valeur que celle espéré.

Malheureusement, mon problème n'est toujours pas réglé.

[mikell]

@Mikell, la fonction utilisé est celle que j'ai déjà testé et qui me renvoyait une autre valeur que celle espéré

Je sais, mais si on lit la page de ce lien depuis le début, ça correspond à une question où le gars expose exactement le même problème que toi, et semble apparemment l'avoir résolu ^^

[TommyDDR]

Son problème était de faire marcher la fonction, moi elle marche mais ne me retourne pas ce que j'attends.

[TommyDDR]

Problème "Résolu", je fouine dans le registre quand la valeur retournée est "Microsoft WDM Image Capture (Win32)"
Voilà le code :

► Afficher le textecode

Code : Tout sélectionner

Func _WebcamGetWebcamName()
    Local $DevicePath = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\MediaResources\msvideo\MSVideo.VFWWDM", "DevicePath")
    If(@error) Then
        Return SetError(1, 0, "")
    EndIf
    $DevicePath = StringReplace($DevicePath, "\", "#")
    Local $Cle = StringSplit($DevicePath, "}", 3)
    If(UBound($Cle, 1) <> 2) Then
        Return SetError(2, 0, "")
    EndIf
    $DevicePath = $Cle[0] & "}\" & $Cle[1]
    $Cle = StringSplit($Cle[0], "{", 3)
    $Cle = $Cle[1]
    Local $Name = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\DeviceClasses\{" & _
                    $Cle & "}\" & $DevicePath & "\Device Parameters", "FriendlyName")
    If(@error) Then
        Return SetError(3, 0, "")
    EndIf
    Return $Name
EndFunc

Il n'y a aucune garantie sur le code, je testerai sur plusieurs machines et je viendrais passer le sujet en [R] le cas échéant.

[lesolutionneur]

Désolé, je ne savais pas que tu parlais de caméra virtuelles.

Le lien, je l'ai trouvé dans la msdn, tout simplement

Je testerais ton script quand je rachèterais un nouveau pc (le mien a subitement arrêté de fonctionner, je soupçonne fort l'obsolescence programmée...)

C'est fout tout ce qu'on trouve dans la base de registre !

[TommyDDR]

"Trouvé dans la msdn" ^^
Qu'avez vous écris et où ?
google -> msdn -> page sur les webcam ? (Je doute que ça soit la page par défaut de msdn ^^)
Mes recherches n'ont abouti qu'aux fonctions capXxxxxxx.

Bref, j'ai testé le script sur 4 PC différents, il semblerait que le code marche sur 3 d'entre eux, je n'ai malheureusement pas le 4eme PC sous la main pour faire des tests plus poussés sur celui-ci.

Je passe en résolu.