#Region Project Attributes
#ApplicationLabel: B4A Example
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: Portrait
#CanInstallToExternalStorage: True
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
Dim videoRecorder As VideoRecordApp
End Sub
Sub Globals
Dim vv As VideoView
Private RecordVideo1 As Button
Private Panel1 As Panel
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
If FirstTime Then
videoRecorder.Initialize("videoRecorder")
End If
vv.Initialize("vv")
Activity.AddView(vv, 0, 0, 100%x, 50%y)
End Sub
Sub RecordVideo1_Click
videoRecorder.Record2(File.DirInternal, "1.mp4", 60)
End Sub
Sub videoRecorder_RecordComplete (Success As Boolean)
Log("video = " & Success)
If Success Then
vv.LoadVideo(File.DirInternal, "1.mp4")
vv.Play
End If
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub