Mostrar marcadores en un mapa desde un fichero de coordenadas

[DP News-Robot]

Esta utilidad lo que hace es leer las coordenadas almacenadas en un fichero para mostrarlas en un mapa utilizando nuestro lenguaje de programación de confianza Delphi 10.4.1

El archivo de origen se llamará "datos.csv" y tendrá 4 campos separados por un punto y coma.

El formato será el siguiente :

;;;

Se puede utilizar la api de google maps, pero he preferido utilizar leaflet (que es gratuito), para ello creo una plantilla del archivo html que mostrará el mapa y voy sustituyendo dentro de los tokens marcados como "#1#", "#2#", etc... los valores que corresponda según el fichero de coordenadas "datos.csv"

Leaflet es una biblioteca javascript open-source que permite hacer mapas interactivos de una forma muy sencilla. La utilizan miles de sitios web debido a su gran simplicidad, rendimiento y usabilidad, además tiene una gran cantidad de plugins y permite escribir código que es legible y bien documentado.

A continuación pasaremos a explicar por encima el código:

Inicialmente cargamos el fichero "datos.csv" y lo guardamos en un tMemo.

Memo2.Lines.Clear;
fich := tstringlist.Create;
TRY

// fich.LoadFromFile('datos.csv',tencoding.UTF8);
fich.LoadFromFile('datos.csv', tencoding.ANSI);
Memo2.Text := fich.Text;

FINALLY
fich.Free;
END;
----

Después procedo a leer línea a línea el fichero, guardamos los campos de cada línea en las variables t1,t2,t3 y sustituimos dichos valores en la línea :




html := html + 'L.marker([' + t2 + ',' + t3 + ']).addTo(map).bindPopup(''' + t1 + ''');' + chr(13) + chr(10);
---



"L.marker" es una función javascript de la librería leaflet que lo que hacer es poner un marcador en el mapa.


Con todos los marcadores creados según la instrucción anterior, los guardo en la variable html y procedo a sustituir el token #1# por todo lo que haya en html

Memo1.Text := stringreplace(Memo1.Text, '#1#', html, [rfreplaceAll]);
Y para finalizar enviamos el Memo1.text al componente WebBrowser1 que será el encargado de mostrar el mapa al usuario con los marcadores


WebBrowser1.Navigate('about:blank');
WebBrowser1.Loadfromstrings(Memo1.Text, '');
----

Como siempre les dejo el código fuente y el ejecutable:

Este programa está realizado por Javier Pareja con Delphi 10.4.1



Suscribirse :



Weiterlesen...