Hola farute.
Lo que necesitas hacer tú es aun más fácil que lo que hay en ese ejemplo, pues todo el proceso de conversión te lo puedes evitar.
Si te fijas, para visualizar la ruta, lo que se hace es generar a partir de los funtos, los elementos que si visualizan en el mapa; Eso se hace en el procedimiento
_GetPoints.
Código Delphi
[-]
procedure _GetPoints(cdsPoints:TDataset; AList:TStrings);
const
STR_NEWPOINT = 'new GLatLng(%s,%s)';
STR_SPACE = ' ';
var
Str1, Str2, Line:String;
first:boolean;
begin
AList.Clear;
first := True;
cdsPoints.First;
cdsPoints.DisableControls;
try
While not (cdsPoints.Eof) do begin
Str1 := Copy(cdsPoints.FieldByName('lat').AsString,1,12);
Str2 := Copy(cdsPoints.FieldByName('lon').AsString,1,12);
Line := Format(STR_NEWPOINT, [Str1, Str2]);
if (first) then begin
first := False;
end
else begin
Line := ',' + Line;
end;
AList.Add(STR_SPACE + Line);
cdsPoints.Next;
end;
finally
cdsPoints.EnableControls;
end;
end;
Ese procedimiento coge los puntos de la ruta y genera en un TStrings una salida como esta:
Código:
new GLatLng(41.333713,2.002021)
,new GLatLng(41.333161,2.003006)
,new GLatLng(41.332833,2.002962)
,new GLatLng(41.331890,2.002259)
,new GLatLng(41.331593,2.002182)
....
Eso es lo que nospermite visualizar la ruta.
En mi caso los puntos se obtienen de un Dataset que se recorre con un While.
Si modificas ese procedimiento para que "obtenga" los puntos de otro sitio (archivo, estructura, XML,...) todo te funcionará.
Tú tienes un fichero KML. Si lo cargas utilizando un TStrings obtendrás algo como esto:
Código:
<?xml version="1.0" encoding="UTF-8"?>
<kml xmlns="http://earth.google.com/kml/2.1">
<Placemark>
<name>cicloide_4434</name>
<Style><LineStyle><color>ff0000FF</color><width>2</width></LineStyle></Style>
<LineString><coordinates>
2.0956127,41.3581748,3.8
2.0956321,41.3583157,4.6
2.0957633,41.3581490,7.2
2.0953774,41.3584122,9.8
2.0952960,41.3585965,10.8
...
Basta con que cambies el recorrido para que obtenga los 2 primeros parámetros.
Un saludo.