lire Code barre windev ( Procédure )

Pour lire un code-barres à l'aide d'un appareil spécialisé :
Branchez un appareil spécialisé sur le port série de votre machine (selon l'appareil utilisé, vérifiez que le clavier n'est pas en majuscules, et / ou que l'appareil est configuré pour un clavier français).
Récupérez la valeur du code-barres lue grâce aux fonctions de gestion des ports série suivantes :

• sOuvre, qui permet d'ouvrir et d'initialiser le port série (ou le port parallèle) spécifié.
• sLit, qui lit une chaîne de caractères dans le buffer d'entrée du port série spécifié. (PCSOFT)

Procédure :

 // Cours windev  
 // www.courswindev.blogspot.com  
 PROCEDURE CodeRead(COM)  
 nPortSérie est un entier =COM   
 SI PAS sOuvre(nPortSérie, 13, 5000) ALORS   
      Erreur("Erreur d'ouvrire le port COM"+COM)  
      RETOUR  
 FIN  
 TANTQUE Vrai  
      Nb_len est un entier = 13   
      Resultat_Len est un entier   
      Resultat est une chaîne   
           Resultat_Len = sDansFileEntrée(nPortSérie)   
           SI Resultat_Len >= Nb_len ALORS  
                Resultat = sLit(nPortSérie,Resultat_Len)   
                Resultat=Replace(Resultat,Caract(13),"") // Caract(13)+Caract(10) = Retour Chariot  
               Resultat=Replace(Resultat,Caract(10),"")  
               // Traitement de la recherche dans la base de donne   
               // Exemple :   
               //           1 : HLitRecherche(Article,code,Resultat,hIdentique)  
               //           2 : select * from article where code='"+Resultat+"'  
           FIN  
 FIN      

l'appel de procedure

 ThreadExécute("hread_Code",threadNormal,"CodeRead",2) // 1 : Port série COM2