delphi - 帮助使用 Delphi 7 创建 gpx 文件

Question

我是 Delphi 新手，试图创建这样的 GPX 文件，

 <?xml version="1.0" encoding="UTF-8" ?> 
- <gpx xmlns="http://www..." version="1.1" creator="EasyGPS 4.18" xmlns:xsi="http://www..." " xsi:schemaLocation="http://www..." >
- <metadata>
  <bounds minlat="19.38975200" minlon="-99.17971000" maxlat="19.39671900" maxlon="-99.17543500" /> 
- <extensions>
  <time xmlns="http://www...">2011-02-20T01:51:38.662Z</time> 
  </extensions>
  </metadata>
- <wpt lat="19.39671900" lon="-99.17820800">
  <time>2011-02-20T01:44:26.284Z</time> 
  <name>INDIANAPOLIS</name> 
  <sym>Residence</sym> 
- <extensions>
  <time xmlns="http://www..." </time> 
- <label xmlns="http://www..." >
  <label_text>INDIANAPOLIS</label_text> 
  </label>
  </extensions>
  </wpt>
- <wpt lat="19.38975200" lon="-99.17543500">
  <time>2011-02-20T01:44:26.284Z</time> 
  <name>SUPERAMA</name> 
  <sym>Department Store</sym> 
- <extensions>
  <time xmlns="http://www..." </time> 
- <label xmlns="http://www..." ">
  <label_text>SUPERAMA</label_text> 
  </label>
  </extensions>
  </wpt>
- <wpt lat="19.39119400" lon="-99.17971000">
  <time>2011-02-20T01:44:26.284Z</time> 
  <name>CUMULUS1</name> 
  <sym>Waypoint</sym> 
- <extensions>
  <time xmlns="http://www..." </time> 
- <label xmlns="http://www..." ">
  <label_text>CUMULUS1</label_text> 
  </label>
  </extensions>
  </wpt>
- <rte>
- <extensions>
  <label xmlns="http://www..." /> 
  </extensions>
- <rtept lat="19.39671900" lon="-99.17820800">
  <time>2011-02-20T01:44:26.284Z</time> 
  <name>INDIANAPOLIS</name> 
  <sym>Residence</sym> 
- <extensions>
  <time xmlns="http://www..." </time> 
- <label xmlns="http://www..." >
  <label_text>INDIANAPOLIS</label_text> 
  </label>
  </extensions>
  </rtept>
- <rtept lat="19.38975200" lon="-99.17543500">
  <time>2011-02-20T01:44:26.284Z</time> 
  <name>SUPERAMA</name> 
  <sym>Department Store</sym> 
- <extensions>
  <time xmlns="http://www..." </time> 
- <label xmlns="http://www.topografix.com/GPX/gpx_overlay/0/3">
  <label_text>SUPERAMA</label_text> 
  </label>
  </extensions>
  </rtept>
- <rtept lat="19.39119400" lon="-99.17971000">
  <time>2011-02-20T01:44:26.284Z</time> 
  <name>CUMULUS1</name> 
  <sym>Waypoint</sym> 
- <extensions>
  <time xmlns="http://www..." </time> 
- <label xmlns="http://www..." >
  <label_text>CUMULUS1</label_text> 
  </label>
  </extensions>
  </rtept>
- <rtept lat="19.39671900" lon="-99.17820800">
  <time>2011-02-20T01:44:26.284Z</time> 
  <name>INDIANAPOLIS</name> 
  <sym>Residence</sym> 
- <extensions>
  <time xmlns="http://www..." </time> 
- <label xmlns="http://www..." >
  <label_text>INDIANAPOLIS</label_text> 
  </label>
  </extensions>
  </rtept>
  </rte>
  <extensions /> 
  </gpx>

我有以下代码

// root
iXml := XmlDoc.DOMDocument;
xmlNode := iXml.appendChild (iXml.createElement ('xml'));

iAttribute := iXml.createAttribute ('version');
iAttribute.nodeValue := '1.0';
xmlNode.attributes.setNamedItem (iAttribute);

iAttribute := iXml.createAttribute ('encoding');
iAttribute.nodeValue := 'UTF-8';
xmlNode.attributes.setNamedItem (iAttribute);

//GPX
gpxNode := xmlNode.appendChild(iXml.createElement ('gpx'));

iAttribute := iXml.createAttribute ('xmlns');
iAttribute.nodeValue := http://www... ;
gpxNode.attributes.setNamedItem (iAttribute);

iAttribute := iXml.createAttribute ('version');
iAttribute.nodeValue := '1.1';
gpxNode.attributes.setNamedItem (iAttribute);

iAttribute := iXml.createAttribute ('creator');
iAttribute.nodeValue := http://www..." ;
gpxNode.attributes.setNamedItem (iAttribute);

iAttribute := iXml.createAttribute ('xmlns:xsi');
iAttribute.nodeValue := 'http://www.w3.org/2001/XMLSchema-instance';
gpxNode.attributes.setNamedItem (iAttribute);

iAttribute := iXml.createAttribute ('xsi:schemaLocation');
iAttribute.nodeValue := http://www..." ';
gpxNode.attributes.setNamedItem (iAttribute);

mNode := gpxNode.appendChild(iXml.createElement ('metadata'));

bNode := mNode.appendChild(iXml.createElement ('bounds'));

iAttribute := iXml.createAttribute ('minlat');
iAttribute.nodeValue := '19.38975200';
bNode.attributes.setNamedItem (iAttribute);

iAttribute := iXml.createAttribute ('minlon');
iAttribute.nodeValue := '-99.17971000';
bNode.attributes.setNamedItem (iAttribute);

iAttribute := iXml.createAttribute ('maxlat');
iAttribute.nodeValue := '19.39671900';
bNode.attributes.setNamedItem (iAttribute);

iAttribute := iXml.createAttribute ('maxlon');
iAttribute.nodeValue := '-99.17543500';
bNode.attributes.setNamedItem (iAttribute);



trksegNode := gpxNode.appendChild(iXml.createElement ('wpt'));

iAttribute := iXml.createAttribute ('lat');
iAttribute.nodeValue := '19.39671900';
trksegNode.attributes.setNamedItem (iAttribute);

iAttribute := iXml.createAttribute ('lon');
iAttribute.nodeValue := '-99.17820800';
trksegNode.attributes.setNamedItem (iAttribute);

iAttribute := iXml.createAttribute ('name');
iAttribute.nodeValue := 'INDIANAPOLIS';
trksegNode.attributes.setNamedItem (iAttribute);

trksegNode := gpxNode.appendChild(iXml.createElement ('wpt'));

iAttribute := iXml.createAttribute ('lat');
iAttribute.nodeValue := '19.38975200';
trksegNode.attributes.setNamedItem (iAttribute);

iAttribute := iXml.createAttribute ('lon');
iAttribute.nodeValue := '-99.17543500';
trksegNode.attributes.setNamedItem (iAttribute);

iAttribute := iXml.createAttribute ('name');
iAttribute.nodeValue := 'SUPERAMA';
trksegNode.attributes.setNamedItem (iAttribute);

trksegNode := gpxNode.appendChild(iXml.createElement ('wpt'));

iAttribute := iXml.createAttribute ('lat');
iAttribute.nodeValue := '19.39119400';
trksegNode.attributes.setNamedItem (iAttribute);

iAttribute := iXml.createAttribute ('lon');
iAttribute.nodeValue := '-99.17971000';
trksegNode.attributes.setNamedItem (iAttribute);

iAttribute := iXml.createAttribute ('name');
iAttribute.nodeValue := 'CUMULUS1';
trksegNode.attributes.setNamedItem (iAttribute);



trkptNode := gpxNode.appendChild (iXml.createElement ('rte'));

trkNode := trkptNode.appendChild (iXml.createElement ('rtept'));

iAttribute := iXml.createAttribute ('lat');
iAttribute.nodeValue := '19.39671900';
trkNode.attributes.setNamedItem (iAttribute);

iAttribute := iXml.createAttribute ('lon');
iAttribute.nodeValue := '-99.17820800';
trkNode.attributes.setNamedItem (iAttribute);

iAttribute := iXml.createAttribute ('name');
iAttribute.nodeValue := 'INDIANAPOLIS';
trkNode.attributes.setNamedItem (iAttribute);

trkNode := trkptNode.appendChild (iXml.createElement ('rtept'));

iAttribute := iXml.createAttribute ('lat');
iAttribute.nodeValue := '19.38975200';
trkNode.attributes.setNamedItem (iAttribute);

iAttribute := iXml.createAttribute ('lon');
iAttribute.nodeValue := '-99.17543500';
trkNode.attributes.setNamedItem (iAttribute);

iAttribute := iXml.createAttribute ('name');
iAttribute.nodeValue := 'SUPERAMA';
trkNode.attributes.setNamedItem (iAttribute);

trkNode := trkptNode.appendChild (iXml.createElement ('rtept'));

iAttribute := iXml.createAttribute ('lat');
iAttribute.nodeValue := '19.39119400';
trkNode.attributes.setNamedItem (iAttribute);

iAttribute := iXml.createAttribute ('lon');
iAttribute.nodeValue := '-99.17971000';
trkNode.attributes.setNamedItem (iAttribute);

iAttribute := iXml.createAttribute ('name');
iAttribute.nodeValue := 'CUMULUS1';
trkNode.attributes.setNamedItem (iAttribute);

trkNode := trkptNode.appendChild (iXml.createElement ('rtept'));

iAttribute := iXml.createAttribute ('lat');
iAttribute.nodeValue := '19.39671900';
trkNode.attributes.setNamedItem (iAttribute);

iAttribute := iXml.createAttribute ('lon');
iAttribute.nodeValue := '-99.17820800';
trkNode.attributes.setNamedItem (iAttribute);

iAttribute := iXml.createAttribute ('name');
iAttribute.nodeValue := 'INDIANAPOLIS';
trkNode.attributes.setNamedItem (iAttribute);

但是当我尝试验证我的 GPX 文件时，它不会验证，“它不是 GPX 文件”

我认为我的主要问题是在我声明 GPX 节点的第一行，我几乎绝望，任何帮助将不胜感激

这是我使用代码获得的文件：

<xml version="1.0">
  <gpx xmlns="http://www.." version="1.1" creator="http://www..."  xmlns:xsi="http://www..." " xsi:schemaLocation="htthttp://www..." >
    <metadata xmlns="">
      <bounds minlat="19.38975200" minlon="-99.17971000" maxlat="19.39671900" maxlon="-99.17543500"/>
    </metadata>
    <wpt xmlns="" lat="19.39671900" lon="-99.17820800" name="INDIANAPOLIS"/>
    <wpt xmlns="" lat="19.38975200" lon="-99.17543500" name="SUPERAMA"/>
    <wpt xmlns="" lat="19.39119400" lon="-99.17971000" name="CUMULUS1"/>
    <rte xmlns="">
      <rtept lat="19.39671900" lon="-99.17820800" name="INDIANAPOLIS"/>
      <rtept lat="19.38975200" lon="-99.17543500" name="SUPERAMA"/>
      <rtept lat="19.39119400" lon="-99.17971000" name="CUMULUS1"/>
      <rtept lat="19.39671900" lon="-99.17820800" name="INDIANAPOLIS"/>
    </rte>
  </gpx>
</xml>

在此先感谢您的帮助

Answer 1

你可以看看GPX Editor是如何做到的。它是开源的和 Delphi 应用程序..

在 lib\ 文件夹中，您会找到您可能感兴趣的文件。

Answer 2

据我从示例源中可以看出，XML 命名空间属性

xmlns=""

不应该在那里。

原始文件中的文档元素使用xmlns="http://www..."命名空间。它的子元素继承了这个命名空间。但是通过xmlns=""在 Delphi 中添加，子元素具有不同的（“默认”）命名空间。这将导致 XML 无效（您可以尝试使用 XML 验证器）。

您需要告诉 Delphi DOM 根元素具有给定的命名空间。

不要（从不）使用

iAttribute := iXml.createAttribute ('xmlns');

相反，为文档分配一个命名空间并使用具有额外命名空间参数的特殊 DOM 方法添加元素。

Answer 3

按照这个答案的建议，尝试使用 Delphi XML Data Binding Wizard 在 Delphi 中导入GPX XSD。

它生成一个单元，其中包含围绕 GPX 结构的接口和类。

然后从那里去。