Как подключить к программе карту Гугл

[DimychX]

Подскажите, пожалуйста, где найти информацию по подключению программы на Делфи карты Гугл, чтобы на ней можно было ставить маркеры (машинки, например).

Мы делали такое на С#, но сейчас этот программист потерялся, а я хочу воспоизвести на Делфи. Заранее спасибо

[veniside]

> воспоизвести на Делфи

имхо, лучше сразу на JS, там 2 строчки кода

[DimychX]

Может быть я не четко определил задачу. Мне нужно многофункциональное приложение, одним из элементов которого является карта. На ней надо иметь возможность "рисовать" маршруты и показывать объекты (машинки). Я предполагаю, что есть API функция Google, но где ее сыскать, не знаю

[Пепел Феникса]

http://theroadtodelphi.wordpress.com...functionality/
посмотрите сюда, а так вообще:
http://www.google.com/search?client=...w=1024&bih=688

[DimychX]

Сообщение от Пепел Феникса

http://theroadtodelphi.wordpress.com...functionality/
посмотрите сюда, а так вообще:
http://www.google.com/search?client=...w=1024&bih=688

Большое спасибо. Воспроизвел код, но пока не разобрался. Как только будет редультат, то сообщу

[ZuBy]

может это подойдет

[DimychX]

Не могу разобраться с размещением кода в TWebBrowser

procedure TfrmMain.FormCreate(Sender: TObject);
var aStream : TMemoryStream;
begin
//Set the location to an empty page
WebBrowser1.Navigate('about:blank') ;
if Assigned(WebBrowser1.Document) then begin
//create a TStream to load the Page from the string
aStream := TMemoryStream.Create;
try
//Copy the string to the stream
aStream.WriteBuffer(Pointer(HTMLStr )^, Length(HTMLStr));
//aStream.Write(HTMLStr[1], Length(HTMLStr));
aStream.Seek(0, soFromBeginning);
//Load the page from the stream
(WebBrowser1.Document as IPersistStreamInit).
Load(TStreamAdapter.Create(aStream) );
finally
aStream.Free;
end;
//Set the instance of the parentWindow
// to call the javascripts functions
HTMLWindow2 := (WebBrowser1.Document as IHTMLDocument2).
parentWindow;
end;
end;

Так вот: после такого метода Create страница остается пустой, и, соответственно, скрипт не вызывается.

Что не так?

[DimychX]

Оказалось, что проще всего хранить страницу на диске

procedure TfrmMain.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('C:\www\html\g m2.html');
HTMLWindow2 := (WebBrowser1.Document as IHTMLDocument2).
parentWindow;
end;

И все проблемы решены. Если кого-то интересует текст самой страницы, пишите - выложу. Всем спасибо