Hi,
This worked perfectly up until I updated the API's. It plays a stream from an icecast server, now it works fine in the emulator but not on an actual device. It appears to be not finding the source and timing out:
This worked perfectly up until I updated the API's. It plays a stream from an icecast server, now it works fine in the emulator but not on an actual device. It appears to be not finding the source and timing out:
B4X:
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim mp As MediaPlayerStream
End Sub
Sub Globals
Dim ImageView1 As ImageView
Dim Label1 As Label
Dim Panel1 As Panel
Dim Panel2 As Panel
Dim Button1 As Button
Dim State As Int
Dim Url As String
Dim ListView1 As ListView
Dim Station As String
Dim UrlDefiner As Int
Dim Bitmap1 As Bitmap
Dim Bitmap2 As Bitmap
Dim Bitmap3 As Bitmap
Dim Bitmap4 As Bitmap
Dim Bitmap5 As Bitmap
Dim Bitmap6 As Bitmap
Dim Button2 As Button
Dim Button3 As Button
Dim INPhoneNumber As String
Dim INText As String
Bitmap1.Initialize(File.DirAssets, "bondi.jpg")
Bitmap2.Initialize(File.DirAssets, "coogee.png")
Bitmap3.Initialize(File.DirAssets, "cronulla.png")
Bitmap4.Initialize(File.DirAssets, "manly.png")
Bitmap5.Initialize(File.DirAssets, "maroubra.png")
Bitmap6.Initialize(File.DirAssets, "newcastle.png")
Dim Stream(7) As String
Stream(1) = "http://www.globalnetworkradio.com:9000/radiobondifm.mp3" ' RB
Stream(2) = "http://syd.idigitalradio.com.au:8030/C21AND.MP3" ' ambient
Stream(3) = "http://syd.idigitalradio.com.au:8000/C128AND.MP3" ' classic mix
Stream(4) = "http://syd.idigitalradio.com.au:8020/C3AND.MP3" ' eighties
Stream(5) = "http://syd.idigitalradio.com.au:8020/C7AND.MP3" ' current top 40
Stream(6) = "http://syd.idigitalradio.com.au:8030/C51AND.MP3" ' zfm
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("beachradio")
ListView1.AddTwoLinesAndBitmap("Radio Bondi 91.1", "Dance", Bitmap1)
ListView1.AddTwoLinesAndBitmap("Radio Coogee", "Ambient", Bitmap2)
ListView1.AddTwoLinesAndBitmap("Radio Cronulla", "Classic Hits", Bitmap3)
ListView1.AddTwoLinesAndBitmap("Radio Manly", "Eighties", Bitmap4)
ListView1.AddTwoLinesAndBitmap("Radio Maroubra", "Top 40", Bitmap5)
ListView1.AddTwoLinesAndBitmap("ZFM 94.5 Newie", "Dance Remix", Bitmap6)
ListView1.AddSingleLine(" ")
ListView1.AddSingleLine(" ")
If FirstTime Then
mp.Initialize("mp")
End If
Label1.Text = " Click a Station to Listen"
End Sub
Sub mp_StreamReady
Log("starts playing")
mp.Play
Label1.Text = "Playing - " & Station
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 Stop_Click
Log("stop playing")
mp.Stop
State = 2
Label1.Text = ""
End Sub
Sub ListView1_ItemClick (Position As Int, Value As Object)
Station = Value
UrlDefiner = Position + 1
If State = 1 Then Stop_Click
Url = Stream(UrlDefiner)
mp.Load(Url)
State = 1
Label1.Text = "Buffering"
End Sub
Sub Button1_Click
If State = 1 Then Stop_Click
End Sub
Sub ImageView1_Click
Msgbox ("[email protected]", "CONTACT")
End Sub
Sub Button3_Click
Dim i As Intent
i.Initialize(i.ACTION_VIEW, "sms:")
i.PutExtra("sms_body", "Check out the free Beach Radio APP at beachradio.com.au")
StartActivity(i)
End Sub
Last edited:
