Google Maps über COM (Component Object Model)

[Thom]

Beispiel 1
Erstellung einer einfachen Karte

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var
  Options: TMapOptions;
begin
  WebBrowser1.Navigate('about:blank');
  with TScript.Create(WebBrowser1) do                            //Skript-Objekt erstellen
  begin
    LoadBrowserFromSource(WebBrowser1,                           //leere Seite:
                          HTMLPage(true,                         //- MIT Google Maps API
                                   false,                        //- OHNE GPS-Sensor
                                   'div_map'),                   //- MIT Div-Container für die Karte
                          true);                                 //warten, bis die Seite komplett geladen wurde
    Options:=TMapOptions.Create;                                 //Options-Objekt anlegen
    with Options do
    begin
      Zoom:=13;                                                  //Zoom
      Center:=Google.Maps.LatLng(-25.3455315,131.0333570);       //Kartenzentrum
      MapTypeID:=Google.Maps.MapTypeId.SATELLITE;                //Kartentyp
    end;
    Google.Maps.Map(Document.GetElementById('div_map'),Options); //Karten-Objekt anlegen
  end;
end;

Anmerkung: Für den Screenshot wurde manuell auf den Kartentyp "Gelände" umgeschaltet.

Compilierte Demo: