AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte Google Maps über COM (Component Object Model)
Thema durchsuchen
Ansicht
Themen-Optionen

Google Maps über COM (Component Object Model)

Ein Thema von Thom · begonnen am 23. Dez 2010 · letzter Beitrag vom 22. Mai 2022
 
Thom

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

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

  Alt 25. Jan 2011, 14:14
Hallo Stefan, vielen Dank für das Lob!
Ich hoffe, Du konntest das Framework inzwischen etwas testen.

Vielen Dank an Markus Delphi für das Testen unter Delphi 7 und die Hinweise dazu!

Vielen Dank auch an die ADUG in Sydney, die es mir ermöglicht hat, per LiveMeeting an ihrem Treffen teilnehmen zu können! Das war für mich eine sehr interessante Erfahrung.

Einen besonderen Dank und viele Grüße an AndreFM!

Auch an Baoquan Zuo (Paul) aus Shanghai einen herzlichen Dank für die Lizenz zum IDE-Plugin Documentation Insight!
Die ersten 3 Units habe ich mit seiner Hilfe schon dokumentiert.

Bei so viel Interesse muss ich natürlich weitermachen. Deshalb folgt hier eine weitere Demo:

Beispiel 10
Nutzung eigener Bilder für die Darstellung der Karte

Ein interessanter Aspekt ist die Möglichkeit, das Google Maps API für die Anzeige eigener Karten und Bilder zu verwenden. Damit stehen alle Möglichkeiten wie Zoom, Verschiebung, Marker, Info-Fenster und grafische Elemente zur Verfügung.

Wie wäre es, die Mondoberfläche darzustellen? Diese Beispiel zeigt, wie es geht.

Doch wie kann das jetzt mit Delphi umgesetzt werden?
Um das Gesamtbild darstellen zu können, muss dem API mitgeteilt werden, woher es die einzelnen Teile - die Bildkacheln - bekommt.
Dazu wird die Klasse TImageMapTypeOptions genommen, mit dessen Hilfe ein TImageMapType-Objekt erstellt wird.

Bei der Initialisierung der Optionen wird neben den Werten für die Größe der Bildkacheln unter anderem die Funktion GetTileUrl festgelegt, die bei ihrem Aufruf die Koordinaten den angeforderten Kachel und die aktuelle Zoomstufe der Karte übergeben bekommt. Daraus muss sie eine URL generieren, von der die benötigte Bildkachel geladen werden kann.

Praktisch sieht das so aus:
Delphi-Quellcode:
procedure TForm1.FormShow(Sender: TObject);
var
  Map: TMap;
  MapOptions: TMapOptions;
  MoonMapTypeOptions: TImageMapTypeOptions;
  MoonMapType: TImageMapType;
begin
  //...
  //Layer anlegen:
  MoonMapTypeOptions:=TImageMapTypeOptions.Create; //Options-Objekt anlegen
  with MoonMapTypeOptions do
  begin
    GetTileUrl:=self.GetTileUrl; //Callback-Funktion zur Lieferung des Kartenausschnittes
    TileSize:=Google.Maps.Size(256,256); //Größe der einzelnen Bildkacheln
    IsPng:=false; //kein PNG-Bild
    MaxZoom:=9;
    MinZoom:=0;
    Radius:=1738000;
    Name:='Moon'; //Layername
  end;
  MoonMapType:=Google.Maps.ImageMapType(MoonMapTypeOptions); //Layer-Objekt anlegen
  //Karte anlegen:
  MapOptions:=TMapOptions.Create; //Options-Objekt anlegen
  with MapOptions do
  begin
    Zoom:=1; //Zoom
    Center:=Google.Maps.LatLng(0,0); //Kartenzentrum
    MapTypeID:=Google.Maps.MapTypeId.Satellite; //Kartentyp
    MapTypeControlOptions.MapTypeIDs.Add('moon'); //Layer der Karte zuweisen
    StreetViewControl:=false; //auf dem Mond spazieren gehen!? ;-)
  end;
  Map:=Google.Maps.Map(Document.GetElementById('div_map'),
                       MapOptions); //Karten-Objekt anlegen
  Map.MapTypes.Set('moon',MoonMapType);
  Map.SetMapTypeID('moon'); //Layer anzeigen
  //...
end;

function TForm1.GetTileUrl(Sender: TObject; Point: TPoint; Zoom: Integer): String;
begin
  //URL für Point unter Berücksichtigung von Zoom zusammenstellen
  Result:=...;
end;
Klicke auf die Grafik für eine größere Ansicht

Name:	Demo_10.jpg
Hits:	106
Größe:	50,4 KB
ID:	33162

Compilierte Exe:
Angehängte Dateien
Dateityp: zip ImageMapTypes.zip (277,9 KB, 194x aufgerufen)
Thomas Nitzschke

Geändert von Thom (25. Jan 2011 um 14:21 Uhr)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

(?)

LinkBack to this Thread

Erstellt von For Type Datum
DELPHI | (google maps) This thread Refback 11. Nov 2011 09:07
Twebbrowser HTML tag to UniHTMLFrame1 - uniGUI Discussion Forums This thread Refback 4. Nov 2011 06:52
DoraDev1975: google maps This thread Refback 23. Sep 2011 08:18
delphi osm - Google Search Post #0 Refback 19. Sep 2011 09:02
DoraDev1975: ?ิ????? 2011 This thread Refback 11. Sep 2011 16:39
DoraDev1975 This thread Refback 30. Aug 2011 10:13
Untitled document This thread Refback 25. Jun 2011 19:57
Interact with Google Maps in a TWebBrowser from Delphi | Ramblings This thread Refback 26. Jan 2011 05:12
google maps mit delphi link - Google Search This thread Refback 24. Jan 2011 14:24
google maps mit delphi - Google Search This thread Refback 24. Jan 2011 14:20
Untitled document This thread Refback 19. Jan 2011 21:49

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:12 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz