I have just downloaded B4A V6.80 and it works without any problems.
Try with the attached library files (V1.03). Have added the following options as far as focus is concerned:
'Use one of the following:
' FOCUS_MODE_CONTINUOUS_PICTURE
' FOCUS_MODE_CONTINUOUS_VIDEO
' FOCUS_MODE_AUTO
' FOCUS_MODE_EDOF
' FOCUS_MODE_FIXED
' FOCUS_MODE_INFINITY
' FOCUS_MODE_MACRO
avocr.FocusMode = avocr.FOCUS_MODE_MACRO#Region Project Attributes
#ApplicationLabel: b4aAndroidVisionOCR
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False
#End Region
#AdditionalRes: ..\resource
#AdditionalRes: ..\OCRres
'#AdditionalRes: C:\Users\----------2\Documents\Basic 4 Android\JOHAN APPS\JHS LIBS\resource\b4a_appcompat, de.amberhome.objects.appcompat
'#AdditionalRes: C:\ANDRIOD_SDK_TOOLS\extras\android\support\v7\appcompat\res, android.support.v7.appcompat
'#AdditionalRes: C:\ANDRIOD_SDK_TOOLS\extras\google\google-play-services\libproject\google-play-services_lib\res, com.google.android.gms
'#AdditionalRes: C:\ANDRIOD_SDK_TOOLS\extras\android\support\design\res, android.support.design
'#ExcludeClasses: .games, .drive, .ads, .fitness, .wearable, .measurement, .cast, .auth, .nearby
'#ExcludeClasses: .tagmanager, .analytics, .wallet, .plus, .gcm, .maps, .panorama
'#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
Dim avocr As AndroidVisionOCR
Private CheckBox1 As CheckBox
Private CheckBox2 As CheckBox
Private Label1 As Label
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")
avocr.Initialize("avocr")
avocr.OCRtextColor = Colors.Yellow 'the color of the text while OCR takes place
avocr.OCRtextSize = 30.0 'the size of the text while OCR take place
avocr.OCRrectangleColor = Colors.Green
avocr.OCRrectangleWidth = 2.0
avocr.OCRInfoMessage = "Toccare per acquisire. Pizzica/Stretch per lo zoom" 'used https://www.freetranslation.com/en/translate-english-italian for translation
'Use one of the following:
' FOCUS_MODE_CONTINUOUS_PICTURE
' FOCUS_MODE_CONTINUOUS_VIDEO
' FOCUS_MODE_AUTO
' FOCUS_MODE_EDOF
' FOCUS_MODE_FIXED
' FOCUS_MODE_INFINITY
' FOCUS_MODE_MACRO
avocr.FocusMode = avocr.FOCUS_MODE_MACRO
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button1_Click
If CheckBox1.Checked = True Then
avocr.UseFlash = True
Else
avocr.UseFlash = False
End If
If CheckBox2.Checked = True Then
avocr.UseAutoFocus = True
Else
avocr.UseAutoFocus = False
End If
avocr.StartOCRReader
End Sub
Sub avocr_scanned_text(scannedText As String)
Log("Scanned text = " & scannedText)
Label1.Text = " " & scannedText
End SubPublic Sub GetSupportedFocusModes As List
r.target = parameters
Return r.RunMethod("getSupportedFocusModes")
End Sub
Public Sub SetContinuousAutoFocus
Dim modes As List = GetSupportedFocusModes
If modes.IndexOf("continuous-picture") > -1 Then
SetFocusMode("continuous-picture")
Else If modes.IndexOf("continuous-video") > -1 Then
SetFocusMode("continuous-video")
End If
End Sub
Public Sub SetFocusMode(Mode As String)
r.target = parameters
r.RunMethod2("setFocusMode", Mode, "java.lang.String")
End Sub
Public Sub GetFocusDistances As Float()
Dim F(3) As Float
r.target = parameters
r.RunMethod4("getFocusDistances", Array As Object(F), Array As String("[F"))
Return F
End Sub
Public Sub GetSupportedPictureFormats As List
r.target = parameters
Return r.RunMethod("getSupportedPictureFormats")
End Sub camEx.SetJpegQuality(100)
camEx.SetContinuousAutoFocus
camEx.CommitParameters
camEx.StartPreview
hi @Johan Schoeman ,
Hi Leni
No need to create an account or to get an API key. It just requires an initial Internet connection as it will download some dependencies. Once downloaded it will function without being connected to the Internet.
Have never tried Google Cloud Vision - so can unfortunately not comment on that....
#AdditionalRes must be used in a ActivityCode of the Main Activity.
How to set #AdditionalRes into a sub activity?
You can use them from everywhere. But it must be included in MAIN
Patrick, is this not perhaps what you are looking for....?