#Region Project Attributes
#ApplicationLabel: VideoView
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
End Sub
Sub Globals
Dim vv As VideoView
End Sub
Sub Activity_Create(FirstTime As Boolean)
vv.Initialize("vv")
Activity.AddView(vv, 10dip, 10dip, 250dip, 250dip)
' File.Copy(File.DirAssets, "test3.mp4", File.DirInternal, "MyFile.mp4")
' vv.LoadVideo(File.DirInternal, "MyFile.mp4")
vv.LoadVideo("http","http://127.0.0.1:51042/video/test3.mp4")
vv.Play
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub vv_Complete
Log("Playing completed")
End Sub