1 pièce(s) jointe(s)
retour d'un Webservice REST
Bonjour,
J'ai réalisé un Webservice REST que j'ai mis chez KALANDA
Quand je l’interroge via un projet Windev 25 sur mon PC, pas de problème
Quand je fait cette même interrogation sur un projet Windev Mobile 25, ANDROID, la réponse est illisible
Que l’exécution se fasse à partir de l'émulateur ou de l'installation sur le téléphone
Voila la réponse
Pièce jointe 578575
Voici le code d'appel (Identique en Windev et Windev Mobile
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
hRequete est httpRequest
hRequete..Method = httpGet
hRequete..URL = "http://www.asorco.fr/WS_Traitement_Asorco?WS_Traitement_Asorco=" + SAI_NomSociete
rReponse est un httpRéponse = HTTPEnvoie(hRequete)
sToto est une chaîne=BufferVersHexa(rReponse..Contenu)
Info("Avec httpRequest",rReponse..Contenu)
SI ErreurDétectée ALORS
Erreur("Erreur lors de la requête "+ErreurInfo(errComplet))
SINON
////// info(rReponse..StatusCode,rReponse..DescriptionCodeEtat,rReponse)
SI rReponse..StatusCode<>200 ALORS
Erreur("Erreur lors de la requête "+ErreurInfo(errComplet),rReponse..DescriptionCodeEtat)
//// Info ("Trouvée "+rReponse ..Content)
SINON
//// Info ("Société non trouvée" , rReponse..Content," ","Code état "+rReponse..CodeEtat,"Erreur "+rReponse..DescriptionCodeEtat)
SELON rReponse.Contenu
// 0=Origine, 909=Société Non trouvée, 9090=Paramètre "WebserviceParamètre("NomSoc")" reçut est vide
CAS "909"
Erreur("Société non retrouvée" +SAI_NomSociete)
AUTRE CAS
Info("Trouvé Code société = "+rReponse..Contenu)
FIN
FIN
FIN |
Voila le code du Webservice
Code:
1
2
3
4
5
6
|
gsEnvoi est une chaîne // SocLit,nom de la société pour une lecture de société
// SocEcr,nom de la société pour une création de société
gtabTableEnvoi est un tableau de chaînes
gsReponse est une chaîne
gsTraitement, gsCode, gsComplement est une chaîne ANSI |
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
PROCÉDURE Webservice_Asorco()
// Utilisez la commande WebserviceParamètre() pour récupérer les paramètres du point d'entrée du Webservice REST associé à cette procédure.
// Consultez l'aide de WebserviceParamètre pour plus d'informations.
gsEnvoi = WebserviceParamètre("WS_Traitement_Asorco")
gbOK=HPasse("*","Asorco$68100")
SI gbOK=Faux ALORS
gsReponse= "Erreur dans la définition du mot de passe des fichiers"
FIN
SI WebserviceParamètre("WS_Traitement_Asorco")="" ALORS
gsReponse= "Vous n'avez rien transmis"
SINON
gtabTableEnvoi=ChaîneDécoupe(gsEnvoi,",")
SI gtabTableEnvoi.Occurrence()<>2 ALORS
gsReponse="Le traitement demandé dot être constitué du code de la demande et du complément, séparé par , (une virgule) "+RC+gsEnvoi
SINON
gsCode=gtabTableEnvoi[1]
gsComplement=gtabTableEnvoi[2]
SELON gsCode
CAS "SocLit" // Recherche de la société
SocieteLit()
RENVOYER gsReponse
CAS "SocEcr" // Enregistrement d'une société
RENVOYER gsReponse
AUTRE CAS
gsReponse="Le traitement demandé n'est pas prévu !"+RC+gsEnvoi
FIN
FIN
FIN
RENVOYER gsReponse |
Pourquoi cette anomalie ?
Comment corriger ? Traduire la réponse ? Si oui, comment ?
Cordialement
SC
