[resolu]ouvrir le lecteur

[lepiaf31]

salut, je voudrais savoir s'il est possible d'ouvrir un lecteur cd
merci a vous

[minirop]

http://www.cppfrance.com/infomsg_COMMEN ... 29534.aspx

[brossden]

Directement sous PureBasic c'est prévu !!!!

Avec les commandes :

InitAudioCD()
EjectAudioCD( 1 ou 0 )

Code : Tout sélectionner

Enumeration
  #Window_0
  #Button_0
  #Button_1
EndEnumeration
InitAudioCD()
OpenWindow(#Window_0, 420, 126, 213, 101, "Commande lecteur CD",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
CreateGadgetList(WindowID(#Window_0))
ButtonGadget(#Button_0, 10, 10, 80, 30, "OUVRIR")
ButtonGadget(#Button_1, 10, 50, 80, 30, "FERMER")

Repeat
  Event = WaitWindowEvent()
  GadgetID = EventGadget()
  If Event = #PB_Event_Gadget
    If GadgetID = #Button_0
      DisableGadget(#Button_0,1)
      EjectAudioCD(1)
      DisableGadget(#Button_1,0)
    ElseIf GadgetID = #Button_1
      DisableGadget(#Button_1,1)
      EjectAudioCD(0)
      DisableGadget(#Button_0,0)
    EndIf
  EndIf
Until Event = #PB_Event_CloseWindow
End

[minirop]

Brossden, marche pas ton code sur mon PC

[brossden]

Tu es sous quel OS ?

[minirop]

XP Pro SP2 et Pure 4.02

[brossden]

Ben moi aussi et cela marche trés bien.....
J'ai fais un copier collé du soft ici est tout fonctionne donc pas d'erreur de prog !

[minirop]

j'ai essayer avec le code du lien que j'ai mis (mciSendString) mais çà amrche pas non plus :s

[Kwai chang caine]

Bah moi ça marche avec W2000, j'en ai meme profité pour poser mon verre

Merci Brossden

[lepiaf31]

chez moi non plus ca na marche pas:
XP familial SP2 Pure v4
Qulequ'un a une autre solution ?

[wolfjeremy]

Tu la acheté purebasic ?
Car si c'est la version demo, certaine fonction sont désactivée.

[Good07]

Bonsoir à tous.

Hé bien chez moi ça ne marche pas non plus...

Windows SP2 et pure 4.02.

J'ai essayé avec un lecteur vide et avec un CD audio dans le lecteur...Nada.

C'est peut être le fait que j'ai deux graveur de DVD comme lecteur.

Ouvrir un lecteur oui, mais lequel ?

[lepiaf31]

Oui, j'ai le vrai purebasic mais moi je n'ai qu'un seul lecteur. Je ne sais pas d'où ca peut venir

EDIT: InitAudioCD() me renvoi deux lecteurs reconnus alors que je n'en ai qu'un seul. Peut-etre a t il reconnu un lecteur virtuel (ca expliquerait pourquoi il ne s'ouvre pas ^^ ).

[Ar-S]

J'ai exactement eu le même probleme.

[venom]

bonjour,

testé celui-ci avec choix de lecteurs

Code : Tout sélectionner

NbCDDrives = InitAudioCD()

Global Null$
#GADGET_Eject  = 2
#GADGET_Close  = 3
#GADGET_AudioCDDrive = 7
#GADGET_SelectDrive  = 8

If OpenWindow(0, 100, 200, 200, 70, "lecteurs", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

  If CreateGadgetList(WindowID(0))
    TextGadget    (#GADGET_AudioCDDrive,  10, 15, 140,  24, "Selectionner votre lecteur:")
    ComboBoxGadget(#GADGET_SelectDrive , 150, 10,  40, 200)

    For k=1 To NbCDDrives
      UseAudioCD(k-1)
      AddGadgetItem(#GADGET_SelectDrive, -1, Left(AudioCDName(),2))
    Next
    SetGadgetState(#GADGET_SelectDrive, 0)
    UseAudioCD(0)
    
    ButtonGadget(#GADGET_Eject, 10, 40, 70, 20, "eject", 0)
     ButtonGadget(#GADGET_Close, 120, 40, 70, 20, "close", 0)

  EndIf

    Repeat
      EventID = WindowEvent() 

      If EventID = #PB_Event_Gadget
        Select EventGadget() 
       
          Case #GADGET_Eject
            EjectAudioCD(1)

          Case #GADGET_Close
            EjectAudioCD(0)

          Case #GADGET_SelectDrive
            UseAudioCD(GetGadgetState(#GADGET_SelectDrive))
        EndSelect
      Else
        If EventID = #PB_Event_CloseWindow : Quit = 1 : EndIf   
      EndIf

  Until Quit = 1
 EndIf 

ps: chez moi sa fonctionne niquel windows xp sp2 + purebasic 4.x