Sub Process_Globals
Dim mp As MediaPlayerStream
End Sub
Sub Globals
Dim Label1 As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
mp.Initialize("mp")
End If
mp.Load("http://62.27.44.59:8000/ostseewellelive/livestream.mp3")
End Sub
Sub mp_StreamReady
Log("starts playing")
mp.Play
End Sub
Sub mp_StreamError (ErrorCode As String, ExtraData As Int)
Log("Error: " & ErrorCode & ", " & ExtraData)
ToastMessageShow("Error: " & ErrorCode & ", " & ExtraData, True)
End Sub
Sub mp_StreamBuffer(Percentage As Int)
Log("Buffer: " & Percentage)
Label1.Text = ("Buffer: " & Percentage)
End Sub