B4A Library LandscapeVideoCamera

A wrap for this Github project. Please note that I am using @corwin42 AppCompat V2.00 library files. It is enabled in the libs tab of the B4A IDE.

Posting the following:

1. Link to the B4A project - https://www.dropbox.com/s/2f8tobndellr36l/b4aLandscapeVideoCamera.zip?dl=0
2. B4A library files
3. The Java code (src folder). You need to create a libs folder on the same folder level as the src folder and copy android-support-v4.jar into the libs folder if you want to compile the java code.

The recorded videos will be stored in /Movies folder of your device.

Sample code:

#Region  Project Attributes
    #ApplicationLabel: LandscapeVideoCamera
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#AdditionalRes: ..\resource
#AdditionalRes: ..\LandscapeVCLibRes
#AdditionalRes: ..\LandscapeVCDemoRes

'IMPORTANT!!!! YOU NEED TO SET THIS PATH CORRECTLY FOR YOUR OWN COMPUTER!!!!!!!!!!!!!!!!!!
'THE BELOW PATH IS THE PATH FOR MY COMPUTER
#AdditionalRes: C:\ANDRIOD_SDK_TOOLS\extras\android\support\v7\appcompat\res, android.support.v7.appcompat
'#AdditionalRes: C:\ANDRIOD_SDK_TOOLS\extras\android\support\design\res, android.support.design
'#Extends: android.support.v7.app.AppCompatActivity

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
   
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

    Private Button1 As Button
    Private Label1 As Label
    Dim lsvc As LandscapeVideoCamera
   
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
   
    Activity.LoadLayout("main")
    lsvc.Initialize("lsvc")
    Label1.Visible = True
    Label1.Text = "Wrapped by Johan Schoeman"
   
End Sub

Sub Activity_Resume
   
   
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
   
  lsvc.StartVideoCamera
 
End Sub