Google Maps über COM (Component Object Model)

[Thom]

Hallo DelphiFan2008,

die Nutzung von Version 1.1 unter XE2 (32 Bit) sollte funktionieren - Du mußt Dir nur eine aktuelle jedi.inc besorgen, die den XE2-Compiler erkennt oder selbst Hand anlegen. Ich bin dabei, die Compilererkennung selbst zu schreiben, um die Abhängigkeit von Jedi wegzubekommen.

Das Projekt soll natürlich auch in Zukunft unter den selben Bedingungen zu Verfügung stehen. Allerdings würde ich mich freuen, wenn es mehr ehrliche Programmierer gäbe, die bei kommerziellen Gebrauch des Frameworks (das betrifft zum Beispiel schon eine innerbetriebliche Nutzung) auch zu einer finanziellen Unterstützung des Projektes bereit wären.
Für die neue Version sitze ich zum Beispiel schon seit knapp drei Wochen in Vollzeit am Computer.

Schwerpunkt ist dabei neben den angekündigten Features auch eine XML-Hilfe, die - dank integriertem Documentation Insight bei XE2 - auch in der IDE nutzbar ist. In diesem Zusammenhang auch noch einmal ein großes Dankeschön nach Australien an AndreFM und nach Shanghai an Paul von DevJET, die mir schon vor einem halben Jahr eine Lizenz von Documentation Insight gespendet hatten.
So sieht das dann ungefähr aus:


Für die Käufer der XE2 Starter Edition gibt es allerdings eine bittere Pille: Dort ist laut Feature-Matrix Documentation Insight leider nicht enthalten.

Alles andere bekommen wir gemeinsam hin!


Hallo duff,

OSM funktioniert schon seit Version 1.3 des Frameworks. Hast Du diese schon (ich habe jetzt gerade keine Zeit, meine Email-Liste durchzugehen)? Ich könnte Dir auch den Quelltext zur Einbindung dieser Karten zukommen lassen, falls Du Interesse hast.

[DelphiFan2008]

Hallo Thom,

wo bekomme ich am einfachsten die aktuelle Version von jedi.inc für XE2?

Gruß DelphiFan2008

[Thom]

Hallo DelphiFan2008,

ich weiß nicht, ob's die irgendwo einzeln gibt. Sie sollte aber in den anderen Jedi-Bibliotheken enthalten sein.

P.S.:
Ich habe jetzt noch einmal alles getestet:
Das Framework Version 1.1 läßt sich unter Delphi XE2 ungeändert sowohl in 32 als auch 64 Bit compilieren. Besser ist natürlich eine aktuelle jedi.inc. Notfalls tut es auch die von mir angepaßte Version im Anhang. Dabei handelt es sich aber um keine offizielle Version und sie erhebt auch keinen Anspruch auf Vollständigkeit. Ich habe nur die vom Framework verwendeten Compilerschalter aktualisiert. Die Demos sollten ebenfalls funktionieren.

[NetSonic]

Hey Thom,

super cooles Projekt, was Du hier auf die Beine gestellt hast. Ich habe mir Dein Framework in Version 1.1 einmal angesehen und wollte jetzt etwas mit den Directions und Wegpunkten probieren. Allerdings wäre es super zu wissen, wie ich einem DirectionRequest weitere Wegpunkte hinzufügen kann! Das ist mir bisher nicht gelungen:

Delphi-Quellcode:

var
DirectionsRequest: TDirectionsRequest;
WayPoint: TDirectionsWayPoint;
begin
...
WayPoint := TDirectionsWayPoint.Create;
WayPoint.LocationAsString := 'Adresse';
DirectionsRequest.WayPoints.Add(WayPoint);
...

Vielen Dank und für Deine Arbeit hier! Ganz großes Tennis

[Thom]

Vielen Dank!

Du mußt einfach einen weiteren Punkt erstellen und dem Array hinzufügen:

Delphi-Quellcode:

  [...]
  WayPoint:=TDirectionsWaypoint.Create;
  WayPoint.LocationAsString:='ErsterPunkt';
  DirectionsRequest.WayPoints.Add(WayPoint);
  WayPoint:=TDirectionsWaypoint.Create;
  WayPoint.LocationAsString:='ZweiterPunkt';
  DirectionsRequest.WayPoints.Add(WayPoint);
  WayPoint:=TDirectionsWaypoint.Create;
  WayPoint.LocationAsString:='UndNochEiner';
  DirectionsRequest.WayPoints.Add(WayPoint);
  [...]

Ohne Google's Premier Lizenz ist die Anzahl der Wegpunkte allerdings beschränkt.

Edit:
Sorry: Das funktioniert noch nicht in Version 1.1.
Wenn Du mir Deine Emailadresse per PM mitteilst, würde ich Dir Version 1.3 zusenden. Damit klappt es.

[NetSonic]

Alles klar, es funktioniert. Vielen Dank.

Jetzt würde mich aber noch interessieren, wie ich die Länge der ermittelten Route und der einzelnen Wege, falls Wegpunkte gesetzt sind, auslesen kann. In Deiner Beispiel-Anwendung "Directions" habe ich dazu nichts gefunden. Habe dort nur den Quellcode-Schnipsel der Callback-Funktion:

Delphi-Quellcode:

procedure TForm1.DirectionsCallback(Sender: TObject; Result: TDirectionsResult; Status: String);
var
  n, r, l, s: Integer;
  DirectionsRendererOptions: TDirectionsRendererOptions;
  procedure AddMsg(Msg: String);
  begin
    Memo1.Lines.Add(Msg);
  end;
begin
  with Script do
  begin
    Memo1.Lines.Clear;
    if Status=Google.Maps.DirectionsStatus.Ok then
    begin
      for r:=0 to Result.Routes.Count-1 do
        for l:=0 to Result.Routes[r].Legs.Count-1 do
          for s:=0 to Result.Routes[r].Legs[l].Steps.Count-1 do
            AddMsg(Result.Routes[r].Legs[l].Steps[s].Instructions);  //Richtungshinweise von Start zum Ziel
      for n:=0 to Result.Routes[0].Warnings.Count-1 do
        AddMsg(Result.Routes[0].Warnings[n]);                        //Warnhinweise zur berechneten Route
      AddMsg(Result.Routes[0].Copyrights);                           //Copyright-Informationen zur berechneten Route
      DirectionsRendererOptions:=TDirectionsRendererOptions.Create;  //Darstellung der berechneten Route vorbereiten
      DirectionsRendererOptions.Directions:=Result;                  //Ergebnisse übergeben
      DirectionsRendererOptions.Map:=Maps[0];                        //Karte übergeben
      Google.Maps.DirectionsRenderer(DirectionsRendererOptions);     //berechnete Route darstellen
    end else Memo1.Lines.Add(Status);
  end;
end;

Außerdem würde mich interessieren, wie ich die Routenanweisungen auf Deutsch und ggf. noch anders formatiert erhalten kann. Gerne auch in dem Layout, welches bei Google Maps zur Darstellung der Routeninformationen genutzt wird - ist das überhaupt möglich?

Über einen Tipp würde ich mich freuen.

Gruß
NetSonic

[Thom]

Schön, daß es funktioniert!

Die Gesamtlänge eine Strecke bzw. Gesamtreisedauer kann zum Beispiel so ermittelt werden:

Delphi-Quellcode:

  TotalDistance:=0;
  TotalDuration:=0;
  with Result.Routes[0] do //<- erste Route
    for Leg:=0 to Legs.Count-1 do //<- alle Abschnitte durchgehen
      with Legs[Leg] do
      begin
        Inc(TotalDistance,Distance.Value); //<- Länge des Abschnitts
        Inc(TotalDuration,Duration.Value); //<- Reisedauer für diesen Abschnitt
      end;

Google Maps arbeitet mit den Spracheinstellungen des PC's. Auf meinem sendet der IE also ein 'de' - dementsprechend werden alle Menüs und Ausgaben auf Deutsch angezeigt. Es ist aber auch möglich, eine bestimmte Sprache zu erzwingen. Das geht beim Laden des API's. In der kommenden Version des Frameworks kann sie als Parameter angegeben werden:

Delphi-Quellcode:

 
procedure TScript.LoadAPIAsync(InitMapProc: TNotifyEvent; 
                               UseSensor: Boolean; 
                               Version: String;
                               Language: String; //<- 'de' 
                               Libraries: TGoogleLibraries);

In den älteren Versionen (1.1 - 1.3) muß dafür in der Unit gmAPI die Funktion HTMLPage angepaßt werden:

Delphi-Quellcode:

  [...]
  Result:=Result+
          '    <script type="text/javascript" src="http://maps.google.com/maps/api/js?&sensor=';
  if UseSensor
    then Result:=Result+
        'true'
    else Result:=Result+
          'false';
  //zusätzlich:
  Result:=Result+'&language=de';
  [...]

So sieht zum Beispiel die Routenplanung mit 'ru' aus:

Allerdings funktioniert Unicode nur mit den entsprechenden Compilern und erst ab Version 2.0 des Frameworks.

Die Routeninformationen werden mit HTML-Tags (zum Beispiel <b></b>) geliefert. Die müßten dann selbst oder durch eine geeignete Komponente geparst und dargestellt werden.