xmldocument的使用

最新推荐文章于 2024-12-27 16:26:23 发布

weixin_33694620

最新推荐文章于 2024-12-27 16:26:23 发布

阅读量136

点赞数

CC 4.0 BY-SA版权

原文链接：https://yq.aliyun.com/articles/526940

本文介绍了一种使用 Delphi 从 XML 数据源中解析国家单位数据的方法。通过创建 TXMLDocument 对象并加载 XML 字符串，可以遍历 XML 结构来提取每个单位的 ID 和名称，并将这些信息存入客户端数据集。最后，将数据集中的单位名称填充到下拉列表框中。

TXMLDocument domvendor = ADOM XML v4

var
root: IXMLnode;
lei: IXMLNode;
info: IXMLNode;
i: integer;
strxml:string;
xmldoc:TXMLDocument;
begin
cbbCountry.Items.Clear;
try
    strxml := '<?xml version="1.0" encoding="GB2312"?>';
    strxml := strxml + (httprio1 as DataCenterServicesSoap).GetCZD(xz);
    xmldoc := TXMLDocument.create(nil);
    xmldoc.LoadFromXML(strxml);
    root := xmldoc.DocumentElement;
    lei := root.ChildNodes.First;
    while lei <> nil do
    begin
      if lei.NodeName = 'Item' then
      begin
        info := lei.ChildNodes.First;
        clientdatasetcountry.append;
        while info <> nil do
        begin
          if info.NodeName = 'unitId' then
          begin
            clientdatasetcountry.fieldbyname('unitId').value := info.text;
          end
          else if info.NodeName = 'name' then
          begin
            clientdatasetcountry.fieldbyname('name').value := info.text;
          end;
          info := info.NextSibling;
        end;
      end;
      clientdatasetcountry.post;
      lei := lei.NextSibling;
    end;
finally
   xmldoc.free;
end;
cbbcountry.items.Clear;
clientdatasetcountry.first;
while not clientdatasetcountry.eof do
begin
    if trim(clientdatasetcountry.FieldByName('name').asstring) <> '' then
      cbbcountry.items.add( clientdatasetcountry.FieldByName('name').asstring);
    clientdatasetcountry.next;
end;