Cita:
Empezado por wolfran_hack
tengo que completar la siguiente URL que es de la API de gooogle para localizar una serie de puntos:
Código Delphi [-]WebBrowser2.Navigate('h t t p : // maps. googleapis .com/maps/api/staticmap?center=&zoom=15&size=1024x766&maptype=roadmap&markers=color:blue||' + ListView1.Items.Item[0].Caption + '&markers=color:green||' + ListView1.Items.Item[1].Caption + '&markers=color:red||' + ListView1.Items.Item[2].Caption + '&sensor=false');
En este caso tengo 3, pero esto necesitando más de 20 puntos, el problema es que tomando actualmente como esta el codigo de arriba, si coloco en vez de 3 puntos 2 en el ListView, el mismo me lanza error al querrer mostrar el mapa el mismo lanza error, hay alguna forma de completar los items no agregados
en blanco? o si se les ocurre como completarla con algun If? |
Para crear todos los marcadores es así. El problema lo tendras para indicar el color de cada punto
Código Delphi
[-]
direccion := 'h t t p : // maps. googleapis .com/maps/api/staticmap?center=&zoom=15&size=1024x766&maptype=roadmap';
for i:= 0 to LV.items.count -1 do
begin
direccion := direccion + '&markers=color:green ' + ListView1.Items.Item[i].Caption;
end;
end;
direccion := direccion + '&sensor=false';
WebBrowser2.Navigate(direccion);
para marcar con numeros los puntos puedes utlizar esto:
Código Delphi
[-]
direccion := direccion + '&markers=color:green%7Clabel:'+ i + '% ' + ListView1.Items.Item[i].Caption;