google maps - трек по координатам - Общие вопросы Delphi

gvozdkoff · 20.01.2012, 12:44

Здравствуйте, есть задача- отобразить трек на google map по координатам, координаты хранятся в листитеме, широта и долгота в 2-ух разных столбцах.
Что есть:
в компонент TWebBrowser, подгружается статическая html страница

Код:

 WebBrowser1.Navigate('85.143.50.133/gps/g-m.html');
   if Assigned(WebBrowser1.Document) then
 
     HTMLWindow2 := (WebBrowser1.Document as IHTMLDocument2).parentWindow;

сам код html страницы

Код:

<html>
<head>
<meta name="viewport" content="initial-scale=1.0, user-scalable=no" />
<meta http-equiv="content-type" content="text/html; charset=UTF-8"/>
<title>Google Maps</title>
<link href="http://code.google.com/apis/maps/documentation/javascript/examples/default.css" rel="stylesheet" type="text/css" />
<script type="text/javascript" src="//maps.googleapis.com/maps/api/js?sensor=false"></script>
<script type="text/javascript">
 
 function initialize() {
   var myLatLng = new google.maps.LatLng(0, -180);
   var myOptions = {
     zoom: 3,
     center: myLatLng,
     mapTypeId: google.maps.MapTypeId.TERRAIN
   };
   var map = new google.maps.Map(document.getElementById("map_canvas"), myOptions);     
var geo_path = new Array();
   var geo_path = [
        new google.maps.LatLng(-18.142599, 178.431),
        new google.maps.LatLng(-27.46758, 153.027892)        
   ];
   var Track = new google.maps.Polyline({
     path: geo_path,
     strokeColor: "#FF0000",
     strokeOpacity: 1.0,
     strokeWeight: 2
   });
Track.setMap(map);  
 }
</script>
</head>
<body onload="initialize()">
 <div id="map_canvas"></div>
</body>
</html>

Скрипт работает, трек виден.
А теперь реализация на Delphi , как добавить координаты из листитема, широта и долгота хранятся в 2-ух разных столбцах.
пробовал так

Код:

for i:=0 to ListView2.Items.Count -1 do
HTMLWindow2.execScript(Format('geo_path =[new google.maps.LatLng(%s,%s)])',[ListView2.Selected.Caption+','+ListView2.Selected.SubItems[0]]), 'JavaScript');

полагаю ошибка в строке

Код:

HTMLWindow2.execScript(Format('geo_path =[new google.maps.LatLng(%s,%s)])',[ListView2.Selected.Caption+','+ListView2.Selected. SubItems[0]]), 'JavaScript');

как исправить не могу додумать.
По сути нужно в java код (в массив) поставить значения из листитема

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
ya maps/google maps	djetx	Работа с сетью в Delphi	1	10.04.2011 21:19
работа с google maps	krok	JavaScript, Ajax	0	26.08.2010 18:07
Google Maps API	RMEN	JavaScript, Ajax	0	24.05.2010 16:40
кеш google maps	bazanin	Работа с сетью в Delphi	3	17.03.2010 17:27
Работа с сервисом Google Maps	S.T.A.L.K.E.R.	Общие вопросы C/C++	1	16.03.2010 23:43