PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV (précédentes versions) → WD20 Erreur RestEnvoie / RestReponse
WD20 Erreur RestEnvoie / RestReponse
Débuté par bemous, 05 avr. 2019 21:01 - 3 réponses
#1
Posté le 05 avril 2019 - 21:01
Bonjour à tous,
j'ai un problème avec l'envoie d'un enregistrement en JSON par webservice. Le fournisseur m'a donnée un token d'authentification. Un code vaut mieux que mille mots:

Procedure EnvoieClientAuServeurEnLigne(UnClient)

bufNewClient est une Buffer
vAlClient est un Variant
wsRequête est une restRequête
mReponse est une restRéponse

valClient.Raison_Soc=UnClient
bufNewClient=VariantVersJSON(vAlClient)

wsRequête.URL="...../api/clients"
wsRequête.Méthode=httpPost
wsRequête.ContentType="application/json"
wsRequête.Entête["AuthToken"]=api_token
wsRequête.Contenu= bufNewClient

mReponse=RESTEnvoie(wsRequête)
SI ErreurDétectée ALORS
Erreur(ErreurInfo(errComplet))
SINON
Info(mReponse.Contenu)
FIN

Une fois exécuté j'ai alors en retour:
<!DOCTYPE html>
<html>
<head>
<meta charset="UTF-8" />
<meta http-equiv="refresh" content="0;url=urlFournisseur:8010/login" />
<title>Redirecting to urlFournisseur/login</title>
</head>
<body>
Redirecting to <a href="urlFournisseur/login">urlFournisseur:8010/login</a>.
</body>
</html>


Je veux bien comprendre

Merci d'avance
#2
Posté le 08 avril 2019 - 13:27
Toujours pas de réponses?
#3
Posté le 19 avril 2019 - 14:30
besoins d'aide personne n'a de réponses?
#4
Posté le 17 mai 2019 - 13:37
Bonjour,

j'ai rencontré aussi le même genre de soucis est j'ai résolu cela en remplaçant les guillemets du contenu par une simple côte.

temp = VariantVersJSON(listObjects)
temp2 est une chaîne = Remplace(temp, Caract(34), Caract(39))
cRequete.Contenu = ChaîneVersUTF8(temp2)

J'espère que cela pourra vous débloquer.
→ Revenir à WINDEV (précédentes versions)