delphi 해석 xml

4216 단어 delphi
delphi 해석 xml
	 //  xml (        ,    )

ComXML := LoadXMLData(jmxml); XMLNode := ComXML.DocumentElement; if not XMLNode.HasChildNodes then Exit; nodeList := XMLNode.ChildNodes;
for i := 0 to nodeList.Count - 1 do begin if nodeList[i].IsTextElement then//요소 begin if nodeList[i].NodeName=‘code’ then begin code :=nodeList[i].NodeValue; end else if nodeList[i].NodeName=‘msg’ then begin if msg = ‘’ then begin msg:=’’; end else begin msg:=nodeList[i].NodeValue; end; end else if nodeList[i].NodeName=‘counts’ then begin counts:=nodeList[i].NodeValue; end; end else if nodeList[i].HasChildNodes then//하위 노드 begin nodeList1: = XMLNode.ChildNodes[‘lc01s’].ChildNodes; for j:= 0 to nodeList1.Count - 1 do begin if nodeList1[j].HasChildNodes then begin nodeList2 := XMLNode.ChildNodes[‘lc01s’].ChildNodes[j].ChildNodes;
        for  z:= 0 to nodeList2.Count - 1 do
        begin
            if nodeList2[z].NodeName='aac001'  then
              begin
                aac001 := vartostr(nodeList2[z].NodeValue);
              end
           else if nodeList2[z].NodeName='alca02' then
              begin
                 alca02 := vartostr(nodeList2[z].NodeValue);
              end
           else if nodeList2[z].NodeName='aab001' then
              begin
                 aab001 := vartostr(nodeList2[z].NodeValue);
              end
           else if nodeList2[z].NodeName='aab009' then
              begin
                 aab009 := vartostr(nodeList2[z].NodeValue);
              end
           else if nodeList2[z].NodeName='aab301' then
              begin
                 aab301 := vartostr(nodeList2[z].NodeValue);
              end
           else if nodeList2[z].NodeName='aac002' then
              begin
                 aac002 := vartostr(nodeList2[z].NodeValue);
              end
           else if nodeList2[z].NodeName='aac003' then
              begin
                 aac003 := vartostr(nodeList2[z].NodeValue);
              end
           else if nodeList2[z].NodeName='aac004' then
              begin
                 aac004 := vartostr(nodeList2[z].NodeValue);
              end
           else if nodeList2[z].NodeName='aaea06' then
              begin
                 aaea06 := vartostr(nodeList2[z].NodeValue);
              end
           else if nodeList2[z].NodeName='akb020' then
              begin
                 akb020 := vartostr(nodeList2[z].NodeValue);
              end
           else if nodeList2[z].NodeName='alc020' then
              begin
                 alc020 := vartostr(nodeList2[z].NodeValue);
              end
           else if nodeList2[z].NodeName='alc021' then
              begin
                 alc021 := vartostr(nodeList2[z].NodeValue);
              end
           else if nodeList2[z].NodeName='alc022' then
              begin
                 alc022 := vartostr(nodeList2[z].NodeValue);
              end
           else if nodeList2[z].NodeName='alc024' then
              begin
                 alc024 :=vartostr( nodeList2[z].NodeValue);
              end
           else if nodeList2[z].NodeName='alc023' then
              begin
                 alc023 := vartostr(nodeList2[z].NodeValue);
              end
           else if nodeList2[z].NodeName='alc027' then
              begin
                 alc027 := vartostr(nodeList2[z].NodeValue);
              end
           else if nodeList2[z].NodeName='alc060' then
              begin
                 alc060 := vartostr(nodeList2[z].NodeValue);
              end
           else if nodeList2[z].NodeName='ala040' then
              begin
                 ala040 := vartostr(nodeList2[z].NodeValue);
              end
           else if nodeList2[z].NodeName='alc084' then
              begin
                 alc084 := vartostr(nodeList2[z].NodeValue);
              end
           else if nodeList2[z].NodeName='aae116' then
              begin
                 aae116 := vartostr(nodeList2[z].NodeValue);
              end;
        end;
     end;

   end;
end;

end;

좋은 웹페이지 즐겨찾기