Google Maps über COM (Component Object Model)

[Thom]

Hi ReM,

use a list for the second group:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  [...]
  private
    FGroup2: TList;
  [...]  
  end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FGroup2:=TList.Create;
end;

procedure TForm1.CreateMarkersFromGroup2;
var
  n: Integer;
  Marker: TMarker;
begin
  with Script do
  begin
    for n:=0 to ... do
    begin
      Marker:=New(Google.Maps.Marker(...));
      FGroup2.Add(Marker);
    end;
  end;
end;

procedure TForm1.HideGroup2;
var
  n: Integer;
begin
  for n:=0 to FGroup2.Count-1 do
    TMarker(FGroup2[n]).SetMap(nil);
end;

Another possibility is to store the markers individually:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  [...]
  private
    FMarker1,
    FMarker2,
    FMarker3,
    ...: TMarker;
  [...]  
  end;

procedure TForm1.HideMarker1;
begin
  FMarker1.SetMap(nil);
end;

@mkinzler:

Diese Lösung würde mich interessieren. Soweit mir bekannt ist, rendert Google Maps alle Marker in einen gemeinsamen Layer (DIV-Element) (außer bei KML-Dateien, wobei dann aber keine "echten" Marker erstellt werden).
Wie steuerst Du die Zuordnung eines Markers zu einem bestimmten Layer bzw. "Background"?

[ReM]

Thanks, Thom.

I get error E2251 Ambiguous overloaded call to 'SetMap'
on line
TMarker(FGroup2[n]).SetMap(nil);

Delphi 2009.

[Thom]

Yes, sorry! Make a type cast:

Delphi-Quellcode:

TMarker(FGroup2[n]).SetMap(TMap(nil));
//...

[ReM]

Thanks Thom. All works OK.
One more question:
how I can know, that the marker is outside of the visible map?

[Thom]

This is nice!

Delphi-Quellcode:

  if Map.GetBounds.Contains(Marker.GetPosition)
    then ShowMessage('Marker is visible');

[DelphiFan2008]

Hallo Thom,

ich experimentiere gerade mit "Direction Draggable" und habe ein paar Fragen zu Erweiterungen, welche in der Web-Applikation Motoplaner verwendet wird
- wie kann ich Positions-Marker wieder löschen, vgl. Klick auf Marker -> Dialog
- wie kann ich das Aussehen des Positions-Marker verändern -> verschiebbarer Positions-Marker Bsp. Rund mit Plus
- wie kann ich den Maus-Cursor verändern Bsp. auf freier Karte Fadenkreuz
- wie kann ich die aktuelle Position des Positions-Marker LAT/LNG evntl. HÖHE ermitteln
- wie kann ich am einfachsten die Route bzw. Punkte aus GoogleMap in Delphi speichern und wieder aus Delphi in GoogleMap übertragen
- wie kann ich die aktuelle Länge der gesamten Route und von ersten Punkt zum verschiebbaren Positions-Marker ermitteln
und last but not least
- wie kann ich eine Liste (Track) aus der Route erzeugen Bsp. alle 100m entlang der Route LAT/LNG und evntl. HÖHE ermitteln und als Liste abspeichern

Viele Fragen, vielleicht für die einfache Antworten

Gruß DelphiFan2008

[EWeiss]

Muss auch mal loben!
Feines Projekt.

gruss

[Thom]

@DelphiFan:

Zitat von DelphiFan2008:

[...] ich experimentiere gerade mit "Direction Draggable" und habe ein paar Fragen zu Erweiterungen, welche in der Web-Applikation Motoplaner verwendet wird [...]

Das ist unglücklicherweise eine Anwendung, die noch die Version 2 des API's (deprecated) verwendet. Schau Dich mal um, ob Du eine vergleichbare Karte findest, die das aktuelle API verwendet. Dann könntest Du Dir den JavaScript-Quelltext anschauen und sinngemäß mit Delphi nachbauen.

Zitat von DelphiFan2008:

- wie kann ich Positions-Marker wieder löschen, vgl. Klick auf Marker -> Dialog

Marker allgemein unsichtbar machen: Marker.SetMap(TMap(nil)).
Marker in einer Route: Diese Marker werden vom TDirectionsRenderer-Objekt automatisch bei allen Zwischenpunkten gesetzt. Zugriff erhält man darauf über das TDirectionsResult-Objekt (DirectionsRenderer.GetDirections). Hier müßte als der Zwischenpunkt entfernt werden.

Zitat von DelphiFan2008:

- wie kann ich das Aussehen des Positions-Marker verändern -> verschiebbarer Positions-Marker Bsp. Rund mit Plus

Über das TDirectionsRendererOptions-Objekt (DirectionsRendererOptions.MarkerOptions).

Zitat von DelphiFan2008:

- wie kann ich den Maus-Cursor verändern Bsp. auf freier Karte Fadenkreuz

Über das TMapOptions-Objekt (MapOptions.DraggableCursor).

Zitat von DelphiFan2008:

- wie kann ich die aktuelle Position des Positions-Marker LAT/LNG evntl. HÖHE ermitteln

Mit dem TElevationService-Objekt (ElevationService.GetElevationForLocations(...));

Zitat von DelphiFan2008:

- wie kann ich am einfachsten die Route bzw. Punkte aus GoogleMap in Delphi speichern und wieder aus Delphi in GoogleMap übertragen

Datenbank, Ini-Datei, KML-Datei, ... je nach Vorliebe. Die direkte Unterstützung von KML-Dateien durch das Framework ist in Planung. Momentan arbeite ich an der Unterstützung des JSON-Formats.

Zitat von DelphiFan2008:

- wie kann ich die aktuelle Länge der gesamten Route und von ersten Punkt zum verschiebbaren Positions-Marker ermitteln

Diese Informationen werden alle im TDirectionsResult-Objekt zurückgeliefert (zum Beispiel die Länge des ersten Streckenabschnitts: DirectionsResult.Routes[0].Legs[0].Distance.Value)

Zitat von DelphiFan2008:

- wie kann ich eine Liste (Track) aus der Route erzeugen Bsp. alle 100m entlang der Route LAT/LNG und evntl. HÖHE ermitteln und als Liste abspeichern

Eine Route besteht aus einer Liste von Punkten (Lat/Lng-Paaren). Diese haben allerdings nicht den selben Abstand voneinander. Die Anzahl der Punkte ist abhängig von der erforderlichen Genauigkeit (Entfernung Start- zu Zielpunkt und wie "verwinkelt" die Strecke ist). Auch diese Punkte befinden sich im TDirectionsResult-Objekt.


@EWeiss:

Vielen Dank!!!


@Manfred:

Auch an Dich vielen Dank!
Die Ermittlung von Geodaten ist eine rechenintensive Angelegenheit - deshalb begrenzt Google die Anfragen sowohl bezüglich der Anzahl als auch bezüglich der zeitlichen Abfolge. Die Alternative wäre eine Premier-Lizenz.
Ich empfehle folgende Vorgehensweise:

1. Geocoding eines Wertes
2. Wert OK -> weiter mit 1.
3. Timeout (experimentell bei etwa 5-10 Sekunden)
4. Weiter mit 1.

[schöni]

Hallo Delphifan2008,

klasse Arbeit, habe den Thread grad gefunden, als ich mal wieder hier vorbeigeschaut habe. Habe mir sowohl DelphiMaps als auch beide Versionen GoogleMaps_Source&demos runter geladen. Bevor ich mich damit beschäftige, meine Frage:

Brauche ich auch diese

Erweiterungen:

Panoramio API
- Wrapper-Unit
- Demo
KeyDragZoom Library
- Wrapper-Unit
- sechs Demos
MarkerClustererPlus Library
- Wrapper-Unit
- fünf Demos
RichMarker Library
- Wrapper-Unit
- zwei Demos
?

Oder sind diese zusätzlich und optional?