用google map从经纬度得到国家、省、市，及Delphi解析XML的bug

使用这个链接可以得到纬度31，经度121的地方是上海。

http://ditu.google.cn/maps/geo?ll=31,121&output=xml&sensor=true_or_false&key=abcdefg

返回的结果是一个XML文件：

<?xml version="1.0" encoding="UTF-8" ?> <kml xmlns="http://earth.google.com/kml/2.0"><Response> <name>31.000000,121.000000</name> <Status> <code>200</code> <request>geocode</request> </Status> <Placemark id="p1"> <address>中国上海市青浦区</address> <AddressDetails Accuracy="4" xmlns="urn:oasis:names:tc:ciq:xsdschema:xAL:2.0"> <Country> <CountryNameCode>CN</CountryNameCode> <CountryName>中国</CountryName> <AdministrativeArea> <AdministrativeAreaName>上海市</AdministrativeAreaName> <Locality> <LocalityName>上海市</LocalityName> <DependentLocality> <DependentLocalityName>青浦区</DependentLocalityName> </DependentLocality> </Locality> </AdministrativeArea> </Country> </AddressDetails> <ExtendedData> <LatLonBox north="31.3024321" south="30.9968576" east="121.3805158" west="120.8682782" /> </ExtendedData> <Point><coordinates>121.1243970,31.1497680,0</coordinates></Point> </Placemark> <Placemark id="p2"> <address>中国上海市</address> <AddressDetails Accuracy="4" xmlns="urn:oasis:names:tc:ciq:xsdschema:xAL:2.0"> <Country> <CountryNameCode>CN</CountryNameCode> <CountryName>中国</CountryName> <AdministrativeArea> <AdministrativeAreaName>上海市</AdministrativeAreaName> <Locality> <LocalityName>上海市</LocalityName> </Locality> </AdministrativeArea> </Country> </AddressDetails> <ExtendedData> <LatLonBox north="31.6688967" south="30.7798012" east="122.1137989" west="120.8397067" /> </ExtendedData> <Point><coordinates>121.4729160,31.2307080,0</coordinates></Point> </Placemark> <Placemark id="p3"> <address>中国</address> <AddressDetails Accuracy="1" xmlns="urn:oasis:names:tc:ciq:xsdschema:xAL:2.0"> <Country> <CountryNameCode>CN</CountryNameCode> <CountryName>中国</CountryName> </Country> </AddressDetails> <ExtendedData> <LatLonBox north="53.5611959" south="17.9996000" east="134.7707226" west="73.4503042" /> </ExtendedData> <Point><coordinates>104.1953970,35.8616600,0</coordinates></Point> </Placemark> </Response></kml>

把这个结果保存为geo.xml的文件。用delphi的XML Mapper工具打开，选取你想要的字段，保存为一个geo.xsd文件：

<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema"> <xs:element name="kml" type="kmlType"/> <xs:complexType name="kmlType"> <xs:sequence> <xs:element name="Response" type="ResponseType"/> </xs:sequence> <xs:attribute name="xmlns" type="xs:string"/> </xs:complexType> <xs:element name="Response" type="ResponseType"/> <xs:complexType name="ResponseType"> <xs:sequence> <xs:element name="name" type="nameType"/> <xs:element name="Status" type="StatusType"/> <xs:element name="Placemark" type="PlacemarkType"/> </xs:sequence> </xs:complexType> <xs:element name="name" type="nameType"/> <xs:simpleType name="nameType"> <xs:restriction base="xs:string"/> </xs:simpleType> <xs:element name="Status" type="StatusType"/> <xs:complexType name="StatusType"> <xs:sequence> <xs:element name="code" type="codeType"/> <xs:element name="request" type="requestType"/> </xs:sequence> </xs:complexType> <xs:element name="code" type="codeType"/> <xs:simpleType name="codeType"> <xs:restriction base="xs:string"/> </xs:simpleType> <xs:element name="request" type="requestType"/> <xs:simpleType name="requestType"> <xs:restriction base="xs:string"/> </xs:simpleType> <xs:element name="Placemark" type="PlacemarkType"/> <xs:complexType name="PlacemarkType"> <xs:sequence> <xs:element name="address" type="addressType"/> <xs:element name="AddressDetails" type="AddressDetailsType"/> <xs:element name="ExtendedData" type="ExtendedDataType"/> <xs:element name="Point" type="PointType"/> </xs:sequence> <xs:attribute name="id" type="xs:string"/> </xs:complexType> <xs:element name="address" type="addressType"/> <xs:simpleType name="addressType"> <xs:restriction base="xs:string"/> </xs:simpleType> <xs:element name="AddressDetails" type="AddressDetailsType"/> <xs:complexType name="AddressDetailsType"> <xs:sequence> <xs:element name="Country" type="CountryType"/> </xs:sequence> <xs:attribute name="Accuracy" type="xs:string"/> <xs:attribute name="xmlns" type="xs:string"/> </xs:complexType> <xs:element name="Country" type="CountryType"/> <xs:complexType name="CountryType"> <xs:sequence> <xs:element name="CountryNameCode" type="CountryNameCodeType"/> <xs:element name="CountryName" type="CountryNameType"/> <xs:element name="AdministrativeArea" type="AdministrativeAreaType"/> </xs:sequence> </xs:complexType> <xs:element name="CountryNameCode" type="CountryNameCodeType"/> <xs:simpleType name="CountryNameCodeType"> <xs:restriction base="xs:string"/> </xs:simpleType> <xs:element name="CountryName" type="CountryNameType"/> <xs:simpleType name="CountryNameType"> <xs:restriction base="xs:string"/> </xs:simpleType> <xs:element name="ExtendedData" type="ExtendedDataType"/> <xs:complexType name="ExtendedDataType"> <xs:sequence> <xs:element name="LatLonBox" type="LatLonBoxType"/> </xs:sequence> </xs:complexType> <xs:element name="LatLonBox" type="LatLonBoxType"/> <xs:complexType name="LatLonBoxType"> <xs:sequence/> <xs:attribute name="north" type="xs:string"/> <xs:attribute name="south" type="xs:string"/> <xs:attribute name="east" type="xs:string"/> <xs:attribute name="west" type="xs:string"/> </xs:complexType> <xs:element name="Point" type="PointType"/> <xs:complexType name="PointType"> <xs:sequence> <xs:element name="coordinates" type="coordinatesType"/> </xs:sequence> </xs:complexType> <xs:element name="coordinates" type="coordinatesType"/> <xs:simpleType name="coordinatesType"> <xs:restriction base="xs:string"/> </xs:simpleType> <xs:element name="AdministrativeArea" type="AdministrativeAreaType"/> <xs:complexType name="AdministrativeAreaType"> <xs:sequence> <xs:element name="AdministrativeAreaName" type="AdministrativeAreaNameType"/> <xs:element name="Locality" type="LocalityType"/> </xs:sequence> </xs:complexType> <xs:element name="AdministrativeAreaName" type="AdministrativeAreaNameType"/> <xs:simpleType name="AdministrativeAreaNameType"> <xs:restriction base="xs:string"/> </xs:simpleType> <xs:element name="Locality" type="LocalityType"/> <xs:complexType name="LocalityType"> <xs:sequence> <xs:element name="LocalityName" type="LocalityNameType"/> <xs:element name="DependentLocality" type="DependentLocalityType"/> </xs:sequence> </xs:complexType> <xs:element name="LocalityName" type="LocalityNameType"/> <xs:simpleType name="LocalityNameType"> <xs:restriction base="xs:string"/> </xs:simpleType> <xs:element name="DependentLocality" type="DependentLocalityType"/> <xs:complexType name="DependentLocalityType"> <xs:sequence> <xs:element name="DependentLocalityName" type="DependentLocalityNameType"/> </xs:sequence> </xs:complexType> <xs:element name="DependentLocalityName" type="DependentLocalityNameType"/> <xs:simpleType name="DependentLocalityNameType"> <xs:restriction base="xs:string"/> </xs:simpleType> </xs:schema>

再用delphi,File-New-XML Data Binding这个向导，把geo.xsd文件包装成一个geo.pas:

{*****************************************} { } { XML Data Binding } { } { Generated on: 2009-12-23 22:06:48 } { Generated from: D:/geo.xsd } { Settings stored in: D:/geo.xdb } { } {*****************************************} unit geo; interface uses xmldom, XMLDoc, XMLIntf; type { Forward Decls } IXMLKmlType = interface; IXMLResponseType = interface; IXMLStatusType = interface; IXMLPlacemarkType = interface; IXMLAddressDetailsType = interface; IXMLCountryType = interface; IXMLAdministrativeAreaType = interface; IXMLLocalityType = interface; IXMLDependentLocalityType = interface; IXMLExtendedDataType = interface; IXMLLatLonBoxType = interface; IXMLPointType = interface; { IXMLKmlType } IXMLKmlType = interface(IXMLNode) ['{BCB44531-A3FD-412D-B53C-9247A753A580}'] { Property Accessors } function Get_Xmlns: WideString; function Get_Response: IXMLResponseType; procedure Set_Xmlns(Value: WideString); { Methods & Properties } property Xmlns: WideString read Get_Xmlns write Set_Xmlns; property Response: IXMLResponseType read Get_Response; end; { IXMLResponseType } IXMLResponseType = interface(IXMLNode) ['{E0B0FFFE-0043-4588-8BC4-DC8E44FE5A4F}'] { Property Accessors } function Get_Name: WideString; function Get_Status: IXMLStatusType; function Get_Placemark: IXMLPlacemarkType; procedure Set_Name(Value: WideString); { Methods & Properties } property Name: WideString read Get_Name write Set_Name; property Status: IXMLStatusType read Get_Status; property Placemark: IXMLPlacemarkType read Get_Placemark; end; { IXMLStatusType } IXMLStatusType = interface(IXMLNode) ['{052C096F-2DDD-48F3-AED5-BA57743DC135}'] { Property Accessors } function Get_Code: WideString; function Get_Request: WideString; procedure Set_Code(Value: WideString); procedure Set_Request(Value: WideString); { Methods & Properties } property Code: WideString read Get_Code write Set_Code; property Request: WideString read Get_Request write Set_Request; end; { IXMLPlacemarkType } IXMLPlacemarkType = interface(IXMLNode) ['{318D34E6-03FC-48CB-BE1B-D9911D6C3DE8}'] { Property Accessors } function Get_Id: WideString; function Get_Address: WideString; function Get_AddressDetails: IXMLAddressDetailsType; function Get_ExtendedData: IXMLExtendedDataType; function Get_Point: IXMLPointType; procedure Set_Id(Value: WideString); procedure Set_Address(Value: WideString); { Methods & Properties } property Id: WideString read Get_Id write Set_Id; property Address: WideString read Get_Address write Set_Address; property AddressDetails: IXMLAddressDetailsType read Get_AddressDetails; property ExtendedData: IXMLExtendedDataType read Get_ExtendedData; property Point: IXMLPointType read Get_Point; end; { IXMLAddressDetailsType } IXMLAddressDetailsType = interface(IXMLNode) ['{AB787C8D-A91C-4EA4-8321-80418A9E7DF5}'] { Property Accessors } function Get_Accuracy: WideString; function Get_Xmlns: WideString; function Get_Country: IXMLCountryType; procedure Set_Accuracy(Value: WideString); procedure Set_Xmlns(Value: WideString); { Methods & Properties } property Accuracy: WideString read Get_Accuracy write Set_Accuracy; property Xmlns: WideString read Get_Xmlns write Set_Xmlns; property Country: IXMLCountryType read Get_Country; end; { IXMLCountryType } IXMLCountryType = interface(IXMLNode) ['{C765402B-D4F4-430D-9B69-EFFEC3739DFB}'] { Property Accessors } function Get_CountryNameCode: WideString; function Get_CountryName: WideString; function Get_AdministrativeArea: IXMLAdministrativeAreaType; procedure Set_CountryNameCode(Value: WideString); procedure Set_CountryName(Value: WideString); { Methods & Properties } property CountryNameCode: WideString read Get_CountryNameCode write Set_CountryNameCode; property CountryName: WideString read Get_CountryName write Set_CountryName; property AdministrativeArea: IXMLAdministrativeAreaType read Get_AdministrativeArea; end; { IXMLAdministrativeAreaType } IXMLAdministrativeAreaType = interface(IXMLNode) ['{801D4276-26C8-4741-867C-6405924D5B39}'] { Property Accessors } function Get_AdministrativeAreaName: WideString; function Get_Locality: IXMLLocalityType; procedure Set_AdministrativeAreaName(Value: WideString); { Methods & Properties } property AdministrativeAreaName: WideString read Get_AdministrativeAreaName write Set_AdministrativeAreaName; property Locality: IXMLLocalityType read Get_Locality; end; { IXMLLocalityType } IXMLLocalityType = interface(IXMLNode) ['{63AF08DC-9DA1-4AC8-AE20-D5A484CB3C65}'] { Property Accessors } function Get_LocalityName: WideString; function Get_DependentLocality: IXMLDependentLocalityType; procedure Set_LocalityName(Value: WideString); { Methods & Properties } property LocalityName: WideString read Get_LocalityName write Set_LocalityName; property DependentLocality: IXMLDependentLocalityType read Get_DependentLocality; end; { IXMLDependentLocalityType } IXMLDependentLocalityType = interface(IXMLNode) ['{B31E6271-8566-4B6A-A247-CA32C7060080}'] { Property Accessors } function Get_DependentLocalityName: WideString; procedure Set_DependentLocalityName(Value: WideString); { Methods & Properties } property DependentLocalityName: WideString read Get_DependentLocalityName write Set_DependentLocalityName; end; { IXMLExtendedDataType } IXMLExtendedDataType = interface(IXMLNode) ['{E559873B-4714-472C-83A2-2682149BC6B9}'] { Property Accessors } function Get_LatLonBox: IXMLLatLonBoxType; { Methods & Properties } property LatLonBox: IXMLLatLonBoxType read Get_LatLonBox; end; { IXMLLatLonBoxType } IXMLLatLonBoxType = interface(IXMLNode) ['{7E406549-2CEC-45A1-BA65-98633197D32B}'] { Property Accessors } function Get_North: WideString; function Get_South: WideString; function Get_East: WideString; function Get_West: WideString; procedure Set_North(Value: WideString); procedure Set_South(Value: WideString); procedure Set_East(Value: WideString); procedure Set_West(Value: WideString); { Methods & Properties } property North: WideString read Get_North write Set_North; property South: WideString read Get_South write Set_South; property East: WideString read Get_East write Set_East; property West: WideString read Get_West write Set_West; end; { IXMLPointType } IXMLPointType = interface(IXMLNode) ['{D94C2128-A256-46CC-9D0A-67FF07D13654}'] { Property Accessors } function Get_Coordinates: WideString; procedure Set_Coordinates(Value: WideString); { Methods & Properties } property Coordinates: WideString read Get_Coordinates write Set_Coordinates; end; { Forward Decls } TXMLKmlType = class; TXMLResponseType = class; TXMLStatusType = class; TXMLPlacemarkType = class; TXMLAddressDetailsType = class; TXMLCountryType = class; TXMLAdministrativeAreaType = class; TXMLLocalityType = class; TXMLDependentLocalityType = class; TXMLExtendedDataType = class; TXMLLatLonBoxType = class; TXMLPointType = class; { TXMLKmlType } TXMLKmlType = class(TXMLNode, IXMLKmlType) protected { IXMLKmlType } function Get_Xmlns: WideString; function Get_Response: IXMLResponseType; procedure Set_Xmlns(Value: WideString); public procedure AfterConstruction; override; end; { TXMLResponseType } TXMLResponseType = class(TXMLNode, IXMLResponseType) protected { IXMLResponseType } function Get_Name: WideString; function Get_Status: IXMLStatusType; function Get_Placemark: IXMLPlacemarkType; procedure Set_Name(Value: WideString); public procedure AfterConstruction; override; end; { TXMLStatusType } TXMLStatusType = class(TXMLNode, IXMLStatusType) protected { IXMLStatusType } function Get_Code: WideString; function Get_Request: WideString; procedure Set_Code(Value: WideString); procedure Set_Request(Value: WideString); end; { TXMLPlacemarkType } TXMLPlacemarkType = class(TXMLNode, IXMLPlacemarkType) protected { IXMLPlacemarkType } function Get_Id: WideString; function Get_Address: WideString; function Get_AddressDetails: IXMLAddressDetailsType; function Get_ExtendedData: IXMLExtendedDataType; function Get_Point: IXMLPointType; procedure Set_Id(Value: WideString); procedure Set_Address(Value: WideString); public procedure AfterConstruction; override; end; { TXMLAddressDetailsType } TXMLAddressDetailsType = class(TXMLNode, IXMLAddressDetailsType) protected { IXMLAddressDetailsType } function Get_Accuracy: WideString; function Get_Xmlns: WideString; function Get_Country: IXMLCountryType; procedure Set_Accuracy(Value: WideString); procedure Set_Xmlns(Value: WideString); public procedure AfterConstruction; override; end; { TXMLCountryType } TXMLCountryType = class(TXMLNode, IXMLCountryType) protected { IXMLCountryType } function Get_CountryNameCode: WideString; function Get_CountryName: WideString; function Get_AdministrativeArea: IXMLAdministrativeAreaType; procedure Set_CountryNameCode(Value: WideString); procedure Set_CountryName(Value: WideString); public procedure AfterConstruction; override; end; { TXMLAdministrativeAreaType } TXMLAdministrativeAreaType = class(TXMLNode, IXMLAdministrativeAreaType) protected { IXMLAdministrativeAreaType } function Get_AdministrativeAreaName: WideString; function Get_Locality: IXMLLocalityType; procedure Set_AdministrativeAreaName(Value: WideString); public procedure AfterConstruction; override; end; { TXMLLocalityType } TXMLLocalityType = class(TXMLNode, IXMLLocalityType) protected { IXMLLocalityType } function Get_LocalityName: WideString; function Get_DependentLocality: IXMLDependentLocalityType; procedure Set_LocalityName(Value: WideString); public procedure AfterConstruction; override; end; { TXMLDependentLocalityType } TXMLDependentLocalityType = class(TXMLNode, IXMLDependentLocalityType) protected { IXMLDependentLocalityType } function Get_DependentLocalityName: WideString; procedure Set_DependentLocalityName(Value: WideString); end; { TXMLExtendedDataType } TXMLExtendedDataType = class(TXMLNode, IXMLExtendedDataType) protected { IXMLExtendedDataType } function Get_LatLonBox: IXMLLatLonBoxType; public procedure AfterConstruction; override; end; { TXMLLatLonBoxType } TXMLLatLonBoxType = class(TXMLNode, IXMLLatLonBoxType) protected { IXMLLatLonBoxType } function Get_North: WideString; function Get_South: WideString; function Get_East: WideString; function Get_West: WideString; procedure Set_North(Value: WideString); procedure Set_South(Value: WideString); procedure Set_East(Value: WideString); procedure Set_West(Value: WideString); end; { TXMLPointType } TXMLPointType = class(TXMLNode, IXMLPointType) protected { IXMLPointType } function Get_Coordinates: WideString; procedure Set_Coordinates(Value: WideString); end; { Global Functions } function Getkml(Doc: IXMLDocument): IXMLKmlType; function Loadkml(const FileName: WideString): IXMLKmlType; function Newkml: IXMLKmlType; const TargetNamespace = ''; implementation { Global Functions } function Getkml(Doc: IXMLDocument): IXMLKmlType; begin Result := Doc.GetDocBinding('kml', TXMLKmlType, TargetNamespace) as IXMLKmlType; end; function Loadkml(const FileName: WideString): IXMLKmlType; begin Result := LoadXMLDocument(FileName).GetDocBinding('kml', TXMLKmlType, TargetNamespace) as IXMLKmlType; end; function Newkml: IXMLKmlType; begin Result := NewXMLDocument.GetDocBinding('kml', TXMLKmlType, TargetNamespace) as IXMLKmlType; end; { TXMLKmlType } procedure TXMLKmlType.AfterConstruction; begin RegisterChildNode('Response', TXMLResponseType); inherited; end; function TXMLKmlType.Get_Xmlns: WideString; begin Result := AttributeNodes['xmlns'].Text; end; procedure TXMLKmlType.Set_Xmlns(Value: WideString); begin SetAttribute('xmlns', Value); end; function TXMLKmlType.Get_Response: IXMLResponseType; begin Result := ChildNodes['Response'] as IXMLResponseType; end; { TXMLResponseType } procedure TXMLResponseType.AfterConstruction; begin RegisterChildNode('Status', TXMLStatusType); RegisterChildNode('Placemark', TXMLPlacemarkType); inherited; end; function TXMLResponseType.Get_Name: WideString; begin Result := ChildNodes['name'].Text; end; procedure TXMLResponseType.Set_Name(Value: WideString); begin ChildNodes['name'].NodeValue := Value; end; function TXMLResponseType.Get_Status: IXMLStatusType; begin Result := ChildNodes['Status'] as IXMLStatusType; end; function TXMLResponseType.Get_Placemark: IXMLPlacemarkType; begin Result := ChildNodes['Placemark'] as IXMLPlacemarkType; end; { TXMLStatusType } function TXMLStatusType.Get_Code: WideString; begin Result := ChildNodes['code'].Text; end; procedure TXMLStatusType.Set_Code(Value: WideString); begin ChildNodes['code'].NodeValue := Value; end; function TXMLStatusType.Get_Request: WideString; begin Result := ChildNodes['request'].Text; end; procedure TXMLStatusType.Set_Request(Value: WideString); begin ChildNodes['request'].NodeValue := Value; end; { TXMLPlacemarkType } procedure TXMLPlacemarkType.AfterConstruction; begin RegisterChildNode('AddressDetails', TXMLAddressDetailsType); RegisterChildNode('ExtendedData', TXMLExtendedDataType); RegisterChildNode('Point', TXMLPointType); inherited; end; function TXMLPlacemarkType.Get_Id: WideString; begin Result := AttributeNodes['id'].Text; end; procedure TXMLPlacemarkType.Set_Id(Value: WideString); begin SetAttribute('id', Value); end; function TXMLPlacemarkType.Get_Address: WideString; begin Result := ChildNodes['address'].Text; end; procedure TXMLPlacemarkType.Set_Address(Value: WideString); begin ChildNodes['address'].NodeValue := Value; end; function TXMLPlacemarkType.Get_AddressDetails: IXMLAddressDetailsType; begin Result := ChildNodes['AddressDetails'] as IXMLAddressDetailsType; end; function TXMLPlacemarkType.Get_ExtendedData: IXMLExtendedDataType; begin Result := ChildNodes['ExtendedData'] as IXMLExtendedDataType; end; function TXMLPlacemarkType.Get_Point: IXMLPointType; begin Result := ChildNodes['Point'] as IXMLPointType; end; { TXMLAddressDetailsType } procedure TXMLAddressDetailsType.AfterConstruction; begin RegisterChildNode('Country', TXMLCountryType); inherited; end; function TXMLAddressDetailsType.Get_Accuracy: WideString; begin Result := AttributeNodes['Accuracy'].Text; end; procedure TXMLAddressDetailsType.Set_Accuracy(Value: WideString); begin SetAttribute('Accuracy', Value); end; function TXMLAddressDetailsType.Get_Xmlns: WideString; begin Result := AttributeNodes['xmlns'].Text; end; procedure TXMLAddressDetailsType.Set_Xmlns(Value: WideString); begin SetAttribute('xmlns', Value); end; function TXMLAddressDetailsType.Get_Country: IXMLCountryType; begin Result := ChildNodes['Country'] as IXMLCountryType; end; { TXMLCountryType } procedure TXMLCountryType.AfterConstruction; begin RegisterChildNode('AdministrativeArea', TXMLAdministrativeAreaType); inherited; end; function TXMLCountryType.Get_CountryNameCode: WideString; begin Result := ChildNodes['CountryNameCode'].Text; end; procedure TXMLCountryType.Set_CountryNameCode(Value: WideString); begin ChildNodes['CountryNameCode'].NodeValue := Value; end; function TXMLCountryType.Get_CountryName: WideString; begin Result := ChildNodes['CountryName'].Text; end; procedure TXMLCountryType.Set_CountryName(Value: WideString); begin ChildNodes['CountryName'].NodeValue := Value; end; function TXMLCountryType.Get_AdministrativeArea: IXMLAdministrativeAreaType; begin Result := ChildNodes['AdministrativeArea'] as IXMLAdministrativeAreaType; end; { TXMLAdministrativeAreaType } procedure TXMLAdministrativeAreaType.AfterConstruction; begin RegisterChildNode('Locality', TXMLLocalityType); inherited; end; function TXMLAdministrativeAreaType.Get_AdministrativeAreaName: WideString; begin Result := ChildNodes['AdministrativeAreaName'].Text; end; procedure TXMLAdministrativeAreaType.Set_AdministrativeAreaName(Value: WideString); begin ChildNodes['AdministrativeAreaName'].NodeValue := Value; end; function TXMLAdministrativeAreaType.Get_Locality: IXMLLocalityType; begin Result := ChildNodes['Locality'] as IXMLLocalityType; end; { TXMLLocalityType } procedure TXMLLocalityType.AfterConstruction; begin RegisterChildNode('DependentLocality', TXMLDependentLocalityType); inherited; end; function TXMLLocalityType.Get_LocalityName: WideString; begin Result := ChildNodes['LocalityName'].Text; end; procedure TXMLLocalityType.Set_LocalityName(Value: WideString); begin ChildNodes['LocalityName'].NodeValue := Value; end; function TXMLLocalityType.Get_DependentLocality: IXMLDependentLocalityType; begin Result := ChildNodes['DependentLocality'] as IXMLDependentLocalityType; end; { TXMLDependentLocalityType } function TXMLDependentLocalityType.Get_DependentLocalityName: WideString; begin Result := ChildNodes['DependentLocalityName'].Text; end; procedure TXMLDependentLocalityType.Set_DependentLocalityName(Value: WideString); begin ChildNodes['DependentLocalityName'].NodeValue := Value; end; { TXMLExtendedDataType } procedure TXMLExtendedDataType.AfterConstruction; begin RegisterChildNode('LatLonBox', TXMLLatLonBoxType); inherited; end; function TXMLExtendedDataType.Get_LatLonBox: IXMLLatLonBoxType; begin Result := ChildNodes['LatLonBox'] as IXMLLatLonBoxType; end; { TXMLLatLonBoxType } function TXMLLatLonBoxType.Get_North: WideString; begin Result := AttributeNodes['north'].Text; end; procedure TXMLLatLonBoxType.Set_North(Value: WideString); begin SetAttribute('north', Value); end; function TXMLLatLonBoxType.Get_South: WideString; begin Result := AttributeNodes['south'].Text; end; procedure TXMLLatLonBoxType.Set_South(Value: WideString); begin SetAttribute('south', Value); end; function TXMLLatLonBoxType.Get_East: WideString; begin Result := AttributeNodes['east'].Text; end; procedure TXMLLatLonBoxType.Set_East(Value: WideString); begin SetAttribute('east', Value); end; function TXMLLatLonBoxType.Get_West: WideString; begin Result := AttributeNodes['west'].Text; end; procedure TXMLLatLonBoxType.Set_West(Value: WideString); begin SetAttribute('west', Value); end; { TXMLPointType } function TXMLPointType.Get_Coordinates: WideString; begin Result := ChildNodes['coordinates'].Text; end; procedure TXMLPointType.Set_Coordinates(Value: WideString); begin ChildNodes['coordinates'].NodeValue := Value; end; end.

然后，写个demo程序，看看能不能正确显示：

procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(Loadkml('D:/geo.xml').Response.Placemark.AddressDetails.Country.CountryName); end;

奇怪，弹出的对话框是空，没有取到国家？？？

 

找了好久，发现是XML的AddressDetails节点，有一个xmlns="urn:oasis:names:tc:ciq:xsdschema:xAL:2.0"，删除掉就可以了。

 

或者修改XMLDoc.pas两个地方：

function TXMLNodeList.FindNode(NodeName: DOMString): IXMLNode; begin //Result := FindNode(NodeName,DefaultNamespaceURI); //delete by wxh Result := FindNode(NodeName,''); //add by wxh end; function TXMLNode.CreateChildNode(const ADOMNode: IDOMNode): IXMLNode; var I: Integer; ChildNodeClass: TXMLNodeClass; begin if Assigned(HostNode) then Result := HostNode.CreateChildNode(ADOMNode) else begin ChildNodeClass := OwnerDocument.GetChildNodeClass(ADOMNode); if ChildNodeClass = nil then begin ChildNodeClass := TXMLNode; for I := 0 to Length(ChildNodeClasses) - 1 do with ChildNodeClasses[I] do //if NodeMatches(ADOMNode, NodeName, NamespaceURI) then //delete by wxh if NodeMatches(ADOMNode, NodeName, '') then //add by wxh begin ChildNodeClass := NodeClass; Break; end; end; Result := ChildNodeClass.Create(ADOMNode, Self, OwnerDocument); end; end;

此问题在delphi7和delphi2010都存在。