WD TEXTE vers PDU pour envoyer SMS

[windev]
//On teste le modem

sEcrit(NumPort, "AT" + Caract(1)
//On laisse au moden le temps de répondre
Temporisation(500)
nNbreOctet = sDansFileEntrée(NumPort)

sMess = sLit(NumPort, nNbreOctet)
//Si la réponse (qui est en fonction du modem) est différente Entrée_OK_Entrée...
SI Contient(Majuscule(sMess), "AT"+Caract(1+ "OK") = Vrai ALORS
Info("Communication avec le terminal impossible !" + RC + " Réseau mauvais ou revérifiez les branchements du modem et sa configuration !")
sFerme(NumPort)
SINON

SI Taille(SAI_Tel) = 0 ALORS
Info("Numéro de Téléphone érronné ! Vérifier le SVP !")
sFerme(NumPort)
SINON
Temporisation(100)
//Pour les commandes AT chercher la syntaxe sur le net
sEcrit ( NumPort , "AT" )
sEcrit ( NumPort , "AT+CMGF=1"+ Caract(1 ) //"AT+CMGF=?
sEcrit ( NumPort , "AT+CSCA=""+243996100416"""+ Caract(1 ) //"AT+CMGF=?
sEcrit ( NumPort , "AT+CMGS="+ SAI_Tel + Caract(10)+Caract(1 ) //"AT+CMGF=?


Temporisation(100)
nNbreOctet = sDansFileEntrée(NumPort)
sMess = sLit(NumPort, nNbreOctet)
SI Majuscule(sMess) <> Caract(1 + Caract(10) + "OK" ALORS
Erreur(Majuscule(sMess) +"<>" +Caract(1 + Caract(10) + "> ")
Info("Mauvaise initialisation du Modem !")
sFerme(NumPort)
SINON
Temporisation(100)
sEcrit(NumPort, ChaîneVersUTF8(SAI_message+ Caract(26)))

Info("Message envoyer avec succès !")
FIN
FIN
FIN
//On ferme le port
sFerme(NumPort)
SINON
Erreur("Erreur d'ouverture du COM"+NumPort+" :"+ ErreurInfo(errComplet))
FIN
[/windev]