PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 2025 → Contacter API SMSenvoie.com -
Contacter API SMSenvoie.com -
Iniciado por rso, 06,jul. 2019 09:51 - 2 respuestas
Miembro registrado
1 mensaje
Publicado el 06,julio 2019 - 09:51
Bonjour,

Je cherche une âme charitable qui voudrait bien m'expliquer comment transcrire ce code en Wlanguage

///////////////////////////////////////////////////////////////
# Access token example
curl -XPOST 'https://api.smsenvoi.com/API/v1.0/REST/paramsms' -H 'Content-Type: application/json' \
-H 'user_key: USER_KEY' -H 'Access_token: ACCESS_TOKEN' -d'
{
"message_type": "MESSAGE_TYPE",
"message": "Hello ${name}, welcome to ${nation}",
"sender": "MySender",
"scheduled_delivery_time": "20161223101010",
"order_id": "123456789",
"returnCredits": true,
"allowInvalidRecipients": false,
"returnRemaining": true,
"recipients": {
"0": {
"recipient": "+393471234567",
"name": "Mark",
"nation": "Germany"
},
"1": {
"recipient": "+393477654321",
"name": "John",
"nation": "Alabama"
}
}
}
'
/////////////////////////////////////////////////////////////////////

J'ai essayé cela, mais j'ai toujours une erreur 400 :

sMonURLHTTP est une chaîne
sMonSMS est une chaîne

cMaRequête est un httpRequête

sMonURLHTTP = "https://api.smsenvoi.com/API/v1.0/REST/sms"

sMonSMS = [
{
"message_type": "PRM",
"message": "Hello world!",
"recipient": "+33678284640",
"sender": "MySender",
"scheduled_delivery_time": "20161223101010",
"order_id": "123456789",
"returnCredits": true
}
]

cMaRequête..Contenu = ChaîneVersUTF8(sMonSMS)
cMaRequête..URL = sMonURLHTTP
cMaRequête..Méthode = httpPost
cMaRequête.Entête["Content-Type"] = "application/json"
cMaRequête.Entête["user_key"] = "18758"
cMaRequête.Entête["Access_token"] = "993363NEMEDAA2KH49HM"

cMaRéponse est une httpRéponse = HTTPEnvoie(cMaRequête)

SI ErreurDétectée ALORS
SI ErreurInfo(errCode) = 401 ALORS

FIN
SINON

Info(cMaRéponse..Contenu)
FIN

/////////////////////////////////////////////////////////////////////

Par avance, merci.

Renald
Miembro registrado
33 mensajes
Publicado el 08,julio 2019 - 07:29
Bonjour,

Voici :

//Envoi
bRequêteEnvoi = HTTPRequête("http://www.smsenvoi.com/httpapi/sendsms/", "", "",...
URLEncode("email="+sEmailsmsenvoi+"&apikey="+sApikeysmsenvoi+"&message[type]=sms&message[subtype]="+sGammesms+"&message[senderlabel]="+sExpediteursms+"&message[recipients]="+sDestinatairesms+"&message[content]="+sMessagesms))

//Test du résultat de l'envoi
SI bRequêteEnvoi = Vrai ALORS
sResultat = HTTPDonneRésultat()
SINON
sResultat = "Erreur"
FIN

SI Position(sResultat, """success"":1")
Info("Succès de l'envoi du SMS au numéro ", sDestinatairesms)
RETOUR = Vrai
SINON
Erreur("Echec de l'envoi du SMS au numéro ", sDestinatairesms)
RETOUR = Faux
FIN

--
BàV
Romuald
Publicado el 16,octubre 2019 - 17:44
Bonjour
avez vous réussi car régler votre problème et a ne plus avoir l'erreur 400 ?
car j'ai le même problème .
en vous remerciant par avance
cordialement