访问webservice,导入xml至本地数据集

1. 创建本地数据集
   

   ?clientdataset2.FieldDefs.Clear;;
   ? with clientdataset2.FieldDefs.AddFieldDef do
   ? begin
   ??? Name := 'id';
   ??? Size := 10;
   ??? DataType := ftString;
   ? end;
   ? with clientdataset2.FieldDefs.AddFieldDef do
   ? begin
   ??? Name := 'xm';
   ??? size := 10;
   ??? DataType := ftstring;
   ? end;
   ? with clientdataset2.FieldDefs.AddFieldDef do
   ? begin
   ??? Name := 'xb';
   ??? Size := 10;
   ??? DataType := ftString;
   ? end;
   ? with clientdataset2.FieldDefs.AddFieldDef do
   ? begin
   ??? Name := 'nl';
   ??? DataType := ftinteger;
   ? end;
   ? with clientdataset2.FieldDefs.AddFieldDef do
   ? begin
   ??? Name := 'sfzh';
   ??? Size := 10;
   ??? DataType := ftString;
   ? end;
   ? with clientdataset2.FieldDefs.AddFieldDef do
   ? begin
   ??? Name := 'jtzz';
   ??? size := 30;
   ??? DataType := ftstring;
   ? end;
   ? clientdataset2.CreateDataSet;
   ? clientdataset2.open;

2. 导入xml

   var
   ? xml:Tnativexml;
   ? root: TsdElement;
   ? i:integer;
   ? ////////////声明soapheader
   ? aIntf: DataCenterServicesSoap;
   ? Headers: ISOAPHeaders;
   ? H: SecuritySoapHeader2;//SecuritySoapHeader2;
   begin
   ? Try
   ??? clientdataset2.EmptyDataSet;
   ??? xml := Tnativexml.Create(nil);
   
   ??? ////////////////////////////////////////////////////发送soapheader
   ??? aIntf := (httprio1 as DataCenterServicesSoap);
   
   ??? H := SecuritySoapHeader2.Create;
   ??? h.Ticket := 'BE2E4F35-CDE9-46A1-844B-9FB2546491B2';
   
   ??? Headers := (aIntf as ISOAPHeaders);
   ??? Headers.Send(H); //发送Soap Header
   ?? // xml.ReadFromString((httprio1 as DataCenterServicesSoap).getdataasxml(memo1.Text));
   ??? //aIntf.GetInfo; //调用服务
   ??? xml.ReadFromString((httprio1 as DataCenterServicesSoap).GetXML(memo1.Text));
   ??? xml.XmlFormat := xfReadable;
   ??? root := xml.Root;
   ??? for i := 0 to root.NodeCount - 1 do
   ??? begin
   ????? clientdataset2.Append;
   ????? clientdataset2.FieldByName('id').Value := root[i].NodeByName('ID').Value;
   ????? clientdataset2.FieldByName('xm').Value := root[i].NodeByName('xm').Value;
   ????? clientdataset2.FieldByName('xb').Value := root[i].NodeByName('xb').Value;
   ????? clientdataset2.FieldByName('nl').Value := root[i].NodeByName('nl').Value;
   ????? clientdataset2.FieldByName('sfzh').Value := root[i].NodeByName('sfzh').Value;
   ????? clientdataset2.FieldByName('jtzz').Value := root[i].NodeByName('jtzz').Value;
   ????? clientdataset2.Post;
   ??? end;
   ? finally
   ??? aIntf := nil;
   ? End;
   
   ? xml.Free;
   ? H.Free;

------------------------------------------------------------------

var? xml:Tnativexml;? root: TsdElement;? i:integer;? aIntf: DataCenterServicesSoap;? ////////////声明soapheaderbegin? Try??? clientdatasetxz.EmptyDataSet;??? xml := Tnativexml.Create(nil);??? ////////////////////////////////////////////////////发送soapheader??? aIntf := (httprio1 as DataCenterServicesSoap);?? // roota := xml.root.NodeNew('NewDataset');??? xml.ReadFromString((httprio1 as DataCenterServicesSoap).GetXZZD);??? memo6.lines.text := (httprio1 as DataCenterServicesSoap).GetXZZD;??? xml.XmlFormat := xfReadable;??? root := xml.Root;??? for i := 0 to root.NodeCount - 1 do??? begin??????? Memo4.Lines.Add(root[i].Name + #9 + root[i].Value); // root[i] = root.Nodes[i]???????? Memo4.Lines.Add( root[i].NodeByName('unitId').Value + #9 + root[i].NodeByName('name').Value); // root[i] = root.Nodes[i]??? end;??? {??? for i := 0 to root.NodeCount - 1 do??? begin???? {????? clientdatasetxz.Append;????? clientdatasetxz.FieldByName('unitid').Value := root[i].NodeByName('unitId').Value;????? clientdatasetxz.FieldByName('name').Value := root[i].NodeByName('name').Value;????? clientdatasetxz.Post;????? }???? {????? memo4.lines.add(root.NodeByName('unitId').Value + ' ' +? root.NodeByName('name').Value);????? // memo4.lines.add(root[i].Nodes[0].Value + ' ' +? root[i].Nodes[1].Value);??? end;??? }? finally??? aIntf := nil;? End;? xml.Free;? //H.Free;