Page 1 sur 1
Lecteurs CD
Publié : sam. 17/avr./2004 17:24
par Heis Spiter
Bon, suite au modifications opérées par Fred, mon lecteur ne fonctionne plus, et fait planter Windows ! Pourquoi ? C'est simple :
Code : Tout sélectionner
For k = 1 To NbCDDrives
;AddGadgetItem(#GADGET_SelectDrive, -1, Left(CDAudioName(k - 1), 2))
AddGadgetItem(#GADGET_SelectDrive, -1, Left(CDAudioName(), 2), 2)
Next
Voila ! Et je ne sais pas quoi faire, de plus dans l'exemple de Fred cela ne marche pas mieux !
Si quelqu'un a une idée, il est le bienvenue !
Publié : dim. 18/avr./2004 15:08
par Le Soldat Inconnu
le dernier paramètre, c'est normalement le handle d'un icone, pourquoi tu as mis 2 ?
c'est ça ton problème, non ?
Publié : dim. 18/avr./2004 18:09
par Heis Spiter
Je sais pas...
justement j'aimerais que l'on me dise ou est le blème, car normalement, ce code retourne les lettres des lecteurs dans une liste défilante. Et maintenant ca fait juste un grande liste vide !
Publié : dim. 18/avr./2004 18:17
par Le Soldat Inconnu
Essaye en supprimant le dernier param de la fonction AddGadgetItem
Publié : dim. 18/avr./2004 18:22
par Heis Spiter
Pas ca ! Que je lme laisse ou que je l'enleve voici ce que me dit le débugger : Error at line 774: Specified CDAudio unit is out of range
Publié : dim. 18/avr./2004 19:22
par Le Soldat Inconnu
ben, ça doit être un bug
par contre, le comptage des cd commence à 0 d'àprés ce code :
Code : Tout sélectionner
Nb = InitCDAudio()
Debug Nb
If Nb
For n = 0 To Nb - 1
UseCDAudio(n)
Select CDAudioStatus()
Case -1
Debug "Lecteur de CD non prêt (vide ou avec tiroir ouvert)"
Case 0
Debug "Lecteur de CD arrêté (mais un CD est à l'intérieur et détecté)"
Default
Debug "Plage audio en cours de lecture"
EndSelect
Next
EndIf