Sub Process_Globals
End Sub
Sub Globals
Dim audio As MediaPlayerStream
End Sub
Sub Activity_Create(FirstTime As Boolean)
audio.Initialize("audio")
audio.Load("http://www.rekard.com/abhyas/tracks/sriguruguha/with_click/Srigiruguha_C_80_With_Click.mp3")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub audio_StreamReady
Log("starts playing")
audio.Play
End Sub
Sub audio_StreamError (ErrorCode As String, ExtraData As Int)
Log("Error: " & ErrorCode & ", " & ExtraData)
ToastMessageShow("Error: " & ErrorCode & ", " & ExtraData, True)
End Sub
Sub audio_StreamBuffer(Percentage As Int)
Log(Percentage)
End Sub
Sub audio_Complete
audio.Stop
End Sub