pcsoft.fr.windevCopyright 2026, PC SOFT27 Jul 2020 16:26:40 Z24 Jul 2020 04:31:18 ZBonjour à tous. je dois attaquer un webservice avec la methode post. sauf que ce webservice est en json. J'ai ecris le code que voici [code:wl] sToken est chaîne="xxxxxxxxxxxxxxxxxxxxxx" cMyRequest is restRequest scheduleRequest is restRequest cMyRequest..URL = "https://api.letexto.com/v1/campaigns" cMyRequest..Entête["Authorization"] = "Bearer "+sToken cMyRequest..Méthode = httpPost cMyRequest..ContentType = "application/json" sParametres est une chaîne sParametres=[ { "step": null, "sender": "L.TECH", "name": "Ma CAMP", "campaignType": "SIMPLE", "recipientSource": "CUSTOM", "groupId": null, "filename": null, "saveAsModel": false, "destination": "NAT", "message": "message", "emailText": null, "recipients": [{ "phone": "22506077966" }], "sendAt": [], "dlrUrl": "", "responseUrl": "" paramvariable } ] cMyRequest..Contenu = ChaîneVersUTF8(sParametres) cMyResponse is restResponse = RESTEnvoie(cMyRequest) SI (cMyResponse..StatusCode)=200 ALORS Info("Erreur") SINON IF ErreurDétectée THEN Error(ErrorInfo(errComplet)) ELSE decodeResponse est Variant =JSONVersVariant( cMyResponse..Content) //(cMyResponse..StatusCode) == 200 check si le statut est 200 avant d'executer la seconde requete scheduleRequest..URL = "https://api.letexto.com/v1/campaigns/"+decodeResponse.id+"/schedules" scheduleRequest..Entête["Authorization"] = "Bearer"+sToken scheduleRequest..Méthode = httpPost scheduleRequest..ContentType = "application/json" scheduleRequest..Contenu = ChaîneVersUTF8(sParametres) scheduleResponse is restResponse = RESTEnvoie(scheduleRequest) Info(scheduleResponse.Contenu,decodeResponse.id) END FIN [/code] Ce code fonctionne à merveille. Mon problème est que je dois maintenant remplacer le contenu de la variable Sparametres par des variables qui seront fournies par l'utilisateur. Il s'agit des contenus: "sender": "L.TECH" ( L.TECH étant une variable identifiant l'expediteur du message) "message": "message" (message étant le contenu du message à envoyer") "recipients": [{ "phone": "22506077966" }], (22506077966 étant le numero du destinataire) Pour ce faire, j'ai ecris un nouveau code que voici [code:wl] paramvariable est Variant numtel est chaîne="22506077966" tabRecipient est un tableau[2] de chaînes tabRecipient[1]="phone:" tabRecipient[2]=numtel paramvariable.step=Null paramvariable.sender= "L.TECH" paramvariable.name= "Ma CAMP" paramvariable.campaignType= "SIMPLE" paramvariable.recipientSource= "CUSTOM" paramvariable.groupId=Null paramvariable.filename=Null paramvariable.saveAsModel=False paramvariable.destination= "NAT" paramvariable.message="test sms" paramvariable.emailText=Null paramvariable.recipients=tabRecipient[1]+tabRecipient[2] paramvariable.sendAt= [] paramvariable.dlrUrl= "" paramvariable.responseUrl= "" sToken est chaîne="xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" cMyRequest is restRequest scheduleRequest is restRequest cMyRequest..URL = "https://api.letexto.com/v1/campaigns" cMyRequest..Entête["Authorization"] = "Bearer "+sToken //a04ea35db9bcase387e8360c4498173" cMyRequest..Méthode = httpPost cMyRequest..ContentType = "application/json" cMyRequest..Contenu = ChaîneVersUTF8(paramvariable)//sParametres) cMyResponse is restResponse = RESTEnvoie(cMyRequest) Info(cMyResponse.Contenu) SI (cMyResponse..StatusCode) = 200 ALORS Info("Erreur") SINON IF ErreurDétectée THEN Error(ErrorInfo(errComplet)) ELSE decodeResponse est Variant =JSONVersVariant( cMyResponse..Content) scheduleRequest..URL = "https://api.letexto.com/v1/campaigns/"+decodeResponse.id+"/schedules" scheduleRequest..Entête["Authorization"] = "Bearer"+sToken scheduleRequest..Méthode = httpPost scheduleRequest..ContentType = "application/json" scheduleRequest..Contenu = ChaîneVersUTF8(paramvariable) scheduleResponse is restResponse = RESTEnvoie(scheduleRequest) Info(scheduleResponse.Contenu,decodeResponse.id) END FIN [/code] et je but sur ce message https://hostimage.windev.io/images/Capture12_f1a339d31bdf97e5e230b1a133ec380b.PNG A vrai dire, je ne maîtrise pas grand chose sur le json. Une aide me rendrais énormément service car cela fait maintenant une semaine que je plante Merci beaucoup30WEBDEVfr_FRhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/241369-inserer-variable-dans-tableau-json/read.awpmoderateur@pcsoft.fr (El moderador)webmaster@pcsoft.fr (El webmaster)Rudy NYEMBOpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/241369-inserer-variable-dans-tableau-json-241458/read.awp27 Jul 2020 16:26:40 ZEssaie ceci : STrecipients est une structure 'phone' est une chaîne FIN STJSON est une structure step est une chaîn…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/241369-inserer-variable-dans-tableau-json-241458/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/241369-inserer-variable-dans-tableau-json-241458/read.awpinserer une variable dans un tableau jsonNdrjpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/241369-inserer-variable-dans-tableau-json-241414/read.awp25 Jul 2020 12:40:38 ZBonjour, et comme ca ? [code:wl] paramvariable est Variant tabRecipient est un variant tabRecipient.phone = "2250607796…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/241369-inserer-variable-dans-tableau-json-241414/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/241369-inserer-variable-dans-tableau-json-241414/read.awpinserer une variable dans un tableau jsonlighttechnologiepcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/241369-inserer-variable-dans-tableau-json-241406/read.awp25 Jul 2020 07:07:37 ZMerci Jordan pour ta réponse. j'ai remplacé ces deux lignes comme tu me l'a demandé. Mais je reçois le message comme le montre…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/241369-inserer-variable-dans-tableau-json-241406/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/241369-inserer-variable-dans-tableau-json-241406/read.awpinserer une variable dans un tableau jsonNdrjpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/241369-inserer-variable-dans-tableau-json-241370/read.awp24 Jul 2020 07:45:12 ZBonjour, Remplace ta ligne [code:wl] cMyRequest..Contenu = ChaîneVersUTF8(paramvariable) scheduleRequest..Contenu = Chaîn…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/241369-inserer-variable-dans-tableau-json-241370/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/241369-inserer-variable-dans-tableau-json-241370/read.awpinserer une variable dans un tableau json