delphi读取XML示例

procedure TfrmMain.btn1Click(Sender: TObject);
var
  TextXML:IXMLDocument;
  XmlRoot:IXMLNode;
  NodePos:IXMLNode;
  b:string;
  x,y:double;
  LocateInfo:TLocateInfo;
begin
  TextXML:=TXMLDocument.Create(nil);
  TextXML.LoadFromFile('c: esponse.xml');
  XmlRoot:= TextXML.DocumentElement;
  NodePos:=XmlRoot.ChildNodes['slia'].ChildNodes['pos'];
  LocateInfo.Mobile:=NodePos.ChildNodes['msid'].NodeValue;
  LocateInfo.X := NodePos.ChildNodes['pd'].ChildNodes['shape'].ChildNodes['Point'].ChildNodes['coord'].ChildNodes['X'].NodeValue;
  LocateInfo.Y := NodePos.ChildNodes['pd'].ChildNodes['shape'].ChildNodes['Point'].ChildNodes['coord'].ChildNodes['Y'].NodeValue;
  showmessage(b);
end;

  

 

//以下为示例XML文件：

<?xml version="1.0" encoding="gb2312"?> 
<svc_result ver="1.0.0">     
<hdr ver="1.0.0">         
	<sessionid>10587695901453864860</sessionid>     
</hdr>     
<slia ver="1.0.0">         
	<pos>             
		<msid type="MSISDN" enc="ASC">13999991113</msid><!--返回结果的手机号码-->             
		<pd>          
			<time utc_off="+0800">20030721143954</time>                 
			<shape>      
				<Point gid="some_thing" srsName="www.epsg.org#4326">                         
					<coord><!--返回的经纬度--> 
						<X>116.21392</X>                             
						<Y>40.22050</Y>                         
					</coord>                     
				</Point>   
			</shape>            
		</pd>         
	</pos>         
	<msid_status>M_NORMAL</msid_status>         
	<roam_city>010</roam_city>     
</slia> 
</svc_result>