Sub Process_Globals
Dim mps As MediaPlayerStream
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
mps.Initialize("mps")
End If
mps.Load("Web Addy")
End Sub
Sub ImageView1_Click
mps.Play
End Sub
Sub mps_StreamReady
Log("buffer complete")
ToastMessageShow("Video Ready", True)
End Sub
Sub mps_StreamError (ErrorCode As String, ExtraData As Int)
Log("Error: " & ErrorCode & ", " & ExtraData)
ToastMessageShow("Error: " & ErrorCode & ", " & ExtraData, True)
End Sub
Sub mps_StreamBuffer(Percentage As Int)
Log(Percentage)
End Sub