PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

Home | Recent messages | Connect |  | English US
Home → WINDEV (earlier versions) → WD20 Erreur RestEnvoie / RestReponse
WD20 Erreur RestEnvoie / RestReponse
Started by bemous, Apr., 05 2019 9:01 PM - 3 replies
#1
Posted on April, 05 2019 - 9:01 PM
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
Posted on April, 08 2019 - 1:27 PM
Toujours pas de réponses?
#3
Posted on April, 19 2019 - 2:30 PM
besoins d'aide personne n'a de réponses?
#4
Posted on May, 17 2019 - 1:37 PM
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.
→ Go back to WINDEV (earlier versions)