Lister les périphériques Audio

gansta93 · Message par **gansta93** » mer. 30/juil./2008 22:13

Bonjour,

J'aimerais lister les périphériques audios (cartes son) et avoir leurs noms.

Comment faire ?

Ar-S · Message par **Ar-S** » jeu. 31/juil./2008 0:07

ça je ne sais pas, je ni arrive pas non plus.

Progi1984 · Message par **Progi1984** » jeu. 31/juil./2008 8:18

Et voilà, un tit code rapide :

Code : Tout sélectionner

; Code par Progi1984
; Date : 31/07/08

; Description de WAVEOUTCAPS
; http://msdn.microsoft.com/en-us/library/ms713743(VS.85).aspx

Nb = waveInGetNumDevs_()
String.s = ""

For a = 0 to Nb -1
debug "----------"
S_WAVEOUTCAPS.WAVEOUTCAPS

Debug waveOutGetDevCaps_(a, @WAVEOUTCAPS, SizeOf(WAVEOUTCAPS))
Debug S_WAVEOUTCAPS\wMid.w
Debug S_WAVEOUTCAPS\wPid.w
Debug S_WAVEOUTCAPS\vDriverVersion.l

For Inc= 0 To 31
 String + Chr(S_WAVEOUTCAPS\szPname.c[Inc])
Next 
Debug String 
Debug S_WAVEOUTCAPS\dwFormats.l
Debug S_WAVEOUTCAPS\wChannels.w
Debug S_WAVEOUTCAPS\wReserved1.w
Debug S_WAVEOUTCAPS\dwSupport.l
debug "----------"
next

gansta93 · Message par **gansta93** » jeu. 31/juil./2008 21:22

Bonjour,

Merci.
Mais pourquoi est-ce que je n'ai pas le nom de ma carte son dedans ?

Progi1984 · Message par **Progi1984** » jeu. 31/juil./2008 22:18

Même avec le Debug String ?

gansta93 · Message par **gansta93** » jeu. 31/juil./2008 22:26

Progi1984 a écrit :Même avec le Debug String ?

Oui.

Progi1984 · Message par **Progi1984** » jeu. 31/juil./2008 22:45

Peux tu me renvoyer le retour du code que j'ai posté ?

PS : J'ai fait une modif dedans.

gansta93 · Message par **gansta93** » jeu. 31/juil./2008 22:49

Voici ce que me renvoi le débogueur.

Code : Tout sélectionner

[23:48:08] Attente du démarrage du programme...
[23:48:08] Exécutable démarré.
[23:48:09] [Debug] 2
[23:48:09] [Debug] 0
[23:48:09] [Debug] 26963
[23:48:09] [Debug] 28007
[23:48:09] [Debug] 1818580065
[23:48:09] [Debug]  Audio`“h“ÿÿÿÿ“
[23:48:09] [Debug] 44
[23:48:09] [Debug] 0
[23:48:09] [Debug] 0
[23:48:09] [Debug] 0
[23:48:09] Exécution du programme terminée.

Progi1984 · Message par **Progi1984** » jeu. 31/juil./2008 22:58

Sinon essaie de voir du coté de cette fonction : http://msdn.microsoft.com/en-us/library ... S.85).aspx.

J'ai remodifié le code. peux tu recommencer ?

gansta93 · Message par **gansta93** » jeu. 31/juil./2008 23:24

En fait c'est bizarre, j'ai des caractères parasites dans le nom du périphérique...

Ar-S · Message par **Ar-S** » ven. 01/août/2008 15:03

Idem pour moi, j'obtiens

Code : Tout sélectionner

----------
0
25938
27745
543909236
HD Audio outputè¸@ÿÿÿÿ
44
0
0
0
----------
----------
2
25938
27745
543909236
HD Audio outputè¸@ÿÿÿÿHD Audio outputè¸@ÿÿÿÿ
44
0
0
0
----------

djes · Message par **djes** » ven. 01/août/2008 16:07

Code : Tout sélectionner

; Code par Progi1984
; Date : 31/07/08

; Description de WAVEOUTCAPS
; http://msdn.microsoft.com/en-us/library/ms713743(VS.85).aspx

Nb = waveInGetNumDevs_()
String.s = ""

For a = 0 To Nb -1
Debug "----------"
S_WAVEOUTCAPS.WAVEOUTCAPS

Debug waveOutGetDevCaps_(a, @S_WAVEOUTCAPS, SizeOf(WAVEOUTCAPS))
Debug S_WAVEOUTCAPS\wMid.w
Debug S_WAVEOUTCAPS\wPid.w
Debug S_WAVEOUTCAPS\vDriverVersion.l

Debug PeekS(@S_WAVEOUTCAPS\szPname)
Debug S_WAVEOUTCAPS\dwFormats.l
Debug S_WAVEOUTCAPS\wChannels.w
Debug S_WAVEOUTCAPS\wReserved1.w
Debug S_WAVEOUTCAPS\dwSupport.l
Debug "----------"
Next

gansta93 · Message par **gansta93** » ven. 01/août/2008 16:13

Nikel, ça marche merci.

Progi1984 · Message par **Progi1984** » ven. 01/août/2008 17:31

Merci djes...

Pourquoi j'y ai pas pensé ? C'était tellement plus simple que mon for chr...

Backup · Message par **Backup** » ven. 01/août/2008 18:20

ben apparemment ça ne renvoie pas l'existence d'une carte ASIO