PureBasic Forums - English

Code: Select all

;- Window Constants
;
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #Frame3D_0
  #Button_0
  #Text_0
EndEnumeration

;- Requester strings
RequesterTitle$="Woah there neddy!"
RequesterBodyText$="For some reason, we failed to access the music file in memory!"
;- globals
Global RequesterTitle$,RequesterBodyText$

Procedure Open_Window_0()
  If OpenWindow(#Window_0, 478, 444, 221, 65,  #PB_Window_TitleBar | #PB_Window_ScreenCentered | #PB_Window_WindowCentered , "Ogg memory player")
    If CreateGadgetList(WindowID())
      Frame3DGadget(#Frame3D_0, 5, 0, 210, 60, "")
      ButtonGadget(#Button_0, 75, 30, 65, 25, "OK")
      TextGadget(#Text_0, 10, 10, 205, 20, "Simple ogg vorbis player... click ok to quit")
      
    EndIf
  EndIf
EndProcedure

Procedure PlayOgg()
If ovOpenMem(?oggStart, ?oggEnd-?oggStart)
    ; success!
    ovPlay()
Else
MessageRequester(RequesterTitle$,RequesterBodyText$)     
EndIf
EndProcedure

;-main code
PlayOgg()
Open_Window_0()
Repeat
  If ovIsPlaying()
      ;do other stuff in here
      Event = WaitWindowEvent()
  
      If Event = #PB_EventGadget
          ;Debug "WindowID: " + Str(EventWindowID())
          GadgetID = EventGadgetID()
         
      If GadgetID = #Button_0
          Debug "GadgetID: #Button_0" 
      EndIf     
      EndIf

  Else
      ;attempt to restart the ogg... doesn't seem to work though... perhaps I got it wrong? or perhaps a bug?
      ;hell, I may even just need to check the position and just reset it to zero... I'll try that :)
      ovStop()
      ovClose()
      PlayOgg()
  EndIf
  
Until GadgetID = #Button_0

For k.l=100 To 0 Step -1
      Delay(20)
      ovSetVolume(k.l)
Next
ovStop()
ovClose()
End

 
;-Data secton
;this is how we tell the compiler to store the music file in the executable.
  DataSection
    oggStart:
      IncludeBinary "PurePower.ogg"
    oggEnd:
  EndDataSection

Code: Select all

OpenWindow(0, 0, 0, 320, 240, #PB_Window_SystemMenu, "loooooooooop")

; try to open stream
If ovOpen("test.ogg") = 0
  MessageRequester("", "Couldn't open file")
  End
EndIf

; play stream
ovPlay()

Repeat
  If ovIsPlaying()
    ;
    ; do something else here
    ;
    Delay(10)
  Else
    ovSetPosition(0)  ; rewind to the beginning...
    ovPlay()          ; ...and play it again
  EndIf
Until WaitWindowEvent() = #PB_Event_CloseWindow

; cleanup
ovClose()
End

Code: Select all

;- Credits
;Thanks to traumatic for such a cool lib. A link can be found at http://jconserv.net/purebasic/viewtopic.php?t=13637
;this has revived my interest in programming a little :) music is one of my favourite things, And now I can play 
;with something which is easy to use and supports streaming.

;this little example was knocked up by LuC!FeR[SD], hope somebody finds it usefull :)
 
;- Window Constants
;
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #Frame3D_0
  #Button_0
  #Text_0
  #Text_1
  #Text_2
  #Text_3
  #Text_4
  #Text_5

EndEnumeration

;- globals
Procedure Open_Window_0()
  If OpenWindow(#Window_0, 478, 444, 280, 165,  #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered | #PB_Window_WindowCentered , "Ogg memory player")
    If CreateGadgetList(WindowID())
      Frame3DGadget(#Frame3D_0, 5, 0, 270, 160, "")
      ButtonGadget(#Button_0, 110, 130, 64, 25, "OK")
      TextGadget(#Text_0, 10, 10, 260, 20, "Simple ogg vorbis player... click ok to quit",#PB_Text_Center)
      TextGadget(#Text_1, 10, 30, 260, 20, "",#PB_Text_Center )
      TextGadget(#Text_2, 10, 50, 260, 20, "",#PB_Text_Center )
      TextGadget(#Text_3, 10, 70, 260, 20, "",#PB_Text_Center )
      TextGadget(#Text_4, 10, 90, 260, 20, "",#PB_Text_Center )
      TextGadget(#Text_5, 10, 110, 260, 20, "",#PB_Text_Center )

    EndIf
  EndIf
EndProcedure

Procedure PlayOgg()
    If ovOpenMem(?oggStart, ?oggEnd-?oggStart)
        ; success!
        ovPlay()
    Else
    ;- Requester strings
    RequesterTitle$="Woah there neddy!"
    RequesterBodyText$="For some reason, we failed to access the music file in memory!"
    MessageRequester(RequesterTitle$,RequesterBodyText$)     
    EndIf
EndProcedure

Procedure GetSongInfo()
;implemented a crude song info thing... we just update text gadgets 1 to 5 with the relevent info.
    SetGadgetText(#Text_1,"VendorInfo:  "+ovGetVendorInfo())
    SetGadgetText(#Text_2,"Comments:  "+ovGetComments(num.l))
    SetGadgetText(#Text_3,"Available channels:  "+Str(ovGetNumChannels()))
    SetGadgetText(#Text_4,"Sample Rate:  "+Str(ovGetSamplingRate()))
    SetGadgetText(#Text_5,"Bit Rate:  "+Str(ovGetBitrate()))
EndProcedure

;-main code
;as per advice of traumatic, we open the window BEFORE playing the damn music :)
Open_Window_0()
;now we play the song... hopefully, if all goes well :)
PlayOgg()
;now we pull the song info from the tune in memory.
GetSongInfo()
;get total length of the music file in memory.
TotalLength.l = ovGetTotalLength()
Repeat
    Select ovIsPlaying()
        Case #TRUE 
        ;the next routine checks the songs current position.. if TotalLength and Position = the same..
        ;the songs position is reset to the begining.  No need to call ovPlay() again.
            Position.l=ovGetPosition()   
            If Position=TotalLength
                Result.l = ovSetPosition(0)
            EndIf

            ;here we are tracking window and gadget events.  WaitWindowEvent() seems to fudge the player for some reason
            ;especially with my routine to loop the song so we are just using WindowEvent() and 
            ;a delay to keep things running nicely :)
            Select WindowEvent() 
                Case #PB_EventGadget
                Select EventGadgetID()
                ;not actually needed right now, but here to handle more gadgets as added.
                ;next step, to add play, stop buttons.. trackbar gadgets etc.   
                EndSelect     
            EndSelect
        Delay(10)
    EndSelect
;checks to see if the user has hit the window X button or the ok button      
Until EventGadgetID() = #Button_0 Or WindowEvent() = #PB_EventCloseWindow

;fade out the music.
For k.l=100 To 0 Step -1
      Delay(20)
      ovSetVolume(k.l)
Next
;try to do a clean exit :)
ovStop()
ovClose()
End

 
;-Data secton
;this is how we tell the compiler to store the music file in the executable.
  DataSection
    oggStart:
      IncludeBinary "PurePower.ogg"
    oggEnd:
  EndDataSection