Sub Globals
Dim Video As VideoView
Dim Panel1 As Panel
Dim ServiceLink As String="http://media.newspring.cc/video/2013/021013_DontWasteYourLife_01_iPod.mp4"
Dim ServiceFile As String="021013_DontWasteYourLife_01_iPod.mp4"
Dim StreamVideo As Boolean
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Sermon") ' Change this to your Activity Layout
Panel1.Color=Colors.black
Video.Initialize("Video1")
Panel1.Addview(Video,0,0,100%x, 100%y)
StreamVideo=True 'to play video file, change to false
If StreamVideo=True Then
Video.LoadVideo("http",ServiceLink)'Setup for Streaming
Else
Video.LoadVideo(File.DirDefaultExternal,ServiceFile)'Setup for Loading Video
End If
Video.Play
End Sub
Sub video1_Complete
'Video finished, so We end App
Activity.Finish
End Sub