arielariel1
Member
Hola amigos soy nuevo en este lenguaje vengo del VB6, Estoy haciendo una sencilla aplicacion para poder reproducir un Stream. Pero lo que pasa es que tarda como 20 Segundos para reproducir.
Mi código es esta.
Mi código es esta.
B4X:
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