How do I iterate through similar nodes in an XML document using NativeXML in Delphi?

Question

I am currently using NativeXML in Delphi and I have this XML document with the following structure:

<?xml version="1.0"?>
<Request>
  <RequestId>5429935816</RequestId>
  <CompletedDate>2012-07-12T12:06:57+00:00</CompletedDate>
</Request>
<RequestId>
  <RequestId>5428581330</RequestId>
  <CompletedDate>2012-07-12T04:21:46+00:00</CompletedDate>
</Request>

Basically I need to know the value of each RequestID in the document.

Thank you in advance, and regards.

score 0 · Accepted Answer · answered Jul 14 '12 at 19:06

Here is some code (not tested, written out of my memory..) which shows how to loop thru nodes... (Of course you have to replace the strBuf-thing and filename with some real code...)

procedure ReadNodes;
var
  strBuf: string;
  i: Integer;
begin
  aXMLDoc := TNativeXML.Create;
  try
    aXMLDoc.ExternalEncoding := seUTF8; //for example...
    aXMLDoc.LoadFromFile(FileName);

    if assigned(aXMLDoc.Root) then
    begin 
      for i := 0 to aXMLDoc.Root.NodeCount - 1 do                                                          
      begin
        strBuf := aXMLDoc.Root.Node[i].NodeByName('RequestID').ValueAsString;
      end; 
    end;
  finally
    aXMLDoc.Free;
  end;
end;

I think this is the answer, but the statement inside the loop should read: strBuf := aXMLDoc.Root.Node[i].NodeByName('RequestID').ValueAsString; Thank you for the idea, it pointed me to the right direction. — Victor Ian, Jul 18 '12 at 14:25

score 0 · Answer 2 · answered Nov 12 '13 at 10:52

 Node.FindNodes('Request', AList);  
 for I := 0 to AList.Count - 1 do begin  
  Node2 := TXmlNode(AList[I]);  
  if Assigned(Node2.NodeByName('RequestId')) then begin  
    Node3 := Node2.NodeByName('RequestId');  
    s := Node3.ValueUnicode;  
    //...s  
  end;  
 end;

How do I iterate through similar nodes in an XML document using NativeXML in Delphi?

2 Answers2

Linked