Google Maps über COM (Component Object Model)

[Sebastian78]

Ertsmal ein Kompliment für die tolle Arbeit.

Ich bin jetzt zunächst mal durch die Demos durch, und komme langsam klar. Ein Problem, wurde hier auch schon mal angesprochen:

Delphi-Quellcode:

  
    if Script = nil then
      with TScript.Create(WebBrowser1) do
        LoadAPI(InitMap);    //<--- habe ich von LoadApiAsync in LoadApi geändert

    with Script do
    begin
      Geocoder.Geocode(TGeocoderRequest.Create(s),                   //<----- hier Zugriffsverletzung 
        procedure(Sender: TObject; Results: TGeocoderResultArray;
          Status: String)
        var
          MarkerOptions: TMarkerOptions;
        I: Integer;
        idx : Integer;
        abort : Boolean;
        begin
          abort := false;
          if Status = Google.Maps.GeocoderStatus.OK then
          begin
            Map.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('Karte kann nicht angezeigt werden. ' +
              'Originalmeldung: ' + Status);
        end);
    end;
  end;

Wenn ich das API im onShow oder onCreate initialisiere, und dann einen Moment warte, bis ich den Rest aufrufe, läuft alles. Durch die Umstellung auf LoadAPI, sollte aber doch sichergestellt sein, dass das API vollständig geladen ist.

Freu mich auf Deine Antwort.

Viele Grüße

Sebastian

[Thom]

Hallo Sebastian,

vielen Dank für das Lob!

Die Methode InitMap wird sowohl bei LoadAPI als auch LoadAPIAsync garantiert erst nach der kompletten Initialisierung des API's aufgerufen. Der einzige - nach außen sichtbare - Unterschied liegt darin, ob der Hauptthread in der Zwischenzeit blockiert wird oder nicht. Du brauchst also nicht künstlich eine Warteschleife einbauen.

Das Problem liegt also an anderer Stelle.
Wo kommt das Geocoder-Objekt her, auf das Du zugreifst?

Delphi-Quellcode:

  with Script do
  begin
    Geocoder.Geocode(TGeocoderRequest.Create(s), //<- ???
    [...]

[Sebastian78]

Hallo Thomas,

danke für die schnelle Antwort

Delphi-Quellcode:

procedure TFormAdressen.InitMap(Sender: TObject);
var
  LatLng: TLatLng;
  MapOptions: TMapOptions;
begin
  with TScript(Sender) do
  begin
    Geocoder := New(Google.Maps.Geocoder);                //<----------- Hier
    LatLng := New(Google.Maps.LatLng(-34.397, 150.644));
    MapOptions := TMapOptions.Create;
    with MapOptions do
    begin
      Zoom := 15;
      Center := LatLng;
      MapTypeID := Google.Maps.MapTypeID.Roadmap;
    end;
    Map := New(Google.Maps.Map(MapOptions));
  end;
end;

Viele Grüße

Sebastian

[Thom]

Gern geschehen!

Aha. Danke für den Quelltext.

Allerdings kann ich nicht nachvollziehen, weshalb Du die Initialisierung der Karte auf mehrere Methoden verteilst - einmal OnCreate/OnShow und dann InitMap. Das geht spätestens dann schief, wenn der Browserinhalt (zum Beispiel mit F5) neu geladen wird. Dann wird nämlich nur die Methode InitMap aufgerufen und der ganze Teil in OnCreate/OnShow bleibt unberücksichtigt.
Das nächste Problem besteht darin, daß die Methode OnShow durchaus auch mehrfach aufgerufen werden kann.

Grundsätzlich kann ich nur wärmstens empfehlen, den gesamten Initialisierungsteil in der Methode InitMap unterzubringen - dafür ist sie gedacht. Dann spielt es auch keine Rolle, ob das API synchron oder asynchron geladen wird.
Für die Verwendung des synchronen Laden mittels LoadAPI besteht eigentlich nie eine zwingende Notwendigkeit.

[Sebastian78]

Hab jetzt alles in eine Procedure gepackt. Läuft

Vielen Dank und schöne Grüße

Sebastian

[Thom]

Prima!

[HJay]

Mir gelingt es nicht, eine Marker-Click-Routine zu setzen. Der Compiler meckert:

[DCC Fehler] GoogleMapUnit.pas(85): E2010 Inkompatible Typen: 'TProc<System.TObject,HTMLObjects.TEvent>' und 'Procedure of object'

Die Deklaration lautet:

Code:

uses   ...
gmAPI, gmMap, gmBase, gmOverlaysMarker, gmEvents;

...
TGoogleMap = class(TObject)
private
procedure MarkerClick(Sender: TObject; Event: gmEvents.TEvent);
...
end;

Dann weise ich die Click-Prozedur wie folgt zu:

Code:

procedure TGoogleMap.CreateMarker(AWpt: TWpt);
  var MarkerOptions : TMarkerOptions;
      Marker        : TMarker;
begin
  with Script(WebBrowser) do begin
    MarkerOptions := TMarkerOptions.Create;
    with MarkerOptions do begin
      Position := New(Google.Maps.LatLng(AWpt.Lat, AWpt.Lon));
      Map      := Maps[0];
      Title    := 'Test;
    end;
    Marker := New(Google.Maps.Marker(MarkerOptions));
    Marker.OnClick  := MarkerClick; // <<< Compiler-Error
    MarkerOptions.Free;
  end;
end;

procedure TGoogleMap.MarkerClick(Sender: TObject; Event: gmEvents.TEvent);
begin
  with Script(WebBrowser) do begin
    if Maps[0].GetZoom=8 then Maps[0].SetZoom(4) else Maps[0].SetZoom(8);
    Maps[0].SetCenter(TMarker(Sender).GetPosition);
  end;
end;

Woran kann das liegen? Ich habe doch die Unit gmEvents.TEvent extra angegeben. Hm, ich bin ratlos.