WM Champ Caméra pour lecture des codes Barres android

Bonsoir,
Dans le champ Caméra pour lire le code
il y a l'évènement décodage code barre
il avec le code

Code (Text):

PROCÉDURE DécodeCodeBarre(cb est un CodeBarres)
SAI_SansNom1=cb.ValeurBrute
 

COmment faire. SVp, je cherche un exemple qui marche. Je trouve CBacpture lourd pour Android.
Merci

 

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

H
you're actually on the right track.
Read the contents of the QR Code / Bar Code at the "decodage of a bar code" event.
All you have to do is display the result code.
There is nothing more.
windev decodes in string for you.
This is (for guide and example) my decode part:

[windev]
PROCÉDURE DécodeCodeBarre(_barCode est un CodeBarres)
i is int = 0
_ScanNumIscr,_ScanGUIDAss,_ScanNomin is string
_TerminalType is int

FOR ALL STRING _currentStr OF _barCode.Content SEPARATED BY ";"
i++
SWITCH i
CASE 1
_ScanGUIDAss = _currentStr
CASE 2
_ScanNumIscr = _currentStr
CASE 3
_ScanNomin = _currentStr
CASE 4
_TerminalType = _currentStr
END
END

<COMPILE SI TypeConfiguration=Android>
VibrationTrigger(1000)
<FIN>
<COMPILE SI TypeConfiguration=iOS>
VibrationTrigger()
<FIN>

_Obj_Scan.Nominativo = _ScanNomin
_Obj_Scan.NumIscriz = _ScanNumIscr
_Obj_Scan.GUIDAssociato = _ScanGUIDAss

IF _TerminalType > 0 THEN
_Obj_Scan.TerminalType = _TerminalType
INT_InviaNotifica = True
INT_InviaNotifica..State = Active
ELSE
INT_InviaNotifica = False
INT_InviaNotifica..State = Grayed
END

IF _TerminalType > 0 THEN
IF _TerminalType = 1 THEN
STR_Codice = "Associato: "+ _ScanNomin + CR + "N. Iscrizione: " + _ScanNumIscr+ CR +"Terminale Android"
ELSE IF _TerminalType = 2
STR_Codice = "Associato: "+ _ScanNomin + CR + "N. Iscrizione: " + _ScanNumIscr+ CR +"Terminale iOS"
END
ELSE IF _TerminalType <= 0 THEN
STR_Codice = "Associato: "+ _ScanNomin + CR + "N. Iscrizione: " + _ScanNumIscr+ CR +"WebScan/App v. 1"
END
[/windev]

Cliquez pour agrandir...