Discussion :

[kernel57]

Bonjour à toutes et à tous !
Je ne parviens pas à créer des lignes d'une table à partir d'une requête dont le résultat est sous la forme JSON. Voici le code utilisé :

Code :

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

1
2
3
4
5
6
7
8
9
sRep est une chaîne ANSI
sJson2 est une chaîne ANSI
 
SI HTTPRequête("http://xxxxxxxxxxxxxx.php") ALORS
		sJson2 = HTMLVersTexte(HTTPDonneRésultat(httpRésultat))
		Info(sJson2)
SINON
	Erreur("Impossible de télécharger les données")
FIN

Avec ce code une boite s'affiche avec les résultats, mais comment faire ensuite pour alimenter une table dans la même fenêtre ?

Merci de votre aide

[Invité]

Bonjour,
Les questions par rapport à Windev Mobile se font ici normalement.

2 fonctions à faire appel dans votre application : JSONVersVariant et TableAjouteLigne

[kernel57]

Ok je tente d'implémenter les deux fonctions mais j'obtiens l' erreur "Le variant n'est pas un objet"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
sRep est une chaîne ANSI
sJson2 est une chaîne ANSI
DonneesJSON est un Variant
SI HTTPRequête("http://xxxxxxxxxxxxxxxxxx.php") ALORS
		sJson2 = HTMLVersTexte(HTTPDonneRésultat(httpRésultat))
		DonneesJSON=JSONVersVariant(sJson2)
		TableAjouteLigne(Table1,DonneesJSON.Ref_stage,DonneesJSON.Adresse_organisateur)
 
SINON
	Erreur("Impossible de télécharger les données")
FIN

Il me manque certainement quelquechose

[Invité]

Que contient sJson2 après avoir fait HTMLVersTexte(HTTPDonneRésultat(httpRésultat)) ?
Si sJson2 ne contient pas du json, il faut s'orienter vers une autre piste

[kernel57]

Que contient sJson2 après avoir fait HTMLVersTexte(HTTPDonneRésultat(httpRésultat)) ?
Si sJson2 ne contient pas du json, il faut s'orienter vers une autre piste

L'affichage de Json2 me donne : [{"Ref":"544","Adresse":"3 rue des Coteaux "},{"Ref":"543","Adresse":"5 rue de Laplace"}]
J'ai passé la page php sur jsonlint.com et le retour est valide.

[Invité]

La valeur retournée est un tableau, à cause des crochets, il faudra faire une boucle pour parcourir chacun des éléments

[kernel57]

La valeur retournée est un tableau, à cause des crochets, il faudra faire une boucle pour parcourir chacun des éléments

Ok je pensais boucler sur l'élément pour obtenir ceci :

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
17
18
19
sJson2 est une chaîne ANSI
v est un Variant
 
SI HTTPRequête("http://xxxxxxxxx.php") ALORS
 
		sJson2 = HTMLVersTexte(HTTPDonneRésultat(httpRésultat))
		Info(sJson2)
 
		v=JSONVersVariant(sJson2)
		POUR TOUT Ref_stages DE v..Membre
		//TableAjouteLigne(Table1,Refstages,Adressestage)
		FIN
 
 
 
 
SINON
	Erreur("Impossible de télécharger les données")
FIN

mais ca cole pas

[Invité]

Vous y êtes presque.
Remplacez

Code :

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

POUR TOUT Ref_stages DE v..Membre

par

Code :

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

POUR TOUT Ref_stages DE v

Et dans la boucle, faites appel à la variable Ref_stages

Si cela peut vous aider, utilisez le debogguer, il sera votre précieux ami

[kernel57]

Je n'ai plus d'erreur avec ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
sJson2 est une chaîne ANSI
v est un Variant
Ref_stages est un Variant
Adresse_organisateur est un Variant
SI HTTPRequête("http://xxxxxxxxxxxxxxx.php") ALORS
		sJson2 = HTMLVersTexte(HTTPDonneRésultat(httpRésultat))
		Info(sJson2)
		v=JSONVersVariant(sJson2)
	POUR TOUT Ref_stages DE v
		TableAjouteLigne(Table1, Ref_stages, Adresse_organisateur)
		FIN
SINON
	Erreur("Impossible de télécharger les données")
FIN

mais j'obtiens des zéros dans le tableau

[kernel57]

Ok c'est réglé avec ce code :

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
 
sJson2 est une chaîne ANSI
v est un Variant
Ref_stages est un Variant
Adresse_organisateur est un Variant
SI HTTPRequête("http://xxxxxxxxxxxxxxxxxxxxxxx.php") ALORS
		sJson2 = HTMLVersTexte(HTTPDonneRésultat(httpRésultat))
		Info(sJson2)
		v=JSONVersVariant(sJson2)
	POUR TOUT Ref_stages DE v
		TableAjouteLigne(Table1, Ref_stages.Ref_stages, Ref_stages.Adresse_organisateur)
		FIN
SINON
	Erreur("Impossible de télécharger les données")
FIN

Un grand merci romulus001

[Invité]

L'affichage de Json2 me donne : [{"Ref":"544","Adresse":"3 rue des Coteaux "},{"Ref":"543","Adresse":"5 rue de Laplace"}]

Ce que je ne comprend pas, c'est que normalement, vous auriez dû écrire ce bout de code :

Code :

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

1
2
3
POUR TOUT Ref_stages DE v
	TableAjouteLigne(Table1, Ref_stages.Ref, Ref_stages.Adresse)
FIN

Est-ce que la structure du JSON a changé entre temps?