Recuperer des valeurs d'une httpRéponse

**SINTECH** · 12/03/2024, 16h50

Bonjour à Toutes et à Tous

j'utilise une API dans mon application web et tout marche bien.
Lorsque j'exécute ma requête suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
ASACI_Reponse,ASACI_ReponseInfos sont des JSON
ReponseAttendue est un httpRéponse	= HTTPEnvoie(Demande_Attestation)
SI ErreurDétectée ALORS
	Error(ErrorInfo(errComplet))
SINON
	ASACI_Reponse = ReponseAttendue..Contenu
	ASACI_ReponseInfos = ASACI_Reponse
FIN

voici la réponse (au format JSON) que j'obtiens dans un champ libellé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
{
    "statut": "0",
    "numero_demande": 482320240312154416,
    "infos": [
        {
            "numero_attestation": "ATD-9230278052",
            "numero_immatriculation": "YUFGVVGFHHJBVGHJF454",
            "numero_chassis": "NA",
            "date_effet": "2024-03-12",
            "date_echeance": "2024-04-11",
            "lien_pdf": "http://asacitest.ldfgroupe.com:8080/asaciMetier/#/consulter_attestations?numero=ATD-9230278052&demandeur=3278999487316&type=1",
            "lien_image": "http://asacitest.ldfgroupe.com:8080/asaciMetier/#/consulter_attestations?numero=ATD-9230278052&demandeur=3278999487316&type=2",
            "lien_qrcode": "http://asacitest.ldfgroupe.com:8080/asaciMetier/#/consulter_attestations?numero=ATD-9230278052&demandeur=3278999487316&type=3"
        }
    ]
}

Mon problème est le suivant:
j'aimerais récupérer la valeur de "numero_attestation" et celle de "lien_pdf" mais je n'arrive pas car ils sont situés dans le second membre de la réponse c'est-à-dire des sous-rubriques du tableau "Infos".
ca me fait 5 jour de tâtonnements et je ne sais plus comment procéder.
J'ai vraiment besoin de votre aide ou de vos conseils
Merci

**frenchsting** · 13/03/2024, 08h31

Bonjour,

De mémoire, car ça fait 3 ans que je n'ai pas trituré de JSON, il faut que tu passes par un variant avec un JSONVersVariant, construire une "arborescence" correspondant à la structure du JSAON et teste la valeur

Et en regardant la doc, tu n'aurais pas perdu 5 jours... Le deuxième exemple (test du NULL) est ce qui t'intéresse. Certes, il faut l'adapter...

RTFM comme dirait voroltinquo...

**SINTECH** · 13/03/2024, 11h22

Envoyé par frenchsting

Bonjour,

De mémoire, car ça fait 3 ans que je n'ai pas trituré de JSON, il faut que tu passes par un variant avec un JSONVersVariant, construire une "arborescence" correspondant à la structure du JSAON et teste la valeur

Et en regardant la doc, tu n'aurais pas perdu 5 jours... Le deuxième exemple (test du NULL) est ce qui t'intéresse. Certes, il faut l'adapter...

RTFM comme dirait voroltinquo...

Merci pour ce tuyau, j'avait utilisé le type variant une seule fois il y a deux ans de cela.
Je crois que je vais utiliser les types variant ou membrevariant et parcourir ma reponse

**frenchsting** · 13/03/2024, 14h51

Si tu arrives à exploiter les JSON sans utiliser les variants, je veux bien que tu me fasses une démo...

**Voroltinquo** · 16/03/2024, 17h17

Bonjour,
La solution la plus portable (car elle n'utilise pas les variants) est la désérialisation.
Les structures concernées sont les suivantes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
STinfos est une structure
	numero_attestation est une chaîne
	numero_immatriculation est une chaîne
	numero_chassis est une chaîne
	date_effet est une chaîne
	date_echeance est une chaîne
	lien_pdf est une chaîne
	lien_image est une chaîne
	lien_qrcode est une chaîne
FIN
 
STResult est une structure
	statut est une chaîne
	numero_demande est un numérique
	infos est un tableau de STinfos
FIN

Ce qui nous donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
stRéponse est STResult
stInformation est STInfo
ReponseAttendue est un httpRéponse	= HTTPEnvoie(Demande_Attestation)
 
SI ErreurDétectée ALORS
	Error(ErrorInfo(errComplet))
SINON
	Déserialise(stRéponse,ReponseAttendue..Contenu)
	ASACI_ReponseInfos = ASACI_Reponse
FIN
 
POUR TOUT stInformation de stRéponse.Infos
	TraceConstruit("N° attestation %1%2Lien PDF %3",stInformation.Numero_attestation,CRLF,stInformation.lien_PDF)
FIN

Pour plus d'infos sur l'exploitation du résultat d'une API via la désérialisation il y a un billet sur le blog

**SINTECH** · 20/03/2024, 17h27

Envoyé par Voroltinquo

Bonjour,
La solution la plus portable (car elle n'utilise pas les variants) est la désérialisation.
Les structures concernées sont les suivantes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
STinfos est une structure
	numero_attestation est une chaîne
	numero_immatriculation est une chaîne
	numero_chassis est une chaîne
	date_effet est une chaîne
	date_echeance est une chaîne
	lien_pdf est une chaîne
	lien_image est une chaîne
	lien_qrcode est une chaîne
FIN
 
STResult est une structure
	statut est une chaîne
	numero_demande est un numérique
	infos est un tableau de STinfos
FIN

Ce qui nous donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
stRéponse est STResult
stInformation est STInfo
ReponseAttendue est un httpRéponse	= HTTPEnvoie(Demande_Attestation)
 
SI ErreurDétectée ALORS
	Error(ErrorInfo(errComplet))
SINON
	Déserialise(stRéponse,ReponseAttendue..Contenu)
	ASACI_ReponseInfos = ASACI_Reponse
FIN
 
POUR TOUT stInformation de stRéponse.Infos
	TraceConstruit("N° attestation %1%2Lien PDF %3",stInformation.Numero_attestation,CRLF,stInformation.lien_PDF)
FIN

Pour plus d'infos sur l'exploitation du résultat d'une API via la désérialisation il y a un billet sur le blog

Merci pour ce tuyau, je vais explorer cette piste

**SINTECH** · 01/04/2024, 12h02

Envoyé par frenchsting

Si tu arrives à exploiter les JSON sans utiliser les variants, je veux bien que tu me fasses une démo...

Merci infiniment pour ton aide. voici comment j'ai procédé finalement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
// Déclaration des variables globales
statut, numeroDemande, NumeroAttestation, LienPDF sont des chaînes
joResponse est un JSON
JoInfo est un JSON

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
// Envoi de la requête
ReponseAttendue	est un httpRéponse = HTTPEnvoie(Demande_Attestation)
 
// Récupération du contenu de la réponse
joResponse = ReponseAttendue..Contenu
// Récupérer le statut
statut = joResponse.statut
// Récupérer le numéro de demande
numeroDemande = joResponse.numero_demande
JoInfo = joResponse.infos[1]
// Récupérer le numéro d'attestation
NumeroAttestation = JoInfo.numero_attestation
// Récupérer le lien PDF
LienPDF = JoInfo.lien_pdf

et je récupère les éléments avec succès.

**SINTECH** · 07/04/2024, 15h23

Merci à tous le problème était lié à une mauvaise déclaration de la variable qui récupère le contenu de la réponse.
J'ai utilisé un buffer et ca marche bien

Voici mon code final

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
ASACI_Body = ChaîneVersJSON(ASACI_Body)
// Affectation du body au contenu de la requête
Demande_Attestation..Contenu = ASACI_Body
 
Demande_Attestation..DuréeNonRéponse = 120000
// Envoi de la requête
ReponseAttendue est un httpRéponse = HTTPEnvoie(Demande_Attestation)
bufContenu est un buffer = ReponseAttendue..Contenu
joResponse est un JSON= bufContenu
statut est une chaine= joResponse.statut
 
RENVOYER(statut,sDescriptionStatut)

Recuperer des valeurs d'une httpRéponse [WB25]

WebDev

Discussions similaires

Partager

Partager