Google Maps über COM (Component Object Model)

[EWeiss]

Muss auch mal loben!
Feines Projekt.

gruss

[manfred_h]

Hallo Thom

Bin Momentan deine wirklich sehr guten Beispiele am anschauen und ein wenig am testen.
Für meine Anwendung müsste ich aus mehreren Datensätzen <100 die GPS Lat Lng auslesen ( sind z.T. schon vorhanden ) und diese auf der Karte darstellen.

Momentan erhalte ich immer die Fehlermeldung: OverQueryLimit
Es ist mir nicht ganz klar wie ich dies beeinflussen kann.

Momentan verwende ich folgenden Code um die Daten darzustellen:

Delphi-Quellcode:

procedure Tfrm_map.btn_Batch_GeocodeClick(Sender: TObject);
begin
  while not DM_map.Map.eof do
  begin
    Geocoder.Geocode(TGeocoderRequest.Create(Address.Text),GeocoderCallback);
  end;
end;

Delphi-Quellcode:

procedure Tfrm_map.GeocoderCallback(Sender: TObject; Results: TGeocoderResultArray; Status: String);
var
  MarkerOptions: TMarkerOptions;
begin
  with Script do
  begin
    if Status=Google.Maps.GeocoderStatus.OK then
    begin
      var_lelat:= FloatToStr(Results[0].Geometry.Location.lat);
      var_lelng:= FloatToStr(Results[0].Geometry.Location.lng);
    // only for debug
      POS_LAT.Text := var_lelat;
      POS_LNG.Text := var_lelng;
    //
      Maps[0].SetCenter(Results[0].Geometry.Location);
      MarkerOptions:=TMarkerOptions.Create;
      with MarkerOptions do
      begin
        Map:=Self.Map;
        Position:=Results[0].Geometry.Location;
      end;
      New(Google.Maps.Marker(MarkerOptions));
    end else ShowMessage('Geocode was not successful for the following reason: '+Status);
  end;
end;

Um die GPS Daten zu erhalten verwende ich dies:

Delphi-Quellcode:

procedure Tfrm_map.btn_Encode_batchClick(Sender: TObject);
var
  LatLng: TLatLng;
  Lat, Lng: String;
  Request: TGeocoderRequest;
begin
  while not DM_map.Map.eof do
  begin
    with Script do
    begin
      Lat:=DM_map.Map.FieldByName('POS_LAT').AsString;
      Lng:=DM_map.Map.FieldByName('POS_LNG').AsString;
      LatLng:=Google.Maps.LatLng(StrToFloatDef(Lat,0,'.'),
                                 StrToFloatDef(Lng,0,'.'));
      Request:=TGeocoderRequest.Create;
      Request.Location:=LatLng;
      Geocoders[0].Geocode(Request,Encode_GeocoderCallback);
    end;
  end;
end;

Delphi-Quellcode:

procedure Tfrm_map.Encode_GeocoderCallback(Sender: TObject; Results: TGeocoderResultArray; Status: String);
var
  MarkerOptions: TMarkerOptions;
begin
  with Script do
  begin
    if Status=Google.Maps.GeocoderStatus.OK then
    begin
      Maps[0].SetCenter(Results[0].Geometry.Location);
      MarkerOptions:=TMarkerOptions.Create;
      with MarkerOptions do
      begin
        Map:=Self.Map;
        Position:=Results[0].Geometry.Location;
      end;
      New(Google.Maps.Marker(MarkerOptions));
    end else ShowMessage('Geocode was not successful for the following reason: '+Status);
  end;
end;

Danke auf jeden Fall das Du diese Komponente zur Verfügung stellst.
Manfred

[Thom]

@DelphiFan:

Zitat:

Zitat von DelphiFan2008 (Beitrag 1160817)

[...] 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:

Zitat von DelphiFan2008 (Beitrag 1160817)

- 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:

Zitat von DelphiFan2008 (Beitrag 1160817)

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

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

Zitat:

Zitat von DelphiFan2008 (Beitrag 1160817)

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

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

Zitat:

Zitat von DelphiFan2008 (Beitrag 1160817)

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

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

Zitat:

Zitat von DelphiFan2008 (Beitrag 1160817)

- 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:

Zitat von DelphiFan2008 (Beitrag 1160817)

- 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:

Zitat von DelphiFan2008 (Beitrag 1160817)

- 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!!! :-D


@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.

[manfred_h]

Hallo Thom

Danke für Deine Antwort.
Beim ermitteln der GPS-Daten ist dies ok, aber wenn ich die Lat + Lng Daten bereits habe, sollte es doch kein Problem sein diese auf der Karte darzustellen?
Bis jetzt habe ich auch schon eine Googlemap in meiner Anwendung mit der ging dies.
Das ganze lief aber über eine HTML Seite auf meinem Webserver.
Nun möchte ich gerne alles auf Deine Komponente umstellen. ( wenn möglich )

Grüsse aus Basel
Manfred

[Thom]

Ahh - natürlich. Kommando zurück. :lol:
Da Du ja schon die Koordinaten vorliegen hast, brauchst Du nicht mehr den Geocoder zu bemühen:

Delphi-Quellcode:

procedure Tfrm_map.btn_Encode_batchClick(Sender: TObject);
var
  LatLng: TLatLng;
  Lat, Lng: String;
  Marker: TMarker;
  MarkerOptions: TMarkerOptions;
begin
  with Script do
  begin
    Marker:=nil; //falls keine Daten in der Tabelle vorliegen 
    DM_map.Map.First;
    while not DM_map.Map.Eof do
    begin
      Lat:=DM_map.Map.FieldByName('POS_LAT').AsString;
      Lng:=DM_map.Map.FieldByName('POS_LNG').AsString;
      LatLng:=New(Google.Maps.LatLng(StrToFloatDef(Lat,0,'.'),
                                     StrToFloatDef(Lng,0,'.')));
      MarkerOptions:=TMarkerOptions.Create;
      with MarkerOptions do
      begin
        Map:=Maps[0];
        Position:=LatLng;
      end;
      Marker:=New(Google.Maps.Marker(MarkerOptions));
      MarkerOptions.Free; //momentan noch etwas auf den Speicher achten 
                          //-> in der neuen Version stelle ich auf Interfaces um,
                          //so daß die Freigabe automatisch erfolgt
      LatLng.Free;        //gleicher Grund
      DM_map.Map.Next;
    end;
    if assigned(Marker)
      then Maps[0].SetCenter(Marker.GetPosition); //nur den letzten Marker zentrieren
  end;
end;

[manfred_h]

Zitat:

Zitat von Thom (Beitrag 1161749)

Ahh - natürlich. Kommando zurück. :lol:
Da Du ja schon die Koordinaten vorliegen hast, brauchst Du nicht mehr den Geocoder zu bemühen:

Delphi-Quellcode:

procedure Tfrm_map.btn_Encode_batchClick(Sender: TObject);
var
  LatLng: TLatLng;
  Lat, Lng: String;
  Marker: TMarker;
  MarkerOptions: TMarkerOptions;
begin
  with Script do
  begin
    Marker:=nil; //falls keine Daten in der Tabelle vorliegen 
    DM_map.Map.First;
    while not DM_map.Map.Eof do
    begin
      Lat:=DM_map.Map.FieldByName('POS_LAT').AsString;
      Lng:=DM_map.Map.FieldByName('POS_LNG').AsString;
      LatLng:=New(Google.Maps.LatLng(StrToFloatDef(Lat,0,'.'),
                                     StrToFloatDef(Lng,0,'.')));
      MarkerOptions:=TMarkerOptions.Create;
      with MarkerOptions do
      begin
        Map:=Maps[0];
        Position:=LatLng;
      end;
      Marker:=New(Google.Maps.Marker(MarkerOptions));
      MarkerOptions.Free; //momentan noch etwas auf den Speicher achten 
                          //-> in der neuen Version stelle ich auf Interfaces um,
                          //so daß die Freigabe automatisch erfolgt
      LatLng.Free;        //gleicher Grund
      DM_map.Map.Next;
    end;
    if assigned(Marker)
      then Maps[0].SetCenter(Marker.GetPosition); //nur den letzten Marker zentrieren
  end;
end;

Danke, für den superschnellen Tipp.
Funktioniert einwandfrei. :thumb:

Manfred

[Thom]

Prima! :-D

[DelphiFan2008]

Hallo Thom,

danke für Antworten. Für die Erzeugung "Route" zu "Track" habe ich ein wenig experimentiert.

Über DirectionsResult.Routes[0].Legs bekomme ich die Teilabschnitte bzw. Ergebnisse des Renderer. Im Demo "Direction Draggable" die 3 Abschnitte. Habe jetzt über

Delphi-Quellcode:

    j := MyRoute.OverviewPath.Count;
    for i := 0 to j-1 do
    begin
      sLAT := Format( '%2.8f',[MyRoute.OverviewPath[i].LAT] );
      sLNG := Format( '%2.8f',[MyRoute.OverviewPath[i].LNG] );
      LB.Items.Add( Format( '[%s/%s]',[sLAT,sLNG] ));
    end;

die Koordinaten der Punkte ermittelt und in einem KML-File abgelegt -> Ergebnis siehe Route2Track_A. Gegenüber der "gerenderten" Route auf der Karte Route2Track_B ist das Ergebnis aus OverviewPath viel zu grob. Greife ich auf das falsche Array zurück oder läßt sich die Anzahl der Punkte erhöhen, hier im Demo MyRoute.OverviewPath.Count=208.

Die Anzahl der Punkte in OverviewPath scheint so zwischen 200 und 300 unabhängig von der Länge der Route in km zu sein. Bei kurzen Routen (in km) sieht die Auflösung gut aus, bei längeren viel zu grob. Route2Track_C zeigt eine Route von 44km im Vergleich zu 230km, die Anzahl der MyRoute.OverviewPath.Count=347 zu 272.

Gruß DelphiFan2008

[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?

[Thom]

Hallo schöni,

vielen Dank!
Die alte Version (1.1) habe ich eigentlich nur wegen der Demos für den Download drin gelassen - die Verwendung des Frameworks selbst würde ich nicht mehr empfehlen. Dafür ist die Version 2.0 da.
Wenn alles gut geht, wird bald die Version 3.0 mit vielen, vielen Erweiterungen veröffentlicht werden. Dazu wird das Projekt dann auch eine eigene Homepage erhalten.

Die von Dir erwähnten Units sind Zusatzmodule, die nicht unbedingt notwendig sind. Sie erleichtern jedoch die Arbeit mit Google Maps und sind als kleines "Dankeschön" für Leute gedacht, die das Projekt bisher mit einer Spende unterstützt haben.


Hallo DelphiFan2008,

das ist nur der Übersichtspfad. Schau Dir mal im TDirectionsLeg-Objekt die Eigenschaften Steps (Steps.Path) und ViaWaypoints an.