IXMLDomDocument vs. IXMLDocument

[Sherlock]

Schade, daß es hierzu keine Antwort gibt. Ich stehe vor einer ähnlichen Frage. Ich habe ein XML, daß ich leidlich gut mit IXMLDOMDocument durchsuchen kann, mit IXMLDocument ist das nicht so einfach... Aber IXMLDOMDocument ist nicht Plattformübergreifend, vermute ich mal ganz frech. Hat dieses Jahr jemand Muße zu antworten?

Sherlock

[Moombas]

Kannst du nicht folgendes dafür nutzen: http://docwiki.embarcadero.com/Libra...f.IXMLNodeList

[Sherlock]

Ja, könnte ich wohl, aber es ist unglaublich holprig in der Anwendung. Es gibt zB kein SelectSingleNode. Von XMLDOM kommend fällt mir grad gar nicht ein, wie ich durch so einen Teilbaum manövriere, ohne mir die Ohren zu brechen:

Code:

 <OBX>
   <OBX.3>SpO2</OBX.3>
   <OBX.5>96</OBX.5>
   <OBX.6>%</OBX.6>
   <OBX.7>90-100</OBX.7>
   <OBX.14>20200416141051</OBX.14>
 </OBX>
 <OBX>
   <OBX.3>PR</OBX.3>
   <OBX.5>65</OBX.5>
   <OBX.6>BPM</OBX.6>
   <OBX.7>50-130</OBX.7>
   <OBX.14>20200416141051</OBX.14>
 </OBX>

Hätte nicht gedacht, daß Microsoft uns Entwickler so verwöhnt.

Sherlock

[himitsu]

Zitat von Sherlock:

Von XMLDOM kommend ...

XPath?

[Sherlock]

Ich glaube ich habe mich missverständlich ausgedrückt. Ich verwende derzeit IXMLDOMDocument und was so dazugehört. Ich möchte umstellen auf das plattformunabhängige IXMLDocument. Xpath ist wohl eher etwas was zu IXMLDOMDocument gehört? Zu einem XML mit allerlei für mich irrelevanten Tags außer allem was unter den mehrfachen <OBX> zu finden ist, hatte ich bisher eine Lösung nach diesem Schema (vereinfacht dargestellt):

Delphi-Quellcode:

function XML2Data(const RecvString: string): Boolean;
var
  myXML      : IXMLDOMDocument;
  myNodeList : IXMLDOMNodeList;
  myNode     : IXMLDOMNode;
  i          : Integer;
  myVitalSign: TVitalSign;
begin
  Result := False;
  CoInitialize(nil);
  myXML := CoDOMDocument.Create;
  try
    try
      myXML.Load(RecvString);
      myNodeList := myXML.getElementsByTagName('OBX');
      if myNodeList.length > 0 then
      begin
        myVitalSign := TVitalSign.Create;
        for i := 0 to myNodeList.length - 1 do
        begin
          myNode := myNodeList.Item[i];
          if myNode.hasChildNodes then
          begin
            if myNode.selectSingleNode('OBX.3').Text = 'SpO2' then
              myVitalSign.SPO2 := StrToIntDef(myNode.selectSingleNode('OBX.5').Text, 0)
            else if myNode.selectSingleNode('OBX.3').Text = 'PR' then
              myVitalSign.PR := StrToIntDef(myNode.selectSingleNode('OBX.5').Text, 0)
          end;
          Result := True;
        end;
      end;
    finally
      CoInitialize(nil);
    end;
  except
    Result := False;
  end;
end;

Jetzt möchte ich gerne plattformübergreifend werden. IXMLDocument und seine Nodes ist aber weitaus... unhandlicher als IXMLDOMDocument. Wie kann ich also eine Liste bestimmter Knoten analog zu getElementsByTagName finden und wie bekomme ich einen bestimmten Unterknoten analog zu selectSingleNode?

Sherlock

[himitsu]

Ja, XPath wird nicht von jeder XML-Library unterstützt, aber jede "Größere" sollte es schon können.

k.A. was IXMLDocument auf den jeweiligen Platformen intern verwendet,
aber ich würde schon davon ausgehen, dass auch das neue IXMLDocument es irgendwo können müsste.
https://de.wikipedia.org/wiki/XPath
MSXML kann es, OmniXML auch und selbst JavaScript kann es.

[Sherlock]

Sodele, danke für den Hinweis, Himitsu. Roberto Ruiz hat sich der Sache mal vor Jahren angenommen: https://theroadtodelphi.com/category/xpath/

Die Methoden selectNodes und selectSingleNode sehen vielversprechend aus, friemle sie in mein Programm und melde mich gleich wieder.

Sherlock