SMS Añada nuestras solicitudes API a su entorno 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