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 |