Sub Process_Globals
Dim Timer1 As Timer
Dim videoRecorder As VideoRecordApp
End Sub
Sub Globals
Dim vv As VideoView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Timer1.Initialize("Timer1", 25000) ' = 25 seconds ' default appears to be 30
Timer1.Enabled = True
If FirstTime Then
videoRecorder.Initialize("videoRecorder")
End If
vv.Initialize("vv")
Activity.AddView(vv, 0, 0, 100%x, 100%y)
Activity.AddMenuItem("Record Video", "RecordVideo")
End Sub
Sub Timer1_Tick
RecordVideo_Click
End Sub
Sub RecordVideo_Click
videoRecorder.Record(File.DirRootExternal, "movie.mp4")
End Sub
Sub videoRecorder_RecordComplete (Success As Boolean)
Log(Success)
If Success Then
vv.LoadVideo(File.DirRootExternal, "movie.mp4")
vv.Play
End If
End Sub
Sub Activity_Resume
Timer1_Tick
End Sub
Sub Activity_Pause (UserClosed As Boolean)
Timer1.enabled = False
End Sub