Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim newStream As Streamer
Dim lblDuration As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
activity.LoadLayout("Layout")
End Sub
Sub btnStart_Click
Dim THREE_GPP As Int
newStream.StartAudioStream("http://www.freewebs.com/thebirdsmedia/faint.mp3")
'http://www.freewebs.com/thebirdsmedia/faint.mp3
End Sub
Sub btnStop_Click
newStream.StopAudioStream()
End Sub
Sub btnIsStreaming_Click
If newStream.IsStreaming = True Then
Msgbox("test", "It's Streaming!")
Else
Msgbox("test", "Aw to bad!")
End If
End Sub
Sub btnPause_click
Dim test As Int
newStream.PauseStream()
lblDuration.text = newStream.AudioDuration
End Sub