Sub Globals
Dim vv As VideoViewExt
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("frmMain")
vv.Initialize("vv")
vv.MediaControllerEnabled = False
Activity.AddView(vv, 0dip, 0dip, 74%x, 100%y)
End Sub
Sub Activity_Resume
If File.Exists(File.DirAssets,"5.mp4") = False Then
Log("mp4 not found")
Else
File.Copy(File.DirAssets,"5.mp4",File.DirInternal,"5.mp4")
Log("mp4 already copy")
End If
vv.LoadVideo(File.DirInternal,"5.mp4")
vv.Play
Log("vv.Duration:" & vv.Duration)
End Sub