delphi 调用百度地图api
2016-12-05 17:12
375 查看
一、调用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文件
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta name="viewport" content="initial-scale=1.0, user-scalable=no"/>
<script type="text/javascript" src="http://api.map.baidu.com/api?v=2.0&ak=你的秘钥"></script>
<title>百度地图测试</title>
<style type="text/css">
body, html,#allmap {width: 100%;height: 100%;overflow: hidden;margin:0;}
</style>
</head>
<body>
<div id="allmap"> </div>
</body>
</html>
<script type="text/javascript">
function setcenter(areaname){ //设置新的地图中心
map.centerAndZoom(areaname,10);
}
var map = new BMap.Map("allmap"); //js 主程序,调起百度地图
var point = new BMap.Point(116.404, 39.915);
map.centerAndZoom(point,5);
map.enableScrollWheelZoom();
</script>
三、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);
}
两种:
第一种:采用自编函数的方法
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文件
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta name="viewport" content="initial-scale=1.0, user-scalable=no"/>
<script type="text/javascript" src="http://api.map.baidu.com/api?v=2.0&ak=你的秘钥"></script>
<title>百度地图测试</title>
<style type="text/css">
body, html,#allmap {width: 100%;height: 100%;overflow: hidden;margin:0;}
</style>
</head>
<body>
<div id="allmap"> </div>
</body>
</html>
<script type="text/javascript">
function setcenter(areaname){ //设置新的地图中心
map.centerAndZoom(areaname,10);
}
var map = new BMap.Map("allmap"); //js 主程序,调起百度地图
var point = new BMap.Point(116.404, 39.915);
map.centerAndZoom(point,5);
map.enableScrollWheelZoom();
</script>
三、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);
}
相关文章推荐
- delphi 调用百度地图api
- delphi 调用百度地图api
- delphi 调用百度地图api
- 教程-Delphi调用百度地图API(XE8+WIN7)
- Delphi调用gd库演示
- 在DELPHI中调用API函数
- VB调用Delphi编写的DLL - 2
- Silverlight实用窍门系列:22.Silverlight使用WebService调用C++,Delphi编写的DLL文件【实例源码下载】
- Delphi 调用C#编写的WebService 参数为Null解决方法
- delphi 调用arcgis的 gp工具
- HTML 百度地图API调用示例源码
- Delphi环境中编写调用DLL的方法和技巧
- 在Delphi中调用DLL
- delphi 调用 webservice (.NET C#版)
- Delphi调用存储过程
- Delphi 调用netsh命令修改IP地址
- Delphi exe动态调用加载bpl 报地址错误的解决方法
- delphi调用webservice代理设置
- Delphi调用JAVA的WebService上传XML文件(XE10.2+WIN764)
- 在Delphi中动态调用C++的DLL