delphi 调用百度地图api

一、调用javascript的方法

     两种：

      第一种：采用自编函数的方法

function ExecuteJavaScript(WebBrowser:TWebBrowser; Code: string):Variant;
var //发送脚本
Document:IHTMLDocument2;
Window:IHTMLWindow2;
begin
// execute javascript in webbrowser
Document:=WebBrowser.Document as IHTMLDocument2;
if not Assigned(Document) then Exit;
Window:=Document.parentWindow;
if not Assigned(Window) then Exit;
try
Result:=Window.execScript(Code,'JavaScript');
except
on E:Exception do raise Exception.Create('Javascript error '+E.Message+' in: '#13#10+Code);
end;
end;

第二种：直接调用WebBrowser内置方法：

    WebBrowser1.OleObject.document.parentWindow.方法名（）；

二、百度API的调用

     制作一个HTML文件

三、DELPHI 中的实现方法：

WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'bmap.html');

try
ExecuteJavaScript(WebBrowser1,'setcenter("'+CenterCityname+'");');
except
on E:Exception do showmessage(E.Message);
end;

{

或者：

WebBrowser1.OleObject.document.parentWindow.setcenter(CenterCityname);

}