个人中心
gpt4 book ai didi

javascript - 无法作为交 key 系统在 map 上绘制位置

转载 作者：行者123 更新时间：2023-12-03 05:27:26 26 4
gpt4 key购买 nike

我有一个简单的自定义浏览器，可以显示运行良好的谷歌地图。我想要做的是使其成为一个交 key 表单，在打开时显示个人的位置并将其绘制在 map 上。

这是一个证明这个概念的小测试程序。

如果我通过显示表单并将值添加到编辑框并运行 ButtonGotoLocation 过程来添加位置，则每次都会有效。

如果我将其设置为交 key 系统，即调用 HTMLWindow2.execScript(Format('GotoLatLng(%s,%s)',['34','-84.00']), 'JavaScript');

我什至尝试创建表单并显示它，然后从调用表单调用过程。结果相同；

这是一个奇怪的并发问题吗？这就是为什么我使用外部程序但无济于事。

unit uStreetMap;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls, ExtCtrls, XPMan, ComCtrls,MSHTML;

type
  TfrmMain = class(TForm)
    WebBrowser1: TWebBrowser;
    LabelAddress: TLabel;
    PanelHeader: TPanel;
    ButtonGotoLocation: TButton;
    XPManifest1: TXPManifest;
    MemoAddress: TMemo;
    ButtonGotoAddress: TButton;
    LabelLatitude: TLabel;
    LabelLongitude: TLabel;
    Longitude: TEdit;
    Latitude: TEdit;
    ButtonClearMarkers: TButton;

    procedure FormCreate(Sender: TObject);
    procedure ButtonGotoAddressClick(Sender: TObject);
    procedure ButtonGotoLocationClick(Sender: TObject);
    procedure ButtonClearMarkersClick(Sender: TObject);

    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
    HTMLWindow2: IHTMLWindow2;
    function UTCToSystemTime(UTC: TDateTime): TDateTime;
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

uses
   ActiveX, DateUtils;


{$R *.dfm}

const
HTMLStr: AnsiString =
'<html> '+
'<head> '+
'<meta name="viewport" content="initial-scale=1.0, user-scalable=yes" /> '+
'<script type="text/javascript" src="https://maps.googleapis.com/maps/api/js?v=3.24&amp;libraries=geometry"></script> '+
'<script type="text/javascript"> '+
''+
''+
'  var geocoder; '+
'  var map;  '+
'  var markersArray = [];'+
''+
''+
'  function initialize() { '+
'    geocoder = new google.maps.Geocoder();'+
'    var latlng = new google.maps.LatLng(40.714776,-74.019213); '+
'    var myOptions = { '+
'      zoom: 13, '+
'      center: latlng, '+
'      mapTypeId: google.maps.MapTypeId.ROADMAP '+
'    }; '+
'    map = new google.maps.Map(document.getElementById("map_canvas"), myOptions); '+
'    map.set("streetViewControl", false);'+
'  } '+
''+
''+
'  function codeAddress(address) { '+
'    if (geocoder) {'+
'      geocoder.geocode( { address: address}, function(results, status) { '+
'        if (status == google.maps.GeocoderStatus.OK) {'+
'          map.setCenter(results[0].geometry.location);'+
'          PutMarker(results[0].geometry.location.lat(), results[0].geometry.location.lng(), results[0].geometry.location.lat()+","+results[0].geometry.location.lng());'+
'        } else {'+
'          alert("Geocode was not successful for the following reason: " + status);'+
'        }'+
'      });'+
'    }'+
'  }'+
''+
''+
'  function GotoLatLng(Lat, Lang) { '+
'   var latlng = new google.maps.LatLng(Lat,Lang);'+
'   map.setCenter(latlng);'+
'   PutMarker(Lat, Lang, Lat+","+Lang);'+
'  }'+
''+
''+
'function ClearMarkers() {  '+
'  if (markersArray) {        '+
'    for (i in markersArray) {  '+
'      markersArray[i].setMap(null); '+
'    } '+
'  } '+
'}  '+
''+
'  function PutMarker(Lat, Lang, Msg) { '+
'   var latlng = new google.maps.LatLng(Lat,Lang);'+
'   var marker = new google.maps.Marker({'+
'      position: latlng, '+
'      map: map,'+
'      title: Msg+" ("+Lat+","+Lang+")"'+
'  });'+
' markersArray.push(marker); '+
'  }'+
''+
''+
''+'</script> '+
'</head> '+
'<body onload="initialize()"> '+
'  <div id="map_canvas" style="width:100%; height:100%"></div> '+
'</body> '+
'</html> ';

这会导致异常，因为脚本错误“GotoLatLng”未定义

procedure TfrmMain.FormActivate(Sender: TObject);
begin
   HTMLWindow2.execScript(Format('GotoLatLng(%s,%s)',['34.00','-84.00']), 'JavaScript');
end;

构造函数

procedure TfrmMain.FormCreate(Sender: TObject);
var
  aStream     : TMemoryStream;
begin
   WebBrowser1.Navigate('about:blank');
    if Assigned(WebBrowser1.Document) then
    begin
      aStream := TMemoryStream.Create;
      try
         aStream.WriteBuffer(Pointer(HTMLStr)^, Length(HTMLStr));
         aStream.Seek(0, soFromBeginning);
         (WebBrowser1.Document as IPersistStreamInit).Load(TStreamAdapter.Create(aStream));
      finally
         aStream.Free;
      end;
      HTMLWindow2 := (WebBrowser1.Document as IHTMLDocument2).parentWindow;

    end;
end;

使用此过程效果很好。我在文本框中输入纬度/经度，然后单击按钮，一切顺利。

procedure TfrmMain.ButtonGotoLocationClick(Sender: TObject);
begin
   HTMLWindow2.execScript(Format('GotoLatLng(%s,%s)',[Latitude.Text,Longitude.Text]), 'JavaScript');
end;

但是如果我尝试让表单在 map 上显示位置(作为 key )，我会收到错误。

procedure TfrmMain.ButtonClearMarkersClick(Sender: TObject);
begin
  HTMLWindow2.execScript('ClearMarkers()', 'JavaScript')
end;

procedure TfrmMain.ButtonGotoAddressClick(Sender: TObject);
var
   address    : string;
begin
   address := MemoAddress.Lines.Text;
   address := StringReplace(StringReplace(Trim(address), #13, ' ', [rfReplaceAll]), #10, ' ', [rfReplaceAll]);
   HTMLWindow2.execScript(Format('codeAddress(%s)',[QuotedStr(address)]), 'JavaScript');
end;


end.

最佳答案

好的，这就是我所做的。我在表单上放置了一个 TTimer 来执行调用 GotoLatLng 的脚本。由于我找不到使用信号 WaitForSingleObject 的句柄，这是我能做的最好的事情。我把它设置为1700毫秒，看起来时间足够了。我还将 Map 创建从单元构造函数移到了表单构造函数中。

一切都很好。

关于javascript - 无法作为交 key 系统在 map 上绘制位置，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/41094913/

26 4 0
文章推荐： javascript - Ajax在php中发布 undefined index
文章推荐： javascript - 如何将对全局变量的更改应用于函数内同名的其他变量？
文章推荐： javascript - UIB 选项卡集不起作用
文章推荐： javascript - angular2使用http读取json文件
行者123
个人简介

我是一名优秀的程序员,十分优秀！

滴滴打车优惠券免费领取
滴滴打车优惠券
全站热门文章
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com