Beispiele rest json
Inhaltsverzeichnis
Daten von einem REST-Server holen, anzeigen und bearbeiten
Der REST-Server
Unter https://api.predic8.de/shop/products/ ist ein REST-Server zu finden, der als Beispiel-Server der Allgemeinheit zur Verfügung steht. Der Aufruf der URL gibt die folgenden Daten zurück:
{
"meta": {
"count": 32,
"limit": 10,
"page": 1,
"next_url": "/shop/products/?page=2&limit=10"
},
"products": [
{
"name": "Bananas",
"product_url": "/shop/products/3"
},
{
"name": "Oranges",
"product_url": "/shop/products/10"
},
...
{
"name": "Apple",
"product_url": "/shop/products/18"
},
{
"name": "Green Grapes",
"product_url": "/shop/products/11"
}
]
}
Daten von mehreren Seiten zusammenfassen
Die Daten sind auf mehrere Seiten aufgeteilt. Für unsere Zwecke müssen wir sie zusammenfassen. Dazu eignet sich die Prozedur #http_loop_json.
In solchen Fällen hat es sich bewährt, das erst mal als Konsolen-Anwendung zu realisieren, und das dann in die konkrete Anwendung zu kopieren. Diese Konsolen-Anwendung würde wie folgt aussehen:
#frm c="c_test_json" y=console #code url=https://api.predic8.de/shop/products/ #code nurl="https://api.predic8.de$JSON_VALUE(1,meta.next_url)" #code ready=$EMPTY($JSON_VALUE(1,meta.next_url)) #http_loop_json y=get se=N $CODE$ isc=Y m=20 #coutl $JSON_TEXT(1,frm) #cout c="c_test_json executed"
Die Prozedur #http_loop_json verwendet y=get als Method, wir wollen schließlich Daten abfragen. Als url verwenden wir die Seite https://api.predic8.de/shop/products/.
Sobald die erste Seite da ist, wird die nächste Seite aufgerufen, und deren URL wird mit nurl ("next URL") angegeben. Dazu wird aus dem Anwort-JSON das Feld meta-next_url extrahiert ($JSON_VALUE(1,meta.next_url), #http_loop_json arbeitet auf dem ersten JSON), davor wird der Rest der erforderlichen URL ergänzt. Daneben benötigt #http_loop_json auch noch einen Hinweis, wann die Schleife beendet werden soll, das ist dann der Fall, wenn meta.next_url leer ist. Sicherheitshalber setzt man bei #http_loop_json noch m=20, nach spätestens 20 Seiten wird also auch abgebrochen.
Da der Server ein abgelaufenes Zertifikat hat, setzen wir isc=Y. Anschließend wird mit #coutl $JSON_TEXT(1,frm) das Ergebnis formatiert ausgegeben:
{
"products": [
{
"name": "Bananas",
"product_url": "/shop/products/3"
},
{
"name": "Oranges",
"product_url": "/shop/products/10"
},
{
"name": "Pineapples",
"product_url": "/shop/products/33"
},
...
{
"name": "Pistachio",
"product_url": "/shop/products/76"
}
],
"meta": {
"count": 32,
"limit": 10,
"page": 4,
"previous_url": "/shop/products/?page=3&limit=10"
}
}
Die Prozedur #http_loop_json fügt bei Arrays auf der obersten Ebene (hier products) weitere Array-Elemente hinzu (die Anzeige eben wurde an der Stelle ... gekürzt, die Liste wäre sonst deutlich länger), während Objekte überschrieben werden (hier meta).
ID extrahieren
Wir können später die ID gebrauchen, von daher wollen wir diese auch extrahieren.
#http_loop_json y=get se=N $CODE$ isc=Y m=20 #cmd_clear #json_chgdata n=json path=id add=Y is=N z="$STREXTR($JSON_DATA(json,product_url),ffe,/shop/products/)" #json_loop n=json er=1 path=products #coutl $JSON_TEXT(1,frm)
Vor der Ausgabe fügen wir eine #json_loop ein, die durch das Array products geht und für jeden Eintrag die zuvor definierte lokale Prozedur aufruft. Hier wird mit #json_chgdata das jeweilige Element in der Loop geändert, genau genommen - da add=Y - wird ein neues Element namens path=id dem jeweiligen Array-Element hinzu. Der Wert von id wird mit dem Parameter z bestimmt. Hier holen wir die product_url aus dem JSON und extrahieren alles, was nach /shop/products/ kommt.
Die Ergebnismenge (Ausschnitt) sieht nun wie folgt aus:
{
"products": [
{
"name": "Bananas",
"product_url": "/shop/products/3",
"id": 3
},
{
"name": "Oranges",
"product_url": "/shop/products/10",
"id": 10
},
...
Einen Tree füllen
Nun wollen wir mit den Daten in eine konventionelle Oberfläche und legen mit dem Wizard das Kommando xtestrest an. Für das Sub-Kommando xtestrest_flt verwenden wir
#tree_clear #tree_add u=root c=Produkte si=Y s="#page_fill d=xtestrest_page_produkte" o=xtestrest_open(produkte)
Die Produkte laden wir dann in xtestrest_open.
~ $ICP(0,produkte) #code url=https://api.predic8.de/shop/products/ #code nurl="https://api.predic8.de$JSON_VALUE(1,meta.next_url)" #code ready=$EMPTY($JSON_VALUE(1,meta.next_url)) #http_loop_json y=get se=N $CODE$ isc=Y m=20 #cmd_clear #json_chgdata n=json path=id add=Y is=N z="$STREXTR($JSON_DATA(json,product_url),ffe,/shop/products/)" #json_loop n=json er=1 path=products #tree_fill u=o q=json path=products c1=id c2=name s="#page_fill d=xtestrest_page_produkt rs=Y" ~~
Bis auf #tree_fill ist das vom eben erstellten Konsolen-Kommando 1:1 kopiert. Als Datenquelle geben wir q=json ein, also werden die Daten aus dem ersten JSON geholt. Mit ID und name werden die entsprechenden Werte aus dem JSON geholt.
Ein VL-Segment füllen
Wenn wir https://api.predic8.de/shop/products/3 aufrufen, dann erhalten wir die Details zum Produkt zurück.
{
"name": "Bananas",
"price": 0.99,
"photo_url": "/shop/products/3/photo",
"category_url": "/shop/categories/Fruits",
"vendor_url": "/shop/vendors/672"
}
Diese wollen wir nun in einem VL-Segment anzeigen. Das sieht erst mal wie folgt aus:
#grid #prim as=Y #cat as=Y c="Daten aus https://api.predic8.de/shop/products/" #vl_seg cc=5 w1=70 w2=50 w3=20 w4=70 w5=200 n=vl #vl_line c1=ID c2=$FND(s,id) nd2=Y nvi2=neu c3=" " c4=Name f5=name #vl_line c1=Preis f2=price y2=curr a2=d2 c3=" " c4=Kategorie f5=category_url #vl_line c1=Lieferant c3=" " c4=Name f5=vendor_url #http_request y=get se=N response=resp isc=Y url=https://api.predic8.de/shop/products/$FND(s,id) #json_parse json=$VAR(resp) #vl_data q=json k=id isc=Y
Das zeigt ja immerhin schon mal die Daten an, aber ansonsten gibt es noch einiges zu tun.
Zunächst einmal haben wir bei der Kategorie und dem Lieferanten Verweise auf andere Seiten. Bei der Kategorie könnte man mit der Funktion $STREXTR() die Kategorie rausziehen, aber das würde dann zum Problem, wenn wir die Daten ändern wollen. Also machen wir es gleich richtig und legen eine Nachschlageliste an:
Nachschlagelisten
Für die Nachschlagelisten nutzen wir jetzt noch mal c_test_json und bauen eine Text-ValueList erst mal in der Konsolen-Anwendung auf. Zunächst sieht das mal ziemlich ähnlich wie eben aus, wir nutzen wieder #http_loop_json (im Moment haben wir nur eine Seite, aber es könnten ja mehr werden...), lediglich products wird durch vendors ersetzt.
#frm c="c_test_json" y=console #code url=https://api.predic8.de/shop/vendors/ #code nurl="https://api.predic8.de$JSON_VALUE(1,meta.next_url)" #code ready=$EMPTY($JSON_VALUE(1,meta.next_url)) #http_loop_json y=get se=N $CODE$ isc=Y m=20 #json_tvl n=1 path=vendors ckey=vendor_url cvalue=name #coutl $TEXT(1) #cout c="c_test_json executed"
Mit #json_tvl wird das JSON in eine Text-ValueList übersetzt, da n=1, ist das Ergebnis dann im ersten Text. Der Pfad zum Array ist vendors, in Anlehnung der Spaltenbenennung in SQL-Nachschlagelisten heißen die Parameter für die einzelnen Felder dann ckey und cvlaue. Wir bekommen dann das folgende Ergebnis:
/shop/vendors/672=Western Tasty Fruits Ltd. /shop/vendors/32=Exotic Fruits Company /shop/vendors/501=Home Fruits /shop/vendors/810=Fun Fresh Fruits Ltd. /shop/vendors/67=Nuts for Nuts Company
Diese Nachschlageliste können wir dann in unserem VL-Segment verwenden, und für die Kategorien machen wir das entsprechend:
-- Nachschlageliste Verndors #code url=https://api.predic8.de/shop/vendors/ #code nurl="https://api.predic8.de$JSON_VALUE(1,meta.next_url)" #code ready=$EMPTY($JSON_VALUE(1,meta.next_url)) #http_loop_json y=get se=N $CODE$ isc=Y m=20 #json_tvl n=1 path=vendors ckey=vendor_url cvalue=name -- Nachschlageliste Categories #code url=https://api.predic8.de/shop/categories/ #code nurl="https://api.predic8.de$JSON_VALUE(1,meta.next_url)" #code ready=$EMPTY($JSON_VALUE(1,meta.next_url)) #http_loop_json y=get se=N $CODE$ isc=Y m=20 #json_tvl n=2 path=categories ckey=category_url cvalue=name #vl_seg cc=5 w1=70 w2=50 w3=20 w4=70 w5=200 n=vl #vl_line c1=ID c2=$FND(s,id) nd2=Y nvi2=neu c3=" " c4=Name f5=name #vl_line c1=Preis f2=price y2=curr a2=d2 c3=" " c4=Kategorie f5=category_url y5=lookup ld5=tvl2 #vl_line c1=Lieferant c3=" " c4=Name f5=vendor_url y5=lookup ld5=tvl1
Die entsprechenden Felder werden mit y5=lookup auf Nachschlageliste umgestellt, und mit ld5=tvl1 beziehungsweise ld5=tvl2 werden die Werte aus dem ersten oder zweiten Text gezogen. Wichtig dann auch, dass bei der zweiten Prozedur #json_tvl n=2 gesetzt wird.
Daten ergänzen
Wir wollen jetzt noch die Lieferantennummer anzeigen. Daten lassen sich einfach ergänzen, indem man das JSON ergänzt. Wir fügen also nach #json_parse die Prozedur #json_chg ein, setzen aa=y und extrahieren - wie oben schon beim Produkt - die ID:
#json_parse json=$VAR(resp) #json_chg path=vendor_id add=Y z="$STREXTR($JSON_VALUE(1,vendor_url),ffe,/shop/vendors/)"
Damit können wir nun das VL-Segment ergänzen. Wir werden später Daten zurückschreiben, da können wir mit dieser vendor_id nichts anfangen, somit setzen wir nd2=Y ("no data"):
#vl_line c1=Lieferant f2=vendor_id ro2=Y nd2=Y c3=" " c4=Name f5=vendor_url y5=lookup ld5=tvl1
Bilder anzeigen
Wenn wir schon in den Daten eine photo_url haben, dann wollen wir auch das entsprechende Bild laden und anzeigen. Dazu ergänzen wir eine weitere Primärregion:
#prim as=Y #cat as=Y c="Bild" ~ $EMPTY($JSON_VALUE(1,photo_url)) #text_seg #text_line Kein Bild vorhanden ~ #pic_seg ho=300 q=http url=https://api.predic8.de/shop/products/$FND(s,id)/photo isc=Y sv=N sh=N ~~
Wir prüfen erst mal, ob wir überhaupt eine photo_url haben, wenn nicht, setzen wir an die Stelle des Bildes den Hinweis, dass kein Bild vorhanden ist. Ansonsten haben wir ein Picture-Segment mit q=http, dem wir die url des Bildes übergeben müssen. Da der Server immer noch kein gültiges Zertifikat hat, setzen wir isc=Y, daneben blenden wir die Scrollbalken aus.
