Bonjour,
Pour apprendre la création et la lecture d'un QR Code, j'ai créé un projet tout simple sous Windev Mobile, Androit
J'ai un bouton qui créé et affiche le QR Code
MonQrCode.TypeCodeBarres = CB_QRCODE
MonQrCode.TypeContenu = cbTypeTexte
MonQrCode.Contenu = "Somone/Sénégal"
CBA_CodeBarre = MonQrCode
Info("Création QrCode "+MonQrCode.Contenu)
Dans "Info", j'ai bien Somone/Sénégal
J'ai fait une copie écran pour avoir une image jpg du QR Code généré
Je lis ensuite ce QR Code dans un champ Caméra
Procedure DécodeCodeBarre(cb est un CodeBarres)
sContenu est une chaîne UNICODE
sContenu = UTF8VersChaîne(cb.Contenu, alphabetAnsi)
Info("UTF8VersChaîne(cb.Contenu, alphabetAnsi) "+sContenu) /// Sngal
sContenu = ChaîneVersUTF8(cb.Contenu,alphabetDéfaut) // -************** S n gal
Info(" ChaîneVersUTF8(cb.Contenu,alphabetAnsi) "+sContenu)
sContenu = UnicodeVersAnsi(cb.Contenu,alphabetAnsi)
Info(" UnicodeVersAnsi(cb.Contenu,alphabetAnsi) "+sContenu) // rien
sContenu = AnsiVersUnicode(cb.Contenu,alphabetAnsi)
Info(" AnsiVersUnicode(cb.Contenu,alphabetAnsi) "+sContenu) // ******************** sContenu = ChaîneVersUTF8(cb.Contenu,alphabetD
sContenu = UTF8VersAnsi(cb.Contenu) // ******************** sContenu = ChaîneVersUTF8(cb.Contenu,alphabetDéfaut) // -************** S n gal
Info("UTF8VersAnsi(cb.Contenu)UTF8VersChaîne(cb.Contenu, alphabetAnsi) "+sContenu)
bufContenu est un Buffer
bufContenu = UTF8VersChaîne(cb.Contenu, alphabetAnsi)
Info("UTF8VersChaîne(cb.Contenu, alphabetAnsi) "+bufContenu) /// Sngal
bufContenu = ChaîneVersUTF8(cb.Contenu,alphabetDéfaut) // -************** S n gal
Info(" ChaîneVersUTF8(cb.Contenu,alphabetAnsi) "+bufContenu)
bufContenu = UnicodeVersAnsi(cb.Contenu,alphabetAnsi)
Info(" UnicodeVersAnsi(cb.Contenu,alphabetAnsi) "+bufContenu) // rien
bufContenu = AnsiVersUnicode(cb.Contenu,alphabetAnsi)
Info(" AnsiVersUnicode(cb.Contenu,alphabetAnsi) "+bufContenu) // ******************** bufContenu = ChaîneVersUTF8(cb.Contenu,alphabetD
bufContenu = UTF8VersAnsi(cb.Contenu) // ******************** bufContenu = ChaîneVersUTF8(cb.Contenu,alphabetDéfaut) // -************** S n gal
Info("UTF8VersAnsi(cb.Contenu)UTF8VersChaîne(cb.Contenu, alphabetAnsi) "+bufContenu)
CaméraArrêteDécodage(CAM_QrCode)
Je n'arrive pas à récupérer correctement Sénégal ....
J'ai passé le projet en ANSI, recompilé, testé, passé le projet en UNICODE, idem ...
J'ai essayé une chaine ANSI puis une chaine UNICODE ... Pareil
Comment faire pour "récupérer" correctement les caractères accentués !!!!
Merci de votre aide
Cordialement SC
--
Cordialement
SC
https://thevernt.com/retro-bowl-unblocked-77/