Ver Mensaje Individual
  #2  
Antiguo 04-03-2011
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - Espańa
Posts: 18.286
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
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:

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.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita