#Region Project Attributes
#ApplicationLabel: B4A Example
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
End Sub
Sub Globals
Dim txtrecognizer As TextRecognizer
Dim barcode As BarcodeDetector
Dim face As FaceDetector
Private lblResult As Label
Private btntxtrecognizer As Button
Private btnfacedetect As Button
Private btnScanBarcode As Button
Public Provider As FileProvider
End Sub
Sub Activity_Create(FirstTime As Boolean)
Provider.Initialize
Activity.LoadLayout("Layout1")
txtrecognizer.Initialize("TxtRecognizer")
barcode.Initialize("Barcode")
face.Initialize("Face")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub lblResult_Click
End Sub
Sub btntxtrecognizer_Click
Log("Start Recognize... Recognizer ready = "&txtrecognizer.isOperational)
If txtrecognizer.isOperational Then
txtrecognizer.takePicture
End If
End Sub
Sub TxtRecognizer_onOCRScanResult(success As Boolean, result As String)
Log($"TxtRecognizer_onScanResults(${success},${result})"$)
End Sub
Sub Face_onFaceDetectResult(success As Boolean, result As String)
Log($"Face_onFaceDetectResult(${success},${result})"$)
End Sub
Sub Barcode_onBarcodeResult(success As Boolean, info As String, result As List)
Log($"Barcode_onBarcodeResult(${success}, ${info}, ${result})"$)
End Sub
Sub btnfacedetect_Click
If face.isOperational Then
face.takePicture
End If
End Sub
Sub btnScanBarcode_Click
If barcode.isOperational Then
barcode.takePicture
End If
End Sub
