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>