AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

XML lesen

Ein Thema von NoGAD · begonnen am 2. Mai 2021 · letzter Beitrag vom 7. Mai 2021
Antwort Antwort
Benutzerbild von NoGAD
NoGAD

Registriert seit: 31. Jan 2006
Ort: Erfurt
181 Beiträge
 
Delphi 10.4 Sydney
 
#1

XML lesen

  Alt 2. Mai 2021, 22:20
Huhu.

Statt JSON dieses mal XML.

Folgenden XML-Code habe ich und möchte alle Elemente von work auslesen.

Code:
<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<classify xmlns="http://classify.oclc.org">
  <response code="4"/>
  <!--Classify is a product of OCLC Online Computer Library Center: http://classify.oclc.org-->
  <workCount>5</workCount>
  <start>0</start>
  <maxRecs>25</maxRecs>
  <orderBy>thold desc</orderBy>
  <input type="title">Rabenpresse</input>
  <works>
    <work author="Liersch, Hendrik" editions="9" format="Book" holdings="78" hyr="2007" itemtype="itemtype-book" lyr="2007" owi="900052081" schemes="DDC LCC" title="Die fast vollständige Geschichte der Rabenpresse : aus Anlaß der Ausstellung im Foyer der Universitätsbibliothek der Freien Universität Berlin vom 26. September bis zum 30. November 2007" wi="175651286"/>
    <work author="Fuchs, Günter Bruno [Contributor; Editor]" editions="9" format="Book" holdings="20" hyr="1969" itemtype="itemtype-book" lyr="1968" owi="44577153" schemes="LCC" title="Berlin-Buch der Neuen Rabenpresse : mit einem Calendarium auf das Jahr 1969" wi="43039960"/>
    <work author="Hantzsch, Friedrich Georg" editions="3" format="Book" holdings="3" hyr="2012" itemtype="itemtype-book" lyr="2012" owi="1203218774" schemes="LCC" title="Die Rabenpresse selig" wi="824666518"/>
    <work author="(Hrsg.), Hermann Schladt" editions="1" format="eBook" holdings="2" hyr="2014" itemtype="itemtype-book-digital" lyr="2014" owi="2945336410" schemes="DDC" title="Edition Rabenpresse 1: Romanzero" wi="943835587"/>
    <work editions="1" format="Book" holdings="1" hyr="2007" itemtype="itemtype-book" lyr="2007" owi="5622368915" schemes="DDC" title="Die fast vollständige Geschichte der Rabenpresse : aus Anlass der Ausstellung im Foyer der Universitätsbibliothek der Freien Universität Berlin vom 26. September bis 30. November 2007" wi="888198670"/>
  </works>
</classify>
Diesen Code habe ich geschrieben, kann jedoch nicht auf die Unterlemente von works zugreifen.

Delphi-Quellcode:
type
  TJSon_Items = record
    Title: string;
    Author: String;
    Publisher: String;
    PublishedDate: String;
    Description: String;
    ImageLinks_Thumbnail: String;
    ImageLinks_SmallThumbnail: String;
    ListPrice: String;
    ISBN_Type: String;
    ISBN10: String;
    ISBN13: String;
    ISBNOTHER: String;
  end;

type
  TMyJSON = record
    TotalItems: Integer;
    Items: TJSONArray;
    ItemsArray: Array of TJSon_Items;
    Result: Boolean;
  end;


function JSON_OCLC(urlResult: String; var JSONObject: TJSONObject; var JSonValue: TJSonValue): TMyJSON;
var
  XML: IXMLDOMDocument;
  node: IXMLDomNode;
  nodes_row, nodes_se: IXMLDomNodeList;
  i, j: Integer;
  Dummy_String: String;
begin

  XML := CreateOleObject('Microsoft.XMLDOM') as IXMLDOMDocument;
  XML.async := False;
  XML.loadXML(urlResult);
  if XML.parseError.errorCode <> 0 then
    raise Exception.Create('XML Load error:' + XML.parseError.reason);

  nodes_row := XML.selectNodes('classify/works/work');

  setlength(Result.ItemsArray, nodes_row.Length); // hier konnte die Länge korrekt mit 5 ermittelt werden

  for i := 0 to Pred(nodes_row.Length) do
  begin
    node := nodes_row.item[i];
    Result.ItemsArray[i].Author := node.selectSingleNode('author').text; // HIER hakt es, weil nichts gefunden wird, auch die Suche nach 'work author' bringt eine exception.
    Result.ItemsArray[i].Title := node.selectSingleNode('title').text;
    Result.ItemsArray[i].PublishedDate := node.selectSingleNode('hyr').text;
  end;

end;


// Beispielaufruf:

var
  JSONObject: TJSONObject;
  JSonValue: TJSonValue;
  MyJson: TMyJSON;
  Dummy_String: String;
begin

  Dummy_String := '' +
    '<?xml version="1.0" encoding="UTF-8" standalone="no"?>' +
    '<classify xmlns="http://classify.oclc.org">' +
    ' <response code="4"/>' +
    ' <!--Classify is a product of OCLC Online Computer Library Center: http://classify.oclc.org-->' +
    ' <workCount>5</workCount>' +
    ' <start>0</start>' +
    ' <maxRecs>25</maxRecs>' +
    ' <orderBy>thold desc</orderBy>' +
    ' <input type="title">Rabenpresse</input>' +
    ' <works>' +
    ' <work author="Liersch, Hendrik" hyr="2007" lyr="2007" title="Die fast vollständige Geschichte der Rabenpresse : aus Anlaß der Ausstellung im Foyer der Universitätsbibliothek" wi="175651286"/>' +
    ' <work author="Fuchs, Günter Bruno [Contributor; Editor]" hyr="1969" lyr="1968" title="Berlin-Buch der Neuen Rabenpresse : mit einem Calendarium auf das Jahr 1969" wi="43039960"/>' +
    ' <work author="Hantzsch, Friedrich Georg" editions="3" format="Book" holdings="3" hyr="2012" itemtype="itemtype-book" lyr="2012" owi="1203218774" schemes="LCC" title="Die Rabenpresse selig" wi="824666518"/>' +
    ' <work author="(Hrsg.), Hermann Schladt" hyr="2014" lyr="2014" title="Edition Rabenpresse 1: Romanzero" wi="943835587"/>' +
    ' <work editions="1" hyr="2007" lyr="2007" title="Die fast vollständige Geschichte der Rabenpresse : aus Anlass der Ausstellung "/>' +
    ' </works>' +
    '</classify>';

  MyJson := JSON_OCLC(Dummy_String, JSONObject, JSonValue);
  showmessage(MyJson.ItemsArray[0].Author);
end;
Wie gelange ich an Author, title und hyr (z.B.)?

LG Mathias


Edit: Typen hinzugefügt, Beispielaufruf hinzugefügt
Mathias
Ich vergesse einfach zu viel.

Geändert von NoGAD ( 2. Mai 2021 um 22:39 Uhr) Grund: Typen vergessen
  Mit Zitat antworten Zitat
Aviator

Registriert seit: 3. Jun 2010
1.583 Beiträge
 
Delphi 10.3 Rio
 
#2

AW: XML lesen

  Alt 2. Mai 2021, 23:27
Du musst die Attribute der Nodes auslesen. Mit HasAttribute() kannst du prüfen ob das Attribut existiert. Dann mit Attributes[xxx] den Wert auslesen.
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
2.710 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#3

AW: XML lesen

  Alt 3. Mai 2021, 11:29
Eine Funktion, die JSON_OCLC heißt und dann XML verarbeitet ist auch so haarscharf an Mind-Explosion!

Warum nutzt du nicht den XML-Binding-Wizard?
In Delphi Sydney ein neues VCL-Projekt öffnen und dann nochmal über File | New | Other | Delphi | Web | XML Data Binding auswählen.
Dann dem Dialog eine Beispiel-XML vorwerfen.

Delphi-Quellcode:
uses
  works, Xml.XMLDoc;

const
    Dummy_String = '' +
    '<?xml version="1.0" encoding="UTF-8" standalone="no"?>' +
    '<classify xmlns="http://classify.oclc.org">' +
    ' <response code="4"/>' +
    ' <!--Classify is a product of OCLC Online Computer Library Center: http://classify.oclc.org-->' +
    ' <workCount>5</workCount>' +
    ' <start>0</start>' +
    ' <maxRecs>25</maxRecs>' +
    ' <orderBy>thold desc</orderBy>' +
    ' <input type="title">Rabenpresse</input>' +
    ' <works>' +
    ' <work author="Liersch, Hendrik" hyr="2007" lyr="2007" title="Die fast vollständige Geschichte der Rabenpresse : aus Anlaß der Ausstellung im Foyer der Universitätsbibliothek" wi="175651286"/>' +
    ' <work author="Fuchs, Günter Bruno [Contributor; Editor]" hyr="1969" lyr="1968" title="Berlin-Buch der Neuen Rabenpresse : mit einem Calendarium auf das Jahr 1969" wi="43039960"/>' +
    ' <work author="Hantzsch, Friedrich Georg" editions="3" format="Book" holdings="3" hyr="2012" itemtype="itemtype-book" lyr="2012" owi="1203218774" schemes="LCC" title="Die Rabenpresse selig" wi="824666518"/>' +
    ' <work author="(Hrsg.), Hermann Schladt" hyr="2014" lyr="2014" title="Edition Rabenpresse 1: Romanzero" wi="943835587"/>' +
    ' <work editions="1" hyr="2007" lyr="2007" title="Die fast vollständige Geschichte der Rabenpresse : aus Anlass der Ausstellung "/>' +
    ' </works>' +
    '</classify>';

procedure TForm3.FormCreate(Sender: TObject);
var
  Classify: IXMLClassifyType;
  Works: IXMLWorksType;
  Work: IXMLWorkType;
  I: Integer;
begin
  Classify := Getclassify(Xml.XMLDoc.LoadXMLData(Dummy_String));

  Works := Classify.Works;

  for I := 0 to Works.Count - 1 do
  begin
    Work := Works.Work[I];
    ShowMessage(Work.Author);
  end;
end;
Angehängte Dateien
Dateityp: pas works.pas (13,4 KB, 5x aufgerufen)
  Mit Zitat antworten Zitat
Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.018 Beiträge
 
Delphi 10.3 Rio
 
#4

AW: XML lesen

  Alt 3. Mai 2021, 13:16
auf api/interface ebene war das nach einem select (auf "works") irgendwie so hier (aus dem bauch heraus): xmlDoc.getElementsByTagName("author")[0].childNodes[0].nodeValue;
Gruß vom KodeZwerg
  Mit Zitat antworten Zitat
Benutzerbild von NoGAD
NoGAD

Registriert seit: 31. Jan 2006
Ort: Erfurt
181 Beiträge
 
Delphi 10.4 Sydney
 
#5

AW: XML lesen

  Alt 7. Mai 2021, 21:03
Hallo und vielen Dank an euch für die Anregungen.


Mir wäre es tatsächlich lieber gewesen, wenn ich das händisch hätte eruieren können, aber die XML-Struktur konnte ich tatsächlich nur mit Hilfe des Beitrags von TiGü korrekt auslesen.

Dass es diesen Assistenten gibt, wusste ich nicht.

LG MAthias
Mathias
Ich vergesse einfach zu viel.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +2. Es ist jetzt 03:24 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf