教程-Delphi调用百度地图API(XE8+WIN7)
2024-06-03 06:10:27
相关资料:
无言 QQ:4252181
实例代码：
1 unit U_map;
2
3 interface
4 //---------------------------------------------------//
5 //----------COPY BY 无言 QQ:4252181 -----------------//
6 //---------------------------------------------------//
7 uses
8 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
9 Dialogs, OleCtrls, SHDocVw, StdCtrls, MSHTML, StrUtils, ActiveX,
10 ExtCtrls;
11 //---------------------------------------------------//
12 //----------欢迎大家和我联系，软件开发 --------------//
13 //---------------------------------------------------//
14 type
15 TF_map = class(TForm)
16 grp1: TGroupBox;
17 WebBrowser: TWebBrowser;
18 grp2: TGroupBox;
19 grp3: TGroupBox;
20 grp4: TGroupBox;
21 tmr1: TTimer;
22 GroupBox1: TGroupBox;
23 GroupBox2: TGroupBox;
24 Edit1: TEdit;
25 Edit2: TEdit;
26 chk1: TCheckBox;
27 Edit3: TEdit;
28 Edit4: TEdit;
29 edt1: TEdit;
30 edt2: TEdit;
31 edt3: TEdit;
32 edt4: TEdit;
33 procedure FormCreate(Sender: TObject);
34 procedure btn1Click(Sender: TObject);
35 procedure btn2Click(Sender: TObject);
36 procedure FormShow(Sender: TObject);
37 procedure btn3Click(Sender: TObject);
38 procedure Button1Click(Sender: TObject);
39 procedure loadweb();
40 procedure btn4Click(Sender: TObject);
41 procedure AppMsg(var Msg: TagMsg; var Handled: Boolean);
42 procedure GetWebContent();
43 procedure tmr1Timer(Sender: TObject);
44 private
45 { Private declarations }
46 lng, lat: string;
47 public
48 { Public declarations }
49 end;
50
51 var
52 F_map: TF_map;
53 const
54 Doc1: string = '<html>'
55 + '<head>'
56 + '<meta name="viewport" content="initial-scale=1.0, user-scalable=no" />'
57 + '<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />'
58 + '<title>BAIDU MAP</title>'
59 + '<style type="text/css">'
60 + 'html{height:100%}' + 'body{height:100%;margin:0px;padding:0px}'
61 + '#container{height:100%}'
62 + '</style>'
63 + '<script type="text/javascript"src="http://api.map.baidu.com/api?v=1.3"></script>'
64 + '</head>'
65 + '<body>'
66 + '<div id="container"></div>'
67 //style="visibility:hidden; display:none">
68 +'<div id="centerweidu" style="visibility:hidden; display:none"></div>'
69 +'<div id="centerjingdu" style="visibility:hidden; display:none"></div>'
70 +'<div id="weidutemp" style="visibility:hidden;display:none"></div>'
71 +'<div id="jingdutemp" style="visibility:hidden;display:none"></div>'
72 +'<div id="weidu" style="visibility:hidden;display:none"></div>'
73 +'<div id="jingdu" style="visibility:hidden;display:none"></div>'
74 +'<div id="Distance" style="visibility:hidden;display:none"></div>'
75 + '<script language="JavaScript" type="text/javascript">'
76 + 'var map = new BMap.Map("container");' // 创建地图实例
77 + 'map.addControl(new BMap.NavigationControl());'
78 + 'map.addControl(new BMap.ScaleControl());'
79 + 'map.addControl(new BMap.OverviewMapControl());'
80 + 'map.addControl(new BMap.MapTypeControl(BMAP_ANCHOR_BOTTOM_RIGHT));' // 将标注添加到地图中
81 + 'map.enableScrollWheelZoom();' // 启用滚轮放大缩小。
82 + 'map.enableKeyboard();' // 启用键盘操作。
83 + 'var centerpoint = new BMap.Point(126.666431,45.764502);' // 创建点坐标 126.666431, 45.764502
84 + 'var marker = new BMap.Marker(centerpoint);' // 创建标注
85 + 'map.addOverlay(marker);'
86 + 'var label = new BMap.Label("哈尔滨海铭科技有限公司",{offset:new BMap.Size(20,-10)});'
87 + 'marker.setLabel(label);'
88 +' map.centerAndZoom(centerpoint, 15);' // 初始化地图，设置中心点坐标和地图级别'
89
90 +' map.addEventListener("mousemove", function(e){'
91 +' document.getElementById("weidutemp").innerHTML = e.point.lng;'
92 +' document.getElementById("jingdutemp").innerHTML = e.point.lat;});'
93 +' map.addEventListener("click", function(f){'
94 +' document.getElementById("weidu").innerHTML = f.point.lng;'
95 +' document.getElementById("jingdu").innerHTML = f.point.lat;});'
96
97 +'function SetCarCenterPoint(newlng,newlat){'
98 +'centerpoint=new BMap.Point(newlng,newlat);'
99 + 'var marker = new BMap.Marker(centerpoint);'
100 + 'map.addOverlay(marker);'
101 + 'var label = new BMap.Label("当前汽车坐标",{offset:new BMap.Size(20,-10)});'
102 + 'marker.setLabel(label);'
103 + 'map.panTo(centerpoint);'
104 +'}'
105
106 +'function SetAutoCenterPoint(newlng,newlat){'
107 +'centerpoint=new BMap.Point(newlng,newlat);'
108 + 'var marker = new BMap.Marker(centerpoint);'
109 + 'map.addOverlay(marker);'
110 + 'var label = new BMap.Label("4S店坐标",{offset:new BMap.Size(20,-10)});'
111 + 'marker.setLabel(label);'
112 + 'map.panTo(centerpoint);'
113 +'}'
114
115 +'function PrintLine(newlng,newlat,oldlng,oldlat,biaoji){'
116 +'var point = new BMap.Point(newlng,newlat);' // 创建点坐标
117 + 'map.panTo(point);'
118 // + 'if (biaoji=''0'')'
119 // +'{'
120 // + 'var marker = new BMap.Marker(point);'
121 // + 'map.addOverlay(marker);'
122 // +'}'
123 + 'var polyline = new BMap.Polyline(['
124 + 'new BMap.Point(oldlng,oldlat),'
125 + 'new BMap.Point(point.lng, point.lat)'
126 + '], {strokeColor:"blue", strokeWeight:4, strokeOpacity:0.5});'
127 + 'map.addOverlay(polyline);'
128 +'}'
129
130 +'function GetCenter(){'
131 +' var center = map.getCenter();'
132 +' document.getElementById("centerweidu").innerHTML = center.lng;'
133 +' document.getElementById("centerjingdu").innerHTML = center.lat;'
134 +'}'
135 +'function Distance(newlng,newlat){'
136 +'var pointA=centerpoint;'
137 +'var pointB=new BMap.Point(newlng,newlat);'
138 +'document.getElementById("Distance").innerHTML = map.getDistance(pointA,pointB);'
139 +'alert(''距离是：''+map.getDistance(pointA,pointB)+'' 米。'');'
140 // +'return map.getDistance(pointA,pointB);'
141 +'}'
142 + '</script>'
143 + '</body>'
144 + '</html>';
145 implementation
146
147 {$R *.dfm}
148
149 procedure TF_map.AppMsg(var Msg: TagMsg; var Handled: Boolean);
150 var
151 mPoint: TPoint;
152 begin
153 if IsChild(WebBrowser.Handle, Msg.Hwnd) and (Msg.Message = WM_MOUSEMOVE) then
154 begin
155 GetCursorPos(mPoint);
156 GetWebContent;
157 Handled := True;
158 end;
159 end;
160
161 function JavaScript(j: string): Boolean;
162 begin
163 try
164 // (F_map.WebBrowser.Document as IHTMLDocument2).parentWindow.execScript(j, 'JavaScript');
165 F_map.WebBrowser.OleObject.Document.parentWindow.execScript(j,
166 'JavaScript');
167 Result := True;
168 except
169 Result := false;
170 end;
171 end;
172
173 procedure TF_map.btn1Click(Sender: TObject);
174 var
175 str: string;
176 begin
177 self.WebBrowser.OleObject.Document.parentWindow.execScript('GetCenter()',
178 'JavaScript');
179 end;
180
181 procedure TF_map.btn2Click(Sender: TObject);
182 var
183 str: string;
184 begin
185 if (Edit1.Text <> '') and (Edit2.Text <> '') then
186 begin
187 self.WebBrowser.OleObject.Document.parentWindow.execScript
188 ('Distance(' + Edit1.Text + ',' + Edit2.Text + ')', 'JavaScript');
189 end;
190 end;
191
192 procedure TF_map.btn3Click(Sender: TObject);
193 var
194 biaoji: string;
195 begin
196 if lng = '' then
197 begin
198 lng := '126.666431'; // 126.666431,45.764502
199 end;
200 if lat = '' then
201 begin
202 lat := '45.764502';
203 end;
204 if chk1.Checked then
205 begin
206 biaoji := '1';
207 end
208 else
209 begin
210 biaoji := '0';
211 end;
212 if (Edit1.Text <> '') and (Edit2.Text <> '') then
213 begin
214 self.WebBrowser.OleObject.Document.parentWindow.execScript
215 ('PrintLine(' + Edit1.Text + ',' + Edit2.Text + ',' + lng + ',' + lat +
216 ',' + biaoji + ')', 'JavaScript');
217 lng := self.Edit1.Text;
218 lat := self.Edit2.Text;
219 end;
220 end;
221
222 procedure TF_map.btn4Click(Sender: TObject);
223 begin
224 loadweb;
225 lng := '';
226 lat := '';
227 end;
228
229 procedure TF_map.Button1Click(Sender: TObject);
230 var
231 str: string;
232 begin
233 if (Edit3.Text <> '') and (Edit4.Text <> '') then
234 begin
235 self.WebBrowser.OleObject.Document.parentWindow.execScript
236 ('SetAutoCenterPoint(' + Edit3.Text + ',' + Edit4.Text +
237 ')', 'JavaScript');
238 end;
239 end;
240
241 procedure TF_map.loadweb();
242 var
243 sl: TStringList;
244 ms: TMemoryStream;
245 begin
246 self.WebBrowser.Silent := True;
247 WebBrowser.Navigate('about:blank'); (WebBrowser.Document as IHTMLDocument2)
248 .URL := 'http://127.0.0.1/';
249 while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do
250 Application.ProcessMessages;
251 if Assigned(WebBrowser.Document) then
252 begin
253 sl := TStringList.Create;
254 try
255 ms := TMemoryStream.Create;
256 try
257 sl.Text := Doc1;
258 sl.SaveToStream(ms);
259 ms.Seek(0, 0); (WebBrowser.Document as IPersistStreamInit)
260 .Load(TStreamAdapter.Create(ms));
261 finally
262 ms.Free;
263 end;
264 finally
265 sl.Free;
266 end;
267 end;
268 end;
269
270 procedure TF_map.tmr1Timer(Sender: TObject);
271 begin
272 GetWebContent;
273 end;
274
275 procedure TF_map.FormCreate(Sender: TObject);
276 begin
277 loadweb;
278 //Application.OnMessage:=AppMsg;
279 end;
280
281 procedure TF_map.FormShow(Sender: TObject);
282 begin
283 lng := '';
284 lat := '';
285 tmr1.Enabled := True;
286 end;
287
288 procedure TF_map.GetWebContent();
289 var
290 html: IHTMLDocument2; // 定义网页元素
291 submitbutton: OleVariant; // 定义按钮
292 centerweidu, centerjingdu, weidu, jingdu, weidutemp,
293 jingdutemp: IHTMLElement; // 定义网页输入元素
294 begin
295 try
296 html := self.WebBrowser.Document as IHTMLDocument2;
297 centerweidu := html.all.item('centerweidu', 0) as IHTMLElement;
298 centerjingdu := html.all.item('centerjingdu', 0) as IHTMLElement;
299 weidu := html.all.item('weidu', 0) as IHTMLElement;
300 jingdu := html.all.item('jingdu', 0) as IHTMLElement;
301 weidutemp := html.all.item('weidutemp', 0) as IHTMLElement;
302 jingdutemp := html.all.item('jingdutemp', 0) as IHTMLElement;
303 edt1.Text := centerweidu.innerText;
304 edt2.Text := centerjingdu.innerText;
305 edt3.Text := weidutemp.innerText;
306 edt4.Text := jingdutemp.innerText;
307 Edit1.Text := weidu.innerText;
308 Edit2.Text := jingdu.innerText;
309 except
310 end;
311 end;
312
313 end.View Code
转载于:https://www.cnblogs.com/FKdelphi/p/6006756.html
教程-Delphi调用百度地图API(XE8+WIN7)相关推荐
- python调用百度地图实现导航_python 怎么调用百度地图api
应用编程接口(Application programming interface,API)是一些预先定义的函数,目的是提供应用程序与开发人员基于某软件或硬件得以访问一组例程的能力,而又无需访问源码,或 ...
- 【c#】Form调用百度地图api攻略及常见问题
首先,在Form中调用百度地图api,我们需要使用webbrowser控件,这个在前面的文章中已经讲过了,可以参照(http://blog.csdn.net/buptgshengod/article/ ...
- C#调用百度地图API入门解决BMap未定义问题
本文主要是最近帮助好友研究JavaScript的百度地图API,同时显示到C# Winform界面.同时遇到了BMap未定义的错误(BMap is not defined)及解决方法.以前写过基于An ...
- 调用百度地图API出现 error inflating class com.baidu.mapapi.map.mapview
调用百度地图API出现 error inflating class com.baidu.mapapi.map.mapview 问题如下 本来以为解决了,但后来重新运行了一下,又坏了,然后改成原来的样子 ...
- python调用百度地图API爬取西安市POI数据
任务前提 做该项目之前,首先得有基础知识: 编程语言:python 编译工具:PyCharm 网络爬虫相关知识,xpath库,numpy,pandas等库. 任务准备: 去百度地图开放平台申请密匙:h ...
- c语言api获取百度地图,H5调用百度地图API获取地理位置
//获取当前位置 var geolocation = new BMap.Geolocation(); geolocation.getCurrentPosition(function(r){ alert ...
- java 地图api接口_Java调用百度地图API
本实战代码将使用百度地图的接口来实现以下功能: 1.确定输入地址的坐标 2.两个坐标的距离 其他的话,还要使用百度账户申请相关的api,具体见: http://lbsyun.baidu.com/ind ...
- Python调用百度地图api路径查询
通过调用百度地图api获取两个地点的距离和时间.参数详见百度地图api官方文档. # -*- coding: utf-8 -*- """ Created on Thu M ...
- centerandzoom 无效_Django调用百度地图api在地图上批量增加标记点
在调用百度地图api进行web开发时遇到了一个需求,我们需要在网页中内嵌一个div 然后在div中调用百度地图的js显示我们所需要的地区.根据需求坐标在地图上添加若干个标记点,并批量的为各个标记点设置 ...
最新文章
- 关于form标题提交的应用技巧(-)
- 京东Vue组件库NutUI 2.0发布：将支持跨平台！
- 记住这个网站：服务器相关数据统计网站 http://news.netcraft.com/
- python使用缩进来体现代码之间的逻辑关系-python使用缩进来体现代码之间的逻辑关系吗？...
- Linux查看程序端口占用情况【转】
- 网页编程从入门到精通 杨凡_学习计划丨西门子S7200编程从入门到精通
- 面向对象的写法，见到就添，持续更新。。。
- tensorflow 人面关键点识别_人工智能算法-图像识别项目
- 8，EasyNetQ-多态发布和订阅
- Cozmo机器人使用中文Scratch3编程案例（codelab）
- VCPKG 升级问题
- pytorch与街景识别学习笔记
- codeigniter 使用
- php a5打印设置,word设置打印A5文档的两种方法
- 如何免费pdf全部转化为word版
- 国家统计局：中国未现通货紧缩
- 计算机网络脆弱性评估方法研究
- easypoi 语法_语法微课初中英语语法复习大全
- 【服务器搭建个人网站】教程二：快速搭建我们服务器 进来看
- 工具 - 自动换IP投票软件使用图解
热门文章
- c++链表形参丢失_LeetCode 例题精讲 | 01 反转链表：如何轻松重构链表
- mysql读取sql脚本_Pandas直接读取sql脚本的方法
- matlab python比较_MATLAB与Python的比较
- 博达交换机镜像端口配置_“量身定制”的轨道交通工业以太网交换机，RT FORUM2019春季大会智慧解决方案12...
- java循环制作万年历,java使用Calendar制作万年历
- Apriltag可用图片：TAG16H5
- 修改ESP8266-01S MicroPython下载固件，看是否能够烧录程序
- 高压发生器的输出电压波形
- 马莉 - 人神共愤的处女座
- mysql blob 比较_MySQL下，text 、blob的比较