Sub Process_Globals
Dim mp As MediaPlayerStream
End Sub
Sub Globals
Private Button1 As Button
Private Button2 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main")
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(Percentage)
End Sub
Sub Button1_Click
mp.Initialize("mp")
mp.Load("http://50.22.219.97:27881") ' Este es donde esta el strem
End Sub
Sub Button2_Click
mp.Stop
End Sub