मैं कैसे परीक्षण करूं कि कोई निश्चित XML नोड मौजूद है या नहीं?

Question

वैकल्पिक नोड के अस्तित्व के लिए परीक्षण करने का सही तरीका क्या है? मेरी एक्सएमएल का एक snipped है:

<Antenna > 
    <Mount Model="text" Manufacture="text"> 
    <BirdBathMount/> 
    </Mount> 
</Antenna> 

लेकिन यह भी हो सकता है:

<Antenna > 
    <Mount Model="text" Manufacture="text"> 
    <AzEl/> 
    </Mount> 
</Antenna> 

एंटीना के बच्चे या तो birdbath या आसेल हो सकता है, लेकिन दोनों नहीं ...

डेल्फी XE में मैंने कोशिश की है:

if (MountNode.ChildNodes.Nodes['AzEl'] <> unassigned then //Does not work 
if (MountNode.ChildNodes['BirdBathMount'].NodeValue <> null) then // Does not work 
if (MountNode.BirdBathMount.NodeValue <> null) then // Does not work 

मैं XMLSpy का उपयोग स्कीमा और उदाहरण एक्सएमएल बनाने के लिए और वे सही ढंग से पार्स। मैं बाइंडिंग बनाने के लिए डेल्फी एक्सई का उपयोग करता हूं और यह अधिकांश अन्य संयोजनों पर ठीक काम करता है।

यह एक साधारण उत्तर है जिसे मैंने अभी अनदेखा किया है - लेकिन क्या? धन्यवाद ...... जिम

Answer 1

आप XPath का उपयोग कर सकते हैं, इस नमूना को आजमाएं।

uses 
    MSXML; 


Var 
    XMLDOMDocument : IXMLDOMDocument; 
    XMLDOMNode  : IXMLDOMNode; 
begin 
    XMLDOMDocument:=CoDOMDocument.Create; 
    XMLDOMDocument.loadXML(XmlStr); 
    XMLDOMNode := XMLDOMDocument.selectSingleNode('//Antenna/Mount/BirdBathMount'); 
    if XMLDOMNode<>nil then 
    Writeln('BirdBathMount node Exist') 
    else 
    begin 
    XMLDOMNode := XMLDOMDocument.selectSingleNode('//Antenna/Mount/AzEl'); 
    if XMLDOMNode<>nil then 
     Writeln('AzEl node Exist'); 
    end; 
end; 

Answer 2

मैंने इसे सफलतापूर्वक परीक्षण किया है। इस कोड के साथ। यह कुछ हद तक जटिल है और मुझे रूट तत्व की आवश्यकता है।

XmlFile

<ThisIsTheDocumentElement> 
<Antenna > 
    <Mount Model="text" Manufacture="text"> 
    <BirdBathMount/> 
    </Mount> 
</Antenna> 
<Antenna > 
    <Mount Model="text" Manufacture="text"> 
    <AzEl/> 
    </Mount> 
</Antenna> 
</ThisIsTheDocumentElement> 

Delphi2010.pas

procedure TForm1.RetrieveDocument; 
var 
    LDocument: IXMLDocument; 
    LNodeElement, LNode,BNode,CNode : IXMLNode; 
    I: Integer; 
begin 
    LDocument := TXMLDocument.Create(nil); 
    LDocument.LoadFromFile(XmlFile); 
    LNodeElement := LDocument.ChildNodes.FindNode('ThisIsTheDocumentElement'); 
    if (LNodeElement <> nil) then 
    begin 
    for I := 0 to LNodeElement.ChildNodes.Count - 1 do 
    begin 
     LNode := LNodeElement.ChildNodes.Get(I); 
     if (LNode <> Nil) AND (LNode.NodeName='Antenna') then begin 
      Memo1.lines.Add('Node name: ' + LNode.NodeName); 
      BNode:=LNode.ChildNodes.FindNode('Mount'); 
     if (BNode <> Nil) then CNode:=BNode.ChildNodes.FindNode('AzEl'); 
      if (CNode <> Nil) then Memo1.lines.Add('found: '+CNode.NodeName) else continue; 
     end; 
    end; 
    end; 
end; 

उत्पादन:

Node name: Antenna 
Node name: Antenna 
found: AzEl 

Answer 3

उपयोग .FindNode। अगर नोड मौजूद नहीं है, तो यह शून्य लौटाता है।

उदा।

xmlNode := MountNode.ChildNodes.FindNode('AzEl'); 
if Assigned(xmlNode) then 
... 

Answer 4

क्या मेरे लिए काम किया था: मेरे लिए स्पष्ट नहीं

if (MountNode.ChildNodes.FindNode('AzEl') <> nil) then 

इसका कैसे nil विकल्पों का जवाब doAttrNull तरह TXMLDocumnet पर स्थापित करने, लेकिन यह काम करता है।