Sub Globals
Private mstrOcrWords As String
End Sub
Sub OcrPic(bmp as BitMap, Left as Int, Top As Int, Width As Int, Height as Int))
Dim mvbm As MobileVisionBitmap
mvbm.Initialize("mvbm")
mvbm.TargetWidth = bmp.Width
mvbm.TargetHeight = bmp.Height
mstrOcrWords = ""
Dim bmp1 As Bitmap = bmp.Crop(Left, Top, Width, Height)
mvbm.decodeBitmap(bmp1) 'triggers mvbm_blocks_result() & mvbm_words_result()
End Sub
Sub mvbm_words_result(words As String)
' Words are comma delimited
mstrOcrWords = words
End Sub