Hello,
Is there a way to read text from a picture you have taken?
This is my try, but I don't know how to work on this further.
any help? :sign0163:
XverhelstX
Is there a way to read text from a picture you have taken?
B4X:
Sub Camera1_PictureTaken (Data() As Byte)
camera1.StartPreview
out = File.OpenOutput(File.DirRootExternal, "Example.jpg", False)
out.WriteBytes(data, 0, data.Length)
readLength = data.Length
readData = BConverter.CharsFromBytes(Data)
ToastMessageShow("Image saved: " & File.Combine(File.DirRootExternal, "Examplek.jpg"), True)
btnTakePicture.Enabled = True
End Sub
Sub btnTakePicture_Click
btnTakePicture.Enabled = False
camera1.TakePicture
End Sub
Sub btnReadPicture_Click
Dim Reader As TextReader
Reader.Initialize(File.OpenInput(File.DirRootExternal, "Example.jpg"))
Dim line As Int
line = Reader.Readall
Msgbox(line,"")
out.Close
End Sub
This is my try, but I don't know how to work on this further.
any help? :sign0163:
XverhelstX
Last edited: