Google Maps über COM (Component Object Model)

[Thom]

Hallo MapMan,

das Konzept des GeoWebCache hört sich sehr gut an. Aber bis so etwas in Delphi umgesetzt ist, wird noch einige Zeit vergehen...
Um auf Deine Frage zu antworten: Ja, in diese Richtung gehen meine Vorstellungen. Aber momentan muß der eigentliche Proxy erst einmal richtig funktionieren (Durchlauf der Daten ohne Verluste und brauchbare Ereignishandler mit weitreichender Einflußmöglichkeit)- -187- wartet schon ganz ungeduldig.

Bei dieser Gelegenheit möchte ich auf eine Anfrage antworten, ob vom Framework Reverse Geocoding - also die Umwandlung von Koordinaten in eine Adresse - unterstützt wird:


Die Antwort dazu: Ja, das geht - wenn auch in der Version 1.1 des Frameworks noch nicht direkt, sondern über einen kleinen Trick.
Das liegt daran, daß ich mich eng an die API-Dokumentation gehalten habe und dort Reverse Geocoding nicht explizit beschrieben wird. Aber es funktioniert und wird in der kommenden Version des Frameworks direkt unterstützt werden.

Die Geocoding-Anfrage erfolgt über

Delphi-Quellcode:

TGeocoder.Geocode(Request: TGeocoderRequest,...);
//...

Im Objekt TGeocoderRequest kann eine Koordinate übergeben werden, für die die Daten ermittelt werden. Die Eigenschaft TGeocoderRequest.LatLng gibt es momentan noch nicht. Diese kann aber leicht hinzugefügt werden:

Delphi-Quellcode:

type
  TGeocoderRequestAccess = class(TGeocoderRequest);
 
  ...
  Request:=TGeocoderRequest.Create;
  TGeocoderRequestAccess(Request).SetProp('latLng',LatLng,true);
  Geocoder.Geocode(Request,GeocoderCallback);
  ...

Wird in der Callback-Methode die Eigenschaft TGeocoderResults[n].Types genutzt, muß in der Unit JScriptObjects eine kleine Korrektur vorgenommen werden:

Delphi-Quellcode:

function TStringArray.GetItem(Index: Integer): String;
begin
  Result:='';
  if (Index>=0) and (Index<Count) 
    then Result:=VarToStr(inherited Items[IntToStr(Index)]);
end;

Der Hintergrund dazu ist, daß das API die Strings in String-Arrays nicht als Objekte, sondern als einfache Strings speichert.
Wird diese Änderung nicht vorgenommen, kommt es zu einer Exception.

Quelltext der Demo (siehe Screenshot oben):

[MapMan]

Hallo Thom,

wie kann man beim ReverseGeocoding direkt Latitude und Longitude (ohne TLatLng-Objekt mit readonly Lat Lng) übergeben ?
Z.B. Koordinaten aus einer DB...

[Thom]

Über das Google Maps API ist mir kein Weg bekannt, da dort immer objektorientiert gearbeitet wird.
Ansonsten geht es offiziell über das Geocoding API von Google.

[Thom]

Herzlichen Dank an die United Navigations GmbH für die Nutzung des Frameworks und die freundliche Unterstützung!

[Thom]

In letzter Zeit gibt es ein Problem mit der Darstellung des StreetView-Panoramas im Browser-ActiveX bei der Verwendung des IE8. Das betrifft sowohl TWebBrowser als auch TEmbeddedWB. Der Grund dafür ist ein Bug im Google Maps API der aktuellen Version 3.4.

Das Ganze sieht dann etwa so aus:


Von Google wird die Verwendung der vorherigen, stabilen API-Version 3.3 empfohlen. Damit steht man leider vor der Wahl: Neue Steuerelemente oder StreetView.

Die Auswahl einer bestimmten API-Version ist in der Version 1.3 des Frameworks möglich - momentan komme ich leider aus Zeitgründen noch nicht zur Veröffentlichung.

Wer selbst Hand anlegen möchte, kann in der Unit gmAPI in der Funktion HTMLPage die URL des Goggle Maps API's etwas modifizieren:

'<script type="text/javascript" src="http://maps.google.com/maps/api/js?v=3.3&sensor=';

Damit ist auch das StreetView-Panorama wieder sichtbar:


P.S.:
Der Bug im Google Maps API wurde behoben: Street View funktioniert wieder in allen IE-Versionen.

[bwilms]

Hallo,

ich versuche gerade gmAPI und die Demos unter Delphi 6 zum laufen zu bringen.
Aber bei jedem Demo kommt die Fehlermeldung "Unbekannter Name". Es sieht so aus, also ob die Funktion "AddProp" jedes Mal fehl schlägt. Bei "supports(..)" kommt immer false zurück und das Prop wird nicht angelegt.

Muss dazu noch irgendwas beachtet werden?
Ist die IE-Version relevant?

Vielen Dank im voraus.

[Thom]

Hallo bwilms,

das Framework wurde von mir unter anderem auch mit Delphi 5, Windows XP und dem IE 8 getestet. Delphi 6 sollte also eigentlich keine Probleme verursachen.

Welche Windows- und Browser-Version verwendest Du?

Wie sehen die Fehlermeldungen konkret aus? Also in welcher Unit und für welche Zeilennummer wird der Fehler angezeigt?

P.S.:
Jetzt habe ich's verstanden: Die Fehlermeldung kommt nicht während der Compilierung, sondern zur Laufzeit des Programms!?