XML-Schema auswerten (Link)

[jobo]

Das Format scheint hier beschrieben zu sein.
https://schema.org/Book

Google bietet ja offenbar eine Api dazu.

Gute Datenbanksysteme erlauben die Abfrage von JSON wie diesem oben unabhängig von individuellen Ausprägungen per SQL.
Dabei kannst Du innerhalb SQL auch gleich Existenz-Prüfungen für Objekte nutzen und so wirklich fehlerfrei Daten abfragen, die vorhanden sind und Dich interessieren.

P.S.: Objekte und Arrays kannst Du damit nahezu beliebig zerlegen und transformieren.

[NoGAD]

Das Array habe ich gefunden.

Code:

  var
    JSonValue : TJSonValue;
    Authors : TJSONArray;
    Items : string;
    i : Integer;
  begin

    Memo2.Clear;
    JSonValue := TJSonObject.ParseJSONValue( Memo1.Text );
    Items := JSonValue.GetValue< string >( 'items[0].volumeInfo.title' );
    Memo2.Lines.Add( Items );
    Authors := JSonValue.GetValue< TJSONArray >( 'items[0].volumeInfo.authors' );
    for i := 0 to Authors.Size - 1 do
      Memo2.Lines.Add( Authors.Get( i ).Value );
    Items := JSonValue.GetValue< string >( 'items[0].volumeInfo.publishedDate' );
    Memo2.Lines.Add( Items );

    JSonValue.Free;

Damit klappt es.

@jobo: ich gucke es mir an

[jobo]

Zitat von NoGAD:

@jobo: ich gucke es mir an

Ich hab Dir ein Beispiel gebaut, das zeigt, was geht bzw. was ich meine. Ist natürlich nicht vollständig und vielleicht nicht anwendbar für Dich, aber einfach sehr bequem (und erprobt).
https://rextester.com/discussion/YNM...json-operators

[NoGAD]

Hallo Jobo,

das was Du mir da als Link geschickt hast, ist mir zu hoch. Mit Postgres habe ich noch nie zu tun gehabt, ich filtere es momentan anders, ein Beispiel stelle ich später hier rein, wenn es fehlerfrei läuft.

LG Mathias

[jobo]

Zitat von NoGAD:

das was Du mir da als Link geschickt hast, ist mir zu hoch.

Das kann ich nicht recht glauben. Du hast wahrscheinlich zu kurz drauf geschaut
Es ist eine sehr bequeme Art-wenn nicht sogar faule-, JSON zu lesen.

Ohne es verstehen zu müssen: Ein einziges SQL Select Statement liefert Dir alle Felder, die Du aus dem JSON brauchst/haben möchtest, ohne Substring-Krieg und Frickelei.
Ich kenne Deinen Bedarf an Feldern aus dem books Schema nicht, aber ich behaupte, dass man mit einem Select alles auslesen kann, was benötigt wird.
Mein Beispiel enthält natürlich nur 5 Felder und die sind nicht mal alle aus dem books schema.

Ganz generell mal die Anmerkung, dass natürlich mit der Existenz eines Hammers nicht jedes Problem zu einem Nagel gemacht werden kann. Mein Vorschlag SQL zu nutzen macht nur unter bestimmten Bedingungen Sinn. Wenn sowieso SQL genutzt wird, wenn tatsächlich viele oder sehr viel Daten bewegt werden.

Am Ende ist es wahrscheinlich egal, welchen Weg man geht, um JSON zu lesen oder zu schreiben. Die Botschaft ist hauptsächlich, dass man eine geeignete, erprobte Libary/Unit dafür nimmt, statt mit substr usw. zu Fuß rumzueiern. Mein Vorschlag ist hier halt PostgreSQL.

Wenn Dir SQL nicht fremd ist, dann ist Postgres natürlich nicht automatisch an Bord bzw. im Projekt und sicher "Kanonen auf Spatzen". Ich habe es nur genommen, weil es das kann und ich es häufig nutze. Als kleiner, feiner Ersatz könnte auch SQLite dienen. Dessen JSON Funktionen sind aber irgendwie anders gestrickt.

[NoGAD]

Hallo nochmal,

bisher klappt alles ganz gut, indem ich den json String parse.

Leider habe ich noch ein Problem mit der ersten Variable in der Struktur: items.

Das ist ein Array, von welchem ich die Anzahl der Elemente nicht auslesen kann.

Also so etwas wie

Code:

  var
    JSonObject : TJSONObject;
    JSonValue : TJSonValue;
    Items : TJSonArray;

    TotalItems : Integer;

    Dummy_String : String;
  begin
    Dummy_String := IdHTTP1.Get( Dummy_String );

    JSonObject := TJSONObject.ParseJSONValue( Dummy_String ) as TJSONObject;
    JSonValue := TJSONObject.ParseJSONValue( Dummy_String );

    TotalItems := JSonValue.GetValue< Integer >( 'totalItems' );

    if TotalItems = 0 then
    begin
      ShowMessage( Message_ISBN_NoItems );
      Exit;
    end;

    Items := JSonObject.GetValue< TJSonArray >( 'Items' );

Wie bekomme ich die anzahl der Elemente von Items?

In folgendem Beispiel sind es 10: https://www.googleapis.com/books/v1/...=9783499244551

LG Mathias





Edit:

Habe es gefunden, war eine Blockade

Code:

    if JSonObject.TryGetValue( 'items', Items ) then
      Items := JSonValue.GetValue< TJSONArray >( 'items' );

    { : Mehrere Items wurden gefunden, in eine Auswahlliste : }
    if Items.Count > 1 then

[philipp.hofmann]

Kleiner Hinweis: Kannst du vielleicht den Titel mal anpassen, falls jemand anders später danach sucht. Hier wird ja kein XML-Schema ausgewertet, sondern ein JSON eingelesen. Danke.