Sub Globals
Dim vv1 As VideoView
Dim vvl As VideoViewOnErrorListener
End Sub
Sub Activity_Create(FirstTime As Boolean)
vv1.Initialize("vv")
vvl.SetOnErrorListener(vv1, "vvl")
Activity.AddView(vv1, 0dip, 10dip, 250dip, 250dip)
File.Copy(File.DirAssets, "IMAG0018.mp4", File.DirInternal, "IMAG0018.mp4")
vv1.LoadVideo(File.DirInternal, "IMAG0018.mp4")
vv1.Play
End Sub
Sub vvl_error(What As Int, Extra As Int) As Boolean
Select Case What
Case vvl.MEDIA_ERROR_SERVER_DIES
Log("vv error what: SERVER_DIES")
Case vvl.MEDIA_ERROR_UNKNOWN
Log("vv error what: ERROR_UNKNOWN")
Case Else
Log("vv error what else: " & What)
End Select
Select Case Extra
Case vvl.MEDIA_ERROR_IO
Log("vv error Extra: IO")
Case vvl.MEDIA_ERROR_MALFORMED
Log("vv error Extra:_MALFORMED")
Case vvl.MEDIA_ERROR_TIMED_OUT
Log("vv error Extra: TIMED_OUT")
Case vvl.MEDIA_ERROR_UNSUPPORTED
Log("vv error Extra: UNSUPPORTED")
Case Else
Log("vv error Extra else: " & Extra)
End Select
Return True 'Message Box suppressed, vv_complete does not execute
' Return False 'Message Box shows and vv_Complete executes
End Sub
Sub vv_Complete
Log("Playing complete")
End Sub