Delphi 2009 应用程序中的 Google 地图

发布于 2024-09-11 00:08:02 字数 1061 浏览 8 评论 0原文

在这个项目中，我的目标是在 Delphi 2009 中通过 GoogleMaps 创建一个软件，它就像这个但以不同的方式。在这个项目中，用户可以在地图上添加一个点，在图标旁边的每个点我都会添加一些信息，这些信息应该与图标相关，所以如果用户想单击其中一个点，信息将自动打开。我的问题是我可以创建信息，但是当我关闭它时我无法再次打开它。我该如何解决这个问题我的代码如下，非常感谢。

  procedure TfrmMain.btnAddMarkerClick(Sender: TObject);
var
   Doc2: IHTMLDocument2;
   Win2: IHTMLWindow2;
   latlng: String;
   information: String;
begin
   Doc2 := WebBrowser1.Document as IHTMLDocument2;
   Win2 := Doc2.parentWindow;
   information:='its a example';
    latlng := '"' + leLat.Text + '", "' + leLng.Text + '"';

  Win2.execScript('map.addOverlay(new GMarker(new GLatLng(' + latlng + ')) );', 'JavaScript');
  Win2.execScript('map.openInfoWindow(new GLatLng(' + latlng + '),document.createTextNode("'+information +'"));','JavaScript');

   end;

设计如下：替代文本 http://img829.imageshack.us/img829/8474/adszdi.png< /a>

原文

In this project my aim is to create a software via GoogleMaps in Delphi 2009, it will be like this one but in different way. In this project the user can add a point on the map and in every point beside the icon I will add some information and these information should be relate with the icon, so if the user want to click on one of them the information will open automatically. My problem is I can create the information but when I close it I can not open it again. How can I manage this problem my code as below, Thanks a lot.

  procedure TfrmMain.btnAddMarkerClick(Sender: TObject);
var
   Doc2: IHTMLDocument2;
   Win2: IHTMLWindow2;
   latlng: String;
   information: String;
begin
   Doc2 := WebBrowser1.Document as IHTMLDocument2;
   Win2 := Doc2.parentWindow;
   information:='its a example';
    latlng := '"' + leLat.Text + '", "' + leLng.Text + '"';

  Win2.execScript('map.addOverlay(new GMarker(new GLatLng(' + latlng + ')) );', 'JavaScript');
  Win2.execScript('map.openInfoWindow(new GLatLng(' + latlng + '),document.createTextNode("'+information +'"));','JavaScript');

   end;

The Design as below:
alt text http://img829.imageshack.us/img829/8474/adszdi.png

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

风情万种。 2024-09-18 00:08:02

@asilloo，Google 地图 API 不会保存您的标记，此信息仅在浏览器的当前会话中有效，如果您需要保留（存储）标记，您必须手动执行此操作，您可以使用数据库或xml 文件。我建议您使用 KML此任务的格式。

回复收藏 0 原文

时光暖心i 2024-09-18 00:08:02

我通过在 Delphi 中嵌入 Flash OCX 控件，使用 Google Maps Flex (Flash) API 创建了解决方案。对我来说它要快得多，并且我能够传递/检索复杂的参数。

也许你可以尝试一下：
http://www.delphiflash.com/

回复收藏 0 原文

怕倦 2024-09-18 00:08:02

您的代码中的问题是您没有保存对信息窗口的任何引用。显示了信息窗口，实际上，当您关闭它时，它就消失了。

如果我正确理解您想要什么，您应该将事件处理程序添加到您创建的标记中。

您应该这样做：

创建一个标记对象
附加一个 onclick 事件处理程序。在该事件处理程序中，您打开信息窗口
将标记添加到地图

代码：（

Win2.execScript('var marker=new GMarker(new GLatLng(' + latlng + '));', 'JavaScript');
Win2.execScript('GEvent.addListener(marker, "click", function() { marker.openInfoWindowHtml("'+information +'"); });', 'JavaScript');
Win2.execScript('map.addOverlay(marker);', 'JavaScript');

抱歉，如果这里有一些语法错误。我已经在 stackoverflow 上的这个蹩脚文本框中编辑了它）

让我知道它是否有效...

The problem in your code is that you don't save any reference to the infowindow. The infowindow is shown, and indeed, when you close it, it's gone.

If I understand what you want correctly, you should add an eventhandler to the markers that you create.

You should do it like this:

Create a marker object
Attach an onclick event handler. In that event handler you open the info window
Add the marker to the map

Code:

Win2.execScript('var marker=new GMarker(new GLatLng(' + latlng + '));', 'JavaScript');
Win2.execScript('GEvent.addListener(marker, "click", function() { marker.openInfoWindowHtml("'+information +'"); });', 'JavaScript');
Win2.execScript('map.addOverlay(marker);', 'JavaScript');

(sorry if there are some syntax errors here.. I've edited it in this crappy textbox on stackoverflow)

Let me know if it works...

回复收藏 0 原文

~没有更多了~