Sub Globals
Dim vv As VideoView
Dim Button1 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Activity.LoadLayout("playmp4")
vv.Initialize("vv")
Activity.AddView(vv, 1dip, 1dip, activity.width, 450dip)
button1.Initialize("button1")
button1.Text = "play"
Activity.AddView(button1, 50dip, 50dip, 150dip, 150dip)
End Sub
Sub vv_Complete
Msgbox("video completed","completed")
vv.Stop
End Sub
Sub Button1_Down
vv.LoadVideo("http","http://videoqube.com/iphone/95.mp4")
button1.Visible=False
Msgbox("Loading and buffering video","Loading")
ToastMessageShow("loading streaming video....", True)
vv.Play
End Sub