delphi - TWebBrowser 中的谷歌街景

Question

有没有人成功地让 StreetView 显示在 TWebBrowser 控件中？

我想以编程方式构建一个 Url 并让它以简单的 Delphi 形式显示。

到目前为止，这是我对该表格的了解:

unit frmSView;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls;

type
  TfrmStreetView = class(TForm)
    browserStreetView: TWebBrowser;
    txtAddress: TEdit;
    procedure txtAddressExit(Sender: TObject);
    procedure ShowSV(Lat: string; Lon: string);
  private
    // private declarations
  public
    // public declarations
  end;

var
  frmStreetView: TfrmStreetView;

implementation

{$R *.dfm}

procedure TfrmStreetView.ShowSV(Lat: string; Lon: string);
var
  Addr: string;
  Flags: OleVariant;
begin
  Addr := 'http://maps.google.com/maps?q=&&layer=c&&cbll=' + Lat + ',' + Lon + '&&cbp=12,0,0,0,0&&output=svembed';
  browserStreetView.Navigate(Addr, Flags, Flags, Flags, Flags);
  txtAddress.Text := Addr;
  ShowModal;
end;

procedure TfrmStreetView.txtAddressExit(Sender: TObject);
var
  Flags: OleVariant;
begin
  browserStreetView.Navigate(txtAddress.Text, Flags, Flags, Flags, Flags);
end;

end.

当表单显示时:

• 如果该位置没有街景信息，我将获得常规 map View 。
• 如果有街景信息(在另一个浏览器窗口中验证)，它只是显示一个灰色屏幕。

我猜 Flash 播放器没有加载。

你们有什么想法吗？

问候，

西蒙

Answer 1

你看过DelphiMaps project了吗？ ？说明:

The DelphiMaps library is a set of Delphi components that aim to make it easy for developers to incorporate GIS functionality in their applications.

The package contains wrappers for:

• Google Maps API (v3)
• Google/Openstreetmap Static Maps
• Google Geocoding API
• Google Directions API
• Google StreetView

Rodrigo Ruz 发布了一个 fully functional example 2010 年在他的博客上。