Einzelnen Beitrag anzeigen

Thom

Registriert seit: 19. Mai 2006
570 Beiträge
 
Delphi XE3 Professional
 
#2

AW: Google Maps über COM (Component Object Model)

  Alt 28. Dez 2010, 03:26
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;
demo_1.jpg
Anmerkung: Für den Screenshot wurde manuell auf den Kartentyp "Gelände" umgeschaltet.

Compilierte Demo:
Angehängte Dateien
Dateityp: zip SimpleMap.zip (190,7 KB, 541x aufgerufen)
Thomas Nitzschke

Geändert von Thom (28. Dez 2010 um 03:34 Uhr)
  Mit Zitat antworten Zitat