Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
toast.Initialize(Root)
rp.CheckAndRequest(rp.PERMISSION_CAMERA)
Wait For B4XPage_PermissionResult (permission As String, Result As Boolean)
If Result Then
B4XPages.SetTitle(Me," ok Permessi")
Else
B4XPages.SetTitle(Me,"nessun permesso")
End If
StopCamera
B4XPages.SetTitle(Me, "-----")
#if B4A
CreateDetector (Array("CODE_128", "CODE_93", "QR_CODE"))
#Else if B4i
scanner.Initialize2("scanner", pnlPreview, Array(scanner.TYPE_93, scanner.TYPE_128, scanner.TYPE_QR))
Wait For Scanner_Ready (Success As Boolean)
If Success = False Then
btnStartStop.Enabled = False
toast.Show("Failed to initialize the scanner.")
End If
#end if
End Sub