Google Maps über COM (Component Object Model)

[Thom]

So - es wird langsam Zeit für die neue Version. Ich hoffe, daß ich das Framework in etwa ein bis zwei Wochen für einen Beta-Test fertig habe.

Da sich intern einiges getan hat und viele neue Funktionen hinzugekommen sind, wird es nicht - wie angekündigt - die Version 1.4 sondern 2.0.
So wurde ein interner Callback-Manager integriert, der es ermöglicht, bei asynchronen Aufrufen des API's neben herkömmlichen Objekt-Methoden auch anonyme Methoden als Callback-Funktion einzusetzen. Damit sind dann auch solche JavaScript-ähnlichen Konstruktionen wie in der Distanz-Matrix-Demo möglich:

Code:

  geocoder.geocode({'address': location}, function(results, status) {
    if (status == google.maps.GeocoderStatus.OK) {
      bounds.extend(results[0].geometry.location);
      map.fitBounds(bounds);
      var marker = new google.maps.Marker({
        map: map,
        position: results[0].geometry.location,
        icon: icon
      });
    } else {
      alert("Geocode was not successful for the following reason: " + status);
    }
  });

Delphi-Quellcode:

  Geocoder.Geocode(TJScriptObject.Create(['address: '+Location]),
    procedure(Sender: TObject; Results: TGeocoderResultArray; Status: String)
    var
      Opts: TMarkerOptions;
    begin
      with Script do
      begin
        if Status=Google.Maps.GeocoderStatus.OK then
        begin
          Bounds.Extend(Results[0].Geometry.Location);
          Maps[0].FitBounds(Bounds);
          Opts:=TMarkerOptions.Create;
          with Opts do
          begin
            Map:=Maps[0];
            Position:=Results[0].Geometry.Location;
            Icon:=MarkerIcon;
            Title:=Location;
          end;
          New(Google.Maps.Marker(Opts));
        end else ShowMessage('Geocode was not successful for the following reason: '+Status);
      end;
    end);

Bei den Objektlisten des TScript-Objektes wurden Iteratoren hinzugefügt, die den for-in Syntax unterstützen:

Delphi-Quellcode:

  for Marker in Script.Markers do
    Marker.Map:=nil;

Zusätzlich wurden alle Units von RTTI-Rückständen befreit und damit ein fertiges Programm um reichlich 300 kByte (Beispiel für Delphi XE) verkleinert, obwohl das Framework selbst beachtlich an Umfang zugelegt hat.

Desweiteren sind Spenden herzlich willkommen.
PayPal

[Thom]

Hey Markus,

here is a little demo with the framework version 2.
Is this what you mean with multiple destinations?



Diese Demo zeigt übrigens auch die Behandlung der Refresh-Taste F5.

[fduenas]

Zitat von Thom:

Hey Markus,

here is a little demo with the framework version 2.

Diese Demo zeigt übrigens auch die Behandlung der Refresh-Taste F5.

Hi Tom. When will your Framework 2 be available?

[Thom]

Hi Francisco,

I hope in one or two weeks.
Sorry, I've read your question until today.

[fduenas]

Zitat von Thom:

Hi Francisco,

I hope in one or two weeks.
Sorry, I've read your question until today.

LOL, No problem, At my GMT time it still today .
Regards and hope to see your framework soon

[markusr]

Hi Thom,

i will look at the demo. Much appreciated.

I am still trying to do proof of concept.

Demo 5 is causing me issues. If I do each address one at a time, no issue.

if I try to do all of them I get failures.

I am attaching my version on unit1 from Demos\5 - Async Callbacks.

Markus

Can we use email? [e-mail] or [e-mail].

Zitat von Thom:

Hey Markus,

here is a little demo with the framework version 2.
Is this what you mean with multiple destinations?

Anhang 35241

Diese Demo zeigt übrigens auch die Behandlung der Refresh-Taste F5.

[Thom]

Hey Markus,

I hope that the mail has arrived.

Für alle anderen die Erklärung des Problems:
Google limitiert die Anzahl der Geocoding-Anfrage. Nach etwas 13 bis 15 Abfragen senden die Server die Meldung

Code:

OVER_QUERY_LIMIT

und es wird für die Callback-Funktion kein Results-Objekt erzeugt. Dummerweise wird in der Unit gmGeocoder in der Methode TGeocoder.Callback dieser Umstand nicht getestet und es kommt im Debug-Modus zu einer Fehlermeldung (keine Exception, da diese unterdrückt werden, weil bei COM keine Exceptions nach außen dringen dürfen). Das heißt: Im Fehlerfall wird das eigene Programm gar nicht darüber informiert. Ganz ungeduldige können das Problem selbst beheben, indem sie die Methode TGeocoder.Callback ändern:

Delphi-Quellcode:

procedure TGeocoder.Callback;
begin
  if assigned(FCallback) then
  begin
    try
      if not VarIsNull(FCallbackFunction.Arguments[0]) then  //<- to prevent exception (insert unit Variants in uses list)
      begin
        if assigned(FGeocoderResults)
          then FGeocoderResults.Disp:=FCallbackFunction.Arguments[0]
          else FGeocoderResults:=TGeocoderResults.Create(Script,FCallbackFunction.Arguments[0]);
        FCallback(self,FGeocoderResults,FCallbackFunction.Arguments[1]);
      end else
      begin
        FCallback(self,nil,FCallbackFunction.Arguments[1]);
      end;
    except
    {$IFDEF DEBUG}
      ShowMessage(Exception(ExceptObject).Message);
    {$ENDIF}
    end;
  end;
end;

Alle anderen warten einfach auf die neue Version des Frameworks.

Um viele Geocoding-Anfragen ohne Fehlermeldung durchführen zu können hat es sich bewährt, zwischen den einzelnen Abfragen etwas eine Sekunde Zeit zu lassen:


Eine andere Strategie wäre:

1. Anfragen ohne Verzögerung bist OVER_QUERY_LIMIT
2. Warten
3. Letzte Anfrage wiederholen
4. weiter mit 1