Google Maps über COM (Component Object Model)

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

[HJay]

Ich würde gerne dem Nutzer erlauben, einen rechteckigen Bereich der GoogleMap zu selektieren -- also ganz normal, wie man halt so einen Bereich normalerweise markiert. Wäre OK, wenn der Nutzer dazu Ctrl oder so drücken müsste.

Nun hat GoogleMaps ja normalerweise immer die Hand und ein Click-Drag führt zum Verschieben des Karteninhalts.

Wie müsste man vorgehen, um dem User das Markieren eines Bereiches zu ermöglichen und im Programm dann die Koordinaten der Ecken zur Verfügung zu haben?

[Thom]

Hm, Du arbeitest bestimmt noch mit der Version 2.0 des Frameworks!? Da ist es noch etwas umständlich...
Binde noch die Unit HTMLObjekts in der uses-Anweisung ein und gib an:

Delphi-Quellcode:

procedure MarkerClick(Sender: TObject; Event: HTMLObjects.TEvent);
[...]

Das Dumme ist, daß die Fehlermeldungen des Compilers bei Verwendung von anonymen Methoden teilweise recht kryptisch sind... (Nicht wundern: Selbst wenn Du keine anonymen Methoden verwendest, werden die Ereignishandler ab Delphi 2009 frameworkintern als anonyme Methoden behandelt.)

Kleiner Lichtblick: In der kommenden Version wird das einfacher.

Das Aufziehen eines Auswahlrechteckes macht zum Beispiel die KeyDragZoom-Bibliothek. Dort werden auch die Ausmaße des gewählten Bereiches per Eventhandler übergeben.

[HJay]

Danke! Jetzt klappt es mit dem MarkerClick.

Ich muss echt sagen, der Support für dieses Framework ist mehr als überragend. Vielen Dank für die schnellen und stets hilfreichen Antworten.

Nochmal zum KeyDragZoom: Das klingt genau nach dem, was ich brauche. Aber wie verwendet man denn diese Bibliothek innerhalb des Delphi-Frameworks?

Gibt es dazu eine Beispieldatei?