Bonjour , je cherche à enviyer des commandes et de recevoir des reponse depuis un modem , j'arrive bien à lui envoyer des commande mais je n'arrive pas à lire les reponses , voici mon code , est ce quelqu'un a un eidée d'ou peut venir l'erreur :
bRes est un booléen bRes = sOuvre(2,2000,2000) SI bRes = Vrai ALORS sFixeParamètre(2,38400,0,8,0,Faux,Faux,Faux) nbr est un entier = -1 sMessageLu est un Buffer msg est une chaîne = "" i est un entier nbr = sEcrit(2,SAI_Saisie1+CRLF) BOUCLE SI sDansFileSortie(2) = 0 ALORS SORTIR FIN Multitâche(500) BOUCLE SI sDansFileEntrée(2) = 0 ALORS SORTIR FIN nbr = sDansFileEntrée(2) sMessageLu = sLit(2,nbr) t est un entier = Taille(sMessageLu) Pour i = 1 à t msg += Caract(Asc(sMessageLu[[i]])) FIN FIN LIB_Libellé1 = msg FIN
merci de votre aide |