码迷,mamicode.com
首页 > Windows程序 > 详细

教程-Delphi调用百度地图API(XE8+WIN7)

时间:2018-01-25 21:53:24      阅读:266      评论:0      收藏:0      [点我收藏+]

标签:title   boolean   bool   gms   baidu   rand   apc   graph   messages   

unit U_map;

interface
//---------------------------------------------------//
//----------COPY BY 无言 QQ:4252181 -----------------//
//---------------------------------------------------//
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls, MSHTML, StrUtils, ActiveX,
  ExtCtrls;
//---------------------------------------------------//
//----------欢迎大家和我联系,软件开发 --------------//
//---------------------------------------------------//
type
  TF_map = class(TForm)
    grp1: TGroupBox;
    WebBrowser: TWebBrowser;
    grp2: TGroupBox;
    grp3: TGroupBox;
    grp4: TGroupBox;
    tmr1: TTimer;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    chk1: TCheckBox;
    Edit3: TEdit;
    Edit4: TEdit;
    edt1: TEdit;
    edt2: TEdit;
    edt3: TEdit;
    edt4: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure loadweb();
    procedure btn4Click(Sender: TObject);
    procedure AppMsg(var Msg: TagMsg; var Handled: Boolean);
    procedure GetWebContent();
    procedure tmr1Timer(Sender: TObject);
  private
    { Private declarations }
    lng, lat: string;
  public
    { Public declarations }
  end;

var
  F_map: TF_map;
  const
  Doc1: string = <html>
  + <head>
  + <meta name="viewport" content="initial-scale=1.0, user-scalable=no" />
  + <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  + <title>BAIDU MAP</title>
  + <style type="text/css">
  + html{height:100%} + body{height:100%;margin:0px;padding:0px}
  + #container{height:100%}
  + </style>
  + <script type="text/javascript"src="http://api.map.baidu.com/api?v=1.3"></script>
  + </head>
  + <body>
  + <div id="container"></div>
  //style="visibility:hidden; display:none">
  +<div id="centerweidu" style="visibility:hidden; display:none"></div>
  +<div id="centerjingdu" style="visibility:hidden; display:none"></div>
  +<div id="weidutemp" style="visibility:hidden;display:none"></div>
  +<div id="jingdutemp" style="visibility:hidden;display:none"></div>
  +<div id="weidu" style="visibility:hidden;display:none"></div>
  +<div id="jingdu" style="visibility:hidden;display:none"></div>
  +<div id="Distance" style="visibility:hidden;display:none"></div>
  + <script language="JavaScript" type="text/javascript">
  + var map = new BMap.Map("container");  // 创建地图实例
  + map.addControl(new BMap.NavigationControl());
  + map.addControl(new BMap.ScaleControl());
  + map.addControl(new BMap.OverviewMapControl());
  + map.addControl(new BMap.MapTypeControl(BMAP_ANCHOR_BOTTOM_RIGHT));   // 将标注添加到地图中
  + map.enableScrollWheelZoom();                  // 启用滚轮放大缩小。
  + map.enableKeyboard();                         // 启用键盘操作。
  + var centerpoint = new BMap.Point(126.666431,45.764502); // 创建点坐标  126.666431, 45.764502
  + var marker = new BMap.Marker(centerpoint);        // 创建标注
  + map.addOverlay(marker);
  + var label = new BMap.Label("哈尔滨海铭科技有限公司",{offset:new BMap.Size(20,-10)});
  + marker.setLabel(label);
  + map.centerAndZoom(centerpoint, 15); // 初始化地图,设置中心点坐标和地图级别‘

  + map.addEventListener("mousemove", function(e){
  + document.getElementById("weidutemp").innerHTML = e.point.lng;
  + document.getElementById("jingdutemp").innerHTML =  e.point.lat;});
  + map.addEventListener("click", function(f){
  + document.getElementById("weidu").innerHTML = f.point.lng;
  + document.getElementById("jingdu").innerHTML =  f.point.lat;});

  +function SetCarCenterPoint(newlng,newlat){
  +centerpoint=new BMap.Point(newlng,newlat);
  + var marker = new BMap.Marker(centerpoint);
  + map.addOverlay(marker);
  + var label = new BMap.Label("当前汽车坐标",{offset:new BMap.Size(20,-10)});
  + marker.setLabel(label);
  + map.panTo(centerpoint);
  +}

  +function SetAutoCenterPoint(newlng,newlat){
  +centerpoint=new BMap.Point(newlng,newlat);
  + var marker = new BMap.Marker(centerpoint);
  + map.addOverlay(marker);
  + var label = new BMap.Label("4S店坐标",{offset:new BMap.Size(20,-10)});
  + marker.setLabel(label);
  + map.panTo(centerpoint);
  +}

  +function PrintLine(newlng,newlat,oldlng,oldlat,biaoji){
  +var point = new BMap.Point(newlng,newlat); // 创建点坐标
  + map.panTo(point);
//  + ‘if (biaoji=‘‘0‘‘)‘
//  +‘{‘
//  + ‘var marker = new BMap.Marker(point);‘
//  + ‘map.addOverlay(marker);‘
//  +‘}‘
  + var polyline = new BMap.Polyline([
  + new BMap.Point(oldlng,oldlat),
  + new BMap.Point(point.lng, point.lat)
  + ], {strokeColor:"blue", strokeWeight:4, strokeOpacity:0.5});
  + map.addOverlay(polyline);
  +}

  +function GetCenter(){
  + var center = map.getCenter();
  + document.getElementById("centerweidu").innerHTML = center.lng;
  + document.getElementById("centerjingdu").innerHTML = center.lat;
  +}
  +function Distance(newlng,newlat){
  +var pointA=centerpoint;
  +var pointB=new BMap.Point(newlng,newlat);
  +document.getElementById("Distance").innerHTML = map.getDistance(pointA,pointB);
  +alert(‘‘距离是:‘‘+map.getDistance(pointA,pointB)+‘‘ 米。‘‘);
 // +‘return map.getDistance(pointA,pointB);‘
  +}
  + </script>
  + </body>
  + </html>;
implementation

{$R *.dfm}

procedure TF_map.AppMsg(var Msg: TagMsg; var Handled: Boolean);
var
  mPoint: TPoint;
begin
  if IsChild(WebBrowser.Handle, Msg.Hwnd) and (Msg.Message = WM_MOUSEMOVE) then
  begin
    GetCursorPos(mPoint);
    GetWebContent;
    Handled := True;
  end;
end;

function JavaScript(j: string): Boolean;
begin
  try
    // (F_map.WebBrowser.Document as IHTMLDocument2).parentWindow.execScript(j, ‘JavaScript‘);
    F_map.WebBrowser.OleObject.Document.parentWindow.execScript(j,
      JavaScript);
    Result := True;
  except
    Result := false;
  end;
end;

procedure TF_map.btn1Click(Sender: TObject);
var
  str: string;
begin
  self.WebBrowser.OleObject.Document.parentWindow.execScript(GetCenter(),
    JavaScript);
end;

procedure TF_map.btn2Click(Sender: TObject);
var
  str: string;
begin
  if (Edit1.Text <> ‘‘) and (Edit2.Text <> ‘‘) then
  begin
    self.WebBrowser.OleObject.Document.parentWindow.execScript
      (Distance( + Edit1.Text + , + Edit2.Text + ), JavaScript);
  end;
end;

procedure TF_map.btn3Click(Sender: TObject);
var
  biaoji: string;
begin
  if lng = ‘‘ then
  begin
    lng := 126.666431; // 126.666431,45.764502
  end;
  if lat = ‘‘ then
  begin
    lat := 45.764502;
  end;
  if chk1.Checked then
  begin
    biaoji := 1;
  end
  else
  begin
    biaoji := 0;
  end;
  if (Edit1.Text <> ‘‘) and (Edit2.Text <> ‘‘) then
  begin
    self.WebBrowser.OleObject.Document.parentWindow.execScript
      (PrintLine( + Edit1.Text + , + Edit2.Text + , + lng + , + lat +
        , + biaoji + ), JavaScript);
    lng := self.Edit1.Text;
    lat := self.Edit2.Text;
  end;
end;

procedure TF_map.btn4Click(Sender: TObject);
begin
  loadweb;
  lng := ‘‘;
  lat := ‘‘;
end;

procedure TF_map.Button1Click(Sender: TObject);
var
  str: string;
begin
  if (Edit3.Text <> ‘‘) and (Edit4.Text <> ‘‘) then
  begin
    self.WebBrowser.OleObject.Document.parentWindow.execScript
      (SetAutoCenterPoint( + Edit3.Text + , + Edit4.Text +
        ), JavaScript);
  end;
end;

procedure TF_map.loadweb();
var
  sl: TStringList;
  ms: TMemoryStream;
begin
  self.WebBrowser.Silent := True;
  WebBrowser.Navigate(about:blank); (WebBrowser.Document as IHTMLDocument2)
  .URL := http://127.0.0.1/;
  while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do
    Application.ProcessMessages;
  if Assigned(WebBrowser.Document) then
  begin
    sl := TStringList.Create;
    try
      ms := TMemoryStream.Create;
      try
        sl.Text := Doc1;
        sl.SaveToStream(ms);
        ms.Seek(0, 0); (WebBrowser.Document as IPersistStreamInit)
        .Load(TStreamAdapter.Create(ms));
      finally
        ms.Free;
      end;
    finally
      sl.Free;
    end;
  end;
end;

procedure TF_map.tmr1Timer(Sender: TObject);
begin
  GetWebContent;
end;

procedure TF_map.FormCreate(Sender: TObject);
begin
  loadweb;
  //Application.OnMessage:=AppMsg;
end;

procedure TF_map.FormShow(Sender: TObject);
begin
  lng := ‘‘;
  lat := ‘‘;
  tmr1.Enabled := True;
end;

procedure TF_map.GetWebContent();
var
  html: IHTMLDocument2; // 定义网页元素
  submitbutton: OleVariant; // 定义按钮
  centerweidu, centerjingdu, weidu, jingdu, weidutemp,
    jingdutemp: IHTMLElement; // 定义网页输入元素
begin
  try
    html := self.WebBrowser.Document as IHTMLDocument2;
    centerweidu := html.all.item(centerweidu, 0) as IHTMLElement;
    centerjingdu := html.all.item(centerjingdu, 0) as IHTMLElement;
    weidu := html.all.item(weidu, 0) as IHTMLElement;
    jingdu := html.all.item(jingdu, 0) as IHTMLElement;
    weidutemp := html.all.item(weidutemp, 0) as IHTMLElement;
    jingdutemp := html.all.item(jingdutemp, 0) as IHTMLElement;
    edt1.Text := centerweidu.innerText;
    edt2.Text := centerjingdu.innerText;
    edt3.Text := weidutemp.innerText;
    edt4.Text := jingdutemp.innerText;
    Edit1.Text := weidu.innerText;
    Edit2.Text := jingdu.innerText;
  except
  end;
end;

end.

 

教程-Delphi调用百度地图API(XE8+WIN7)

标签:title   boolean   bool   gms   baidu   rand   apc   graph   messages   

原文地址:https://www.cnblogs.com/westsoft/p/8353111.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!