Delphi Problems When Listing XML Sub-Node

Question

Delphi Problems When Listing XML Sub-Node

Navigation

#1 by (0 votes)

0

I have the code below, but on the [ICMS] node . he puts it in the same line I can not read the children. Happening the same with [PIS] and [COFINS] . * He does not obey level 2. How to get or check if he has more Levels or knot? Thanks to anyone who can help ...

procedure TForm1.Button1Click(Sender: TObject);
var Doc: IXMLDOMDocument;
    node_pai,
    node_filho: IXMLDOMNode;
    node_lista: IXMLDOMNodeList;
    i, j: Integer;
begin
    Memo1.Lines.Clear;
    Doc := CoDOMDocument.Create;
    Doc.load(

'<imposto>                        '+
'    <vItem12741>8.25</vItem12741>'+
'    <ICMS>                       '+
'       **<ICMS00>**              '+
'           <Orig>0</Orig>        '+
'           <CST>00</CST>         '+
'           <pICMS>18.00</pICMS>  '+ 
'           <vICMS>4.53</vICMS>   '+ 
'       </ICMS00>                 '+ 
'   </ICMS>                       '+
'   <PIS>                         '+
'       <PISAliq>                 '+ 
'           <CST>01</CST>         '+
'           <vBC>25.15</vBC>      '+
'           <pPIS>0.0000</pPIS>   '+
'           <vPIS>0.00</vPIS>     '+
'       </PISAliq>                '+
'   </PIS>                        '+
'   <COFINS>                      '+
'       <COFINSAliq>              '+
'           <CST>01</CST>         '+
'           <vBC>25.15</vBC>      '+ 
'           <pCOFINS>0.0000</pCOFINS>'+
'           <vCOFINS>0.00</vCOFINS>  '+
'       </COFINSAliq>                '+ 
'   </COFINS>                        '+
'</imposto>                          '          
);
    Doc.async  := False; 
    node_lista := Doc.selectNodes('//'+Edit1.Text);

    repeat
        node_pai := node_lista.nextNode;
        if (node_pai = nil) then
            Break;

        Memo1.Lines.Add(node_pai.baseName);
        // Nó do Pai ou Nível 1
        for i := 0 to node_pai.childNodes.length -1 do
        begin
            node_filho := node_pai.childNodes[i];
            if (node_filho <> nil) and 
               (node_pai.childNodes[i].childNodes.length > 1) then
            begin
                // Nó do filho ou Nível 2
                for j := 0 to node_pai.childNodes[i].childNodes.length -1 do
                   Memo1.Lines.Add('<' + 
                   node_pai.childNodes[i].childNodes.item[j].nodeName + '> ' 
                   + node_pai.childNodes[i].childNodes.item[j].text);
            end
            else
               // Nó do Pai ou Nível 1
               Memo1.Lines.Add('<' + node_pai.childNodes.item[i].nodeName + 
               '> ' + node_pai.childNodes.item[i].text);
        end;
    until (node_pai = nil);
end;

Excerpt from XML

<imposto>
    <vItem12741>8.25</vItem12741>
    <ICMS>
        <ICMS00>
            <Orig>0</Orig>
            <CST>00</CST>
            <pICMS>18.00</pICMS>
            <vICMS>4.53</vICMS>
        </ICMS00>
    </ICMS>
    <PIS>
        <PISAliq>
            <CST>01</CST>
            <vBC>25.15</vBC>
            <pPIS>0.0000</pPIS>
            <vPIS>0.00</vPIS>
        </PISAliq>
    </PIS>
    <COFINS>
        <COFINSAliq>
            <CST>01</CST>
            <vBC>25.15</vBC>
            <pCOFINS>0.0000</pCOFINS>
            <vCOFINS>0.00</vCOFINS>
        </COFINSAliq>
    </COFINS>
</imposto>

delphi xml

asked by anonymous 06.11.2018 / 02:18

1 answer

Errors in mysqli, expected parameters [duplicate] Sum of fields filled in within SELECT itself

score 0 · Answer 1

From what I understand you access the parent node that would be "", but only made a deal for the possible children of it.

When you access the parent, you need to loop through it and create a condition for each of the children you want to access, and so on.

It is a somewhat exhausting work, in my case I started working directly with String, reading the XML file and working and manipulating the string in XML to achieve the desired results, which saved a lot of development time.