Android Example Google Vision/Play Services OCR example

1. Take Erel's QR/Barcode-Reader example: QR
2. Change/add the following:

In the manifest change the last line to "android:value="barcode,,ocr,,face""

'************ Google Play Services Base ************
AddApplicationText(
   <activity android:name="com.google.android.gms.common.api.GoogleApiActivity"
  android:theme="@android:style/Theme.Translucent.NoTitleBar"
  android:exported="false"/>
    <meta-data
  android:name="com.google.android.gms.version"
  android:value="@integer/google_play_services_version" />
)
'************ Google Play Services Base (end) ************
AddApplicationText(<meta-data
    android:name="com.google.android.gms.vision.DEPENDENCIES"
    android:value="barcode,,ocr,,face" />
)

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("1")
    If FirstTime Then
        CreateTextDetector
    End If
    cvs.Initialize(pnlDrawing)
End Sub

Private Sub CreateTextDetector
    Dim ctxt As JavaObject
    ctxt.InitializeContext
    Dim builder As JavaObject
    builder.InitializeNewInstance("com.google.android.gms.vision.text/TextRecognizer.Builder".Replace("/", "."), Array(ctxt))
    Dim TextRecognizerClass As String = "com.google.android.gms.vision.text.TextRecognizer".Replace("/", ".")
    Dim TextRecognizerStatic As JavaObject
    TextRecognizerStatic.InitializeStatic(TextRecognizerClass)
    textdetector = builder.RunMethod("build", Null)
    Dim operational As Boolean = textdetector.RunMethod("isOperational", Null)
    Log("Is detector operational: " & operational)
End Sub

Sub Camera1_Preview (data() As Byte)
    
    If DateTime.Now > LastPreview + IntervalBetweenPreviewsMs Then
        'Dim n As Long = DateTime.Now
        cvs.ClearRect(cvs.TargetRect)
        Dim frameBuildertext As JavaObject
        frameBuildertext.InitializeNewInstance("com/google/android/gms/vision/Frame.Builder".Replace("/", "."), Null)
        Dim cs As CameraSize = camEx.GetPreviewSize
                
        Dim bbtext As JavaObject
        bbtext = bbtext.InitializeStatic("java.nio.ByteBuffer").RunMethod("wrap", Array(data))
        frameBuildertext.RunMethod("setImageData", Array(bbtext, cs.Width, cs.Height,  17))
                
        Dim frametext As JavaObject = frameBuildertext.RunMethod("build", Null)
        
        Dim SparseArrayText As JavaObject = textdetector.RunMethod("detect", Array(frametext))
        LastPreview = DateTime.Now
        
        Dim MatchesText As Int = SparseArrayText.RunMethod("size", Null)
        For i = 0 To MatchesText - 1
            Dim TextBlock As JavaObject = SparseArrayText.RunMethod("valueAt", Array(i))
            Log(TextBlock.RunMethod("getValue", Null))
        Next
        Log("...")
    End If
    
End Sub

Scan-results (better if charset is not too big, I scanned the B4A forum's page (numbers are from the B4A window next to the browser window):

381
282
103
Android Question Inserting anchors in a layout in Tabstrips
Makumbi Today at 628 AM
184
e5
06
207
Android Question Split string - wierd behaviour (at least for me)
108
mmanso Today at 8:19 AM
109
Android Question FirebaseAuth - Error No Network Connection
Robert Valentino- Yesterday at 4:35 PM
130
111
112
G Android Questieb java.lang.StringindexoutofBounds Exception: length=0; index=1
giagia-44 minutes ago
113
114
115
Android Question Geocoder crashed B4A app [solved]
sChef Yesterday at 3:25 AM
Debug
Tipp: Ander
Android Question Don't understand the event flow of a widget

 

[Erel]

For new projects, it is better to base this solution over the B4XPages example: [B4X] [B4XPages] Barcode Reader

 

[John Isaac F. Castillo]

1. Take Erel's QR/Barcode-Reader example: QR
2. Change/add the following:

In the manifest change the last line to "android:value="barcode,,ocr,,face""

'************ Google Play Services Base ************
AddApplicationText(
   <activity android:name="com.google.android.gms.common.api.GoogleApiActivity"
  android:theme="@android:style/Theme.Translucent.NoTitleBar"
  android:exported="false"/>
    <meta-data
  android:name="com.google.android.gms.version"
  android:value="@integer/google_play_services_version" />
)
'************ Google Play Services Base (end) ************
AddApplicationText(<meta-data
    android:name="com.google.android.gms.vision.DEPENDENCIES"
    android:value="barcode,,ocr,,face" />
)

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("1")
    If FirstTime Then
        CreateTextDetector
    End If
    cvs.Initialize(pnlDrawing)
End Sub

Private Sub CreateTextDetector
    Dim ctxt As JavaObject
    ctxt.InitializeContext
    Dim builder As JavaObject
    builder.InitializeNewInstance("com.google.android.gms.vision.text/TextRecognizer.Builder".Replace("/", "."), Array(ctxt))
    Dim TextRecognizerClass As String = "com.google.android.gms.vision.text.TextRecognizer".Replace("/", ".")
    Dim TextRecognizerStatic As JavaObject
    TextRecognizerStatic.InitializeStatic(TextRecognizerClass)
    textdetector = builder.RunMethod("build", Null)
    Dim operational As Boolean = textdetector.RunMethod("isOperational", Null)
    Log("Is detector operational: " & operational)
End Sub

Sub Camera1_Preview (data() As Byte)
   
    If DateTime.Now > LastPreview + IntervalBetweenPreviewsMs Then
        'Dim n As Long = DateTime.Now
        cvs.ClearRect(cvs.TargetRect)
        Dim frameBuildertext As JavaObject
        frameBuildertext.InitializeNewInstance("com/google/android/gms/vision/Frame.Builder".Replace("/", "."), Null)
        Dim cs As CameraSize = camEx.GetPreviewSize
               
        Dim bbtext As JavaObject
        bbtext = bbtext.InitializeStatic("java.nio.ByteBuffer").RunMethod("wrap", Array(data))
        frameBuildertext.RunMethod("setImageData", Array(bbtext, cs.Width, cs.Height,  17))
               
        Dim frametext As JavaObject = frameBuildertext.RunMethod("build", Null)
       
        Dim SparseArrayText As JavaObject = textdetector.RunMethod("detect", Array(frametext))
        LastPreview = DateTime.Now
       
        Dim MatchesText As Int = SparseArrayText.RunMethod("size", Null)
        For i = 0 To MatchesText - 1
            Dim TextBlock As JavaObject = SparseArrayText.RunMethod("valueAt", Array(i))
            Log(TextBlock.RunMethod("getValue", Null))
        Next
        Log("...")
    End If
   
End Sub

Scan-results (better if charset is not too big, I scanned the B4A forum's page (numbers are from the B4A window next to the browser window):

Hi KMatle, how do you declare textdetector in your project?