SMS Aggiungete le nostre richieste API al vostro ambiente Windev

/**
* Function parameters:
*
* - accessToken (required)
* - message (required)
* - destinataires (required): Receivers separated by a comma
* - emetteur (optional): Allows to deal with the sms sender
* - optionStop (optional): Deal with the STOP sms when marketing send (cf. API HTTP documentation)
* - batchFilePath (required for batch mode): The path of CSV file for sms in Batch Mode
*/

ExempleClientHttpApi est une Classe

 URL est une chaîne = "https://api.smsmode.com/http/1.6/"
 PATH_SEND_SMS est une chaîne = "sendSMS.do"
 PATH_SEND_SMS_BATCH est une chaîne = "sendSMSBatch.do"
FIN

PROCÉDURE Constructeur()

PROCÉDURE Destructeur()


PROCÉDURE sendSmsGet(accessToken est un chaîne, message est une chaîne, destinataires est une chaîne, emetteur est une chaîne, optionStop est une chaîne)

getField est une chaîne
getField = "?accessToken=" + accessToken + "&message=" + message + "&numero=" + destinataires + "&emetteur=" + emetteur + "&stop=" + optionStop

SI HTTPRequête(URL + PATH_SEND_SMS + getField) = Vrai ALORS
 RENVOYER HTMLVersTexte(HTTPDonneRésultat(httpRésultat))
SINON
 RENVOYER ErreurInfo()
FIN


PROCÉDURE sendSmsPost(accessToken est un chaîne, message est une chaîne, destinataires est une chaîne, emetteur est une chaîne, optionStop est une chaîne)

postField est une chaîne
postField = "accessToken=" + accessToken + "&message=" + message + "&numero=" + destinataires + "&emetteur=" + emetteur + "&stop=" + optionStop

SI HTTPRequête(URL + PATH_SEND_SMS, "", "", postField) = Vrai ALORS
 RENVOYER HTMLVersTexte(HTTPDonneRésultat(httpRésultat))
SINON
 RENVOYER (ErreurInfo())
FIN


PROCÉDURE sendSmsBatch(accessToken est une chaîne, batchFilePath est un chaîne, optionStop est une chaîne)

fdFile est un entier
fdFile = fOuvre(batchFilePath)
SI fdFile = -1 ALORS
 RENVOYER ("The specified file does not exist")
FIN
contentFile est une chaîne
contentFile = fLit(fdFile,fTaille(batchFilePath))
fFerme(fdFile)

boundary est une chaîne = "---------------------------7d52afd100580"
header est une chaîne = "multipart/form-data; boundary=" + boundary

postField est une chaîne
postField = "--" + boundary + RC +
"Content-Disposition: form-data; name=""datafile""; filename=" + batchFilePath + "" + RC + RC +
contentFile +
RC + "--" + boundary + "--"

SI HTTPRequête(URL + PATH_SEND_SMS_BATCH + "?accessToken=" + accessToken +"&stop=" + optionStop, "", "", postField, header) = Vrai ALORS
 RENVOYER HTMLVersTexte(HTTPDonneRésultat(httpRésultat))
SINON
 RENVOYER (ErreurInfo())
FIN