Moin Moin.

Ein Teil einer XSD:

markieren

Code:

  <xs:element name="Adressen">
    <xs:complexType>
      <xs:sequence>
        <xs:element name="Adresse" maxOccurs="unbounded" minOccurs="0">
          <xs:complexType>
            <xs:sequence>
              <xs:element type="DataPattern_PersNr" name="PersNr"/>
              <xs:element type="DataPattern_Anrede" name="Anrede"/>
              <xs:element type="DataPattern_Titel" name="Titel"/>
              //...***...
              <xs:element type="DataPattern_BPANR" name="BPANR"/>
              <xs:element type="xs:base64Binary" name="Photo"/>
            </xs:sequence>
          </xs:complexType>
        </xs:element>
      </xs:sequence>
    </xs:complexType>
  </xs:element>

Ich möchte die Attribute "type" und "name" auslesen in eine ListBox.

Mit IXMLDomDocument mache ich dies:

markieren

Code:

.....SelectSingleNode('//xs:element[@name="Adresse"]').childNodes.nextNode.childNodes.nextNode.childNodes;

Nicht elegant, funktioniert aber bestens.

Mit IXMLDocument mache ich ......das wie? Oder geht das nicht? Oder ganz anders?

creehawk

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

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

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:

markieren

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

Zitat von Sherlock:

Von XMLDOM kommend ...

XPath?

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):

zusammenfalten · markieren

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