Sub Process_Globals
Dim MPS As MediaPlayerStream
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
End Sub
Sub Activity_Create(FirstTime As Boolean)
MPS.Initialize("MPS")
MPS.SetVolume(1,1)
MPS.Load("http://sc16.frf.llnw.net:80/stream/ndrstream_n-joy_hi_mp3")
End Sub
Sub Activity_Resume
End Sub
Sub MPS_StreamReady
MPS.Play
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub MPS_StreamError (ErrorCode As String, ExtraData As Int)
Msgbox (ErrorCode, "")
End Sub