PureBasic

Bonjour,

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

Comment faire ?

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

Et voilà, un tit code rapide :

; 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

Bonjour,

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

Même avec le Debug String ?

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

Oui.

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

PS : J'ai fait une modif dedans.

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.

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 ?

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

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
----------

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

Nikel, ça marche merci.

Merci djes...

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

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

PureBasic

Lister les périphériques Audio

Lister les périphériques Audio