Como visualizar archivos KML en Google Maps desde delphi?

[farute]

He probado esta aplicación de Neftali y casi hace lo que quiero ya que pasa los ficheros de GPX a KML y luego los muestra en el mapa:

neftali.clubdelphi.com/?p=1319

y funciona perfectamente pero necesita tener el fichero GPX para pasarlo a las tablas para luego verlo en el Google Maps.
He intentado pero partiendo del fichero KML no consigo que lo muestre en el mapa.
Alguien tiene alguna idea?

gracias

[Neftali [Germán.Estévez]]

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
  // ini
  AList.Clear;
  first := True;
  // Lista de puntos
  cdsPoints.First;
  cdsPoints.DisableControls;
  try
    // Recorrer los puntos
    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);

      // Siguiente
      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:

           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:

<?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.

[farute]

muchas gracias, lo intentaré,
¿pero no existe alguna forma directa de cargar el KML sin tener que crear un dataset para meter los puntos?

En la teoría ya se que no tiene que ser complicado hacer lo que dices, pero para sacar todos los datos del KML, colores, textos,..... aparte de los puntos me imagino que hay que hacer más cosas.
No existe una función ya hecha para delphi que tenga en cuenta todas las posibles cosas que pueda tener un KML para que las muestre en el mapa tal cual lo haría al abrir un KML con el google earth. ¿?

[Neftali [Germán.Estévez]]

Empezado por farute

muchas gracias, lo intentaré,
¿pero no existe alguna forma directa de cargar el KML sin tener que crear un dataset para meter los puntos?

Pues sí, eso es lo que intento decirte; Que directamente cargues el KML en un TStrings y leas los datos desde ahí, sin pasar por el Dataset; Por eso digo que tu caso es más simple, porque todo lo del Dataset te lo puedes "saltar".

[farute]

pero sigo teniendo el problema de que no todos los ficheros KMl son iguales, entonces al localizar los datos requieren de un preprocesado de los ficheros para limpiarlos y pillar los datos necesarios,
y si los ficheros KML son muy largos tarda mucho en recorrerse todos los puntos.
No se, en la api de DG no hay una función que cargue el KML directamente, sea como sea el KML?

[Neftali [Germán.Estévez]]

Empezado por farute

No se, en la api de DG no hay una función que cargue el KML directamente, sea como sea el KML?

Puede ser. Para eso tendrás que buscar en la API de Google Maps.
Desde la web se pueden importar (Utilizando "Mis Mapas"), así que es posible que se pueda programar, pero lo desconozco.