[RESOLU]Détecter la carte son

[omega]

Bonjour,

Est il possible de détecter la carte son en pb?

Merci

[majikeyric]

si InitSound() retourne 0, soit DirextX n'est pas installé, soit il n'y a pas de carte son.

Je ne sais pas trop ce qu'il y a comme autre solution.

[Kwai chang caine]

J'sais pas si ça peut aider
http://www.purebasic.fr/french/viewtopi ... sc&start=0

[omega]

@Kwai merci pour ce lien:

J'sais pas si ça peut aider
viewtopic.php?t=8366&postdays=0&postorder=asc&start=0

J'ai trouvé ce petit code sur ce lien.

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

Je l'ai testé et voici ce que ça donne:

---------
0
1
100
1290
HD Audio rear oputput 2
786431
-1
0
44
---------

Et voilà, ça marche ! bien que je ne comprends pas toute cette liste mais l'essentiel, c'est le nom de la carte son (en gras).

Merci beaucoup à tous

[Kwai chang caine]

Content de t'avoir dépanné