PureBasic Forums - English

Code: Select all

Procedure.l Mci(command.s)
  Shared buffer.s
  buffer=Space(256) 
  ProcedureReturn mciSendString_(command,@buffer,256,0)
EndProcedure


file.s="C:\Users\Paul\Desktop\taxman.mp3"

If OpenWindow(0,0,0,400,80,"",#PB_Window_ScreenCentered|#PB_Window_SystemMenu)
  ProgressBarGadget(1,10,20,380,40,0,100,#PB_ProgressBar_Smooth)
  If Mci("open "+Chr(34)+file+Chr(34)+" type MpegVideo alias mp3")=0
    Mci("set mp3 time format milliseconds")    
    Mci("status mp3 length wait")
    totallength=Val(buffer)
    SetWindowTitle(0,"Total Length: "+totallength+" ms")
    
    Mci("play mp3 from 1")
    Repeat
      Event=WaitWindowEvent(1)
      Mci("status mp3 position")
      timeleft=Val(buffer)
      
      played.f=(timeleft/totallength)*100
      SetGadgetState(1,played)
    Until Event = #PB_Event_CloseWindow
    
    Else
    Debug "Failed to open MP3"
  EndIf
EndIf