Google Maps über COM (Component Object Model)

[GPRSNerd]

Hallo zusammen,

hat jemand ne Idee, wie ich einen Mausklick auf eine Polyline abfangen kann? Einen OnClick-Event gibt es hier nicht, allerdings eine Property "clickable", die aber funktionslos zu sein scheint.
Schön wäre es, auch den Abschnitt der Polyline ermitteln zu können, auf den geklickt wurde.

Grüße,
Stefan

[Thom]

Hallo Stefan,

das OnClick-Ereignis gibt es auch bei Polyline-Objekten. Als Parameter wird ein TMouseEvent-Objekt übergeben, das die LatLng-Koordinaten des Cursors enthält. Befindet sich das Polyline-Objekt im editierbaren Zustand, enthält das TMouseEvent-Objekt zusätzlich einige weitere Eigenschaften (siehe Dokumentation). Der Abschnitt der Linie, auf den geklickt wurde, muß ansonsten selbst berechnet werden.

[GPRSNerd]

Hallo Thomas,

danke für die prompte Hilfe, funktioniert jetzt einwandfrei.
Manchmal sieht man den Wald vor lauter Bäumen nicht, ich hatte versehentlich versucht, ein OnClick-Event einer TPolylineOptions-Instanz zuzuweisen, anstatt TPolyline.
Es ist erstaunlich auf wievielen Wegen man in der Google-API sein Ziel erreichen kann...

Gruß,
Stefan

[Thom]

Hallo Stefan,

schön, daß es funktioniert! Ja, so etwas kann passieren.

Generell kann man sagen, daß ein Options-Objekt nur dafür gedacht ist, Eigenschaften im Sinne von Properties für das neu anzulegende Objekt zu liefern. Alles, was mit Methoden zu tun hat - und dazu gehören auch die Event-Handler -, wird dem eigentlichen Objekt zugewiesen beziehungsweise bei ihm aufgerufen. Deshalb funktionieren die Konstruktor-Methoden in der Regel auch ohne Options-Objekt.

Anders verhält es sich bei Service-Aufrufen: Hier muß (!) ein Options-Objekt übergeben werden, das einen Verweis auf die entsprechende Callback-Methode enthält, ohne der der Aufruf des Services sinnlos wäre.

Zitat von GPRSNerd:

Es ist erstaunlich auf wievielen Wegen man in der Google-API sein Ziel erreichen kann...

[GPRSNerd]

Hallo Thomas,

es macht richtig Spass mit deiner Google Maps-Implementierung zu arbeiten, ich konnte bisher alles so umsetzen, wie ich es mir gewünscht habe, was mit anderen Komponenten nicht oder nur sehr kompliziert und wenig intuitiv geht.

Momentan würde ich gerne einen GPS-Track (aufgenommen mittels fusionierten Daten von Sensoren wie GPS-Receiver, Trägheitsnavi, Tachoticks etc) farblich anhand der Geschwindigkeitsdaten für jeden Polyline-Abschnitt kodieren. Die Internet/Google-Intelligenz zeigte bisher keine wirklich elegante Methode dafür. Vorschläge waren generell ala "für jeden Abschnitt eine eigene Polyline zeichnen, die dann eine eigene Farbe kodiern kann, was bei mehreren 10000 Abschnitten nicht wirklich praktikabel und performant ist.
Oder hast du eine zündende Idee?

[Thom]

Hallo Stefan,

vielen Dank für das Lob!

Du bringst es auf den Punkt: Egal wie gut eine Komponente programmiert wurde - sie kann den direkten Zugriff auf ein API niemals ersetzen.

Zu Deiner Frage:
Bei den vielen Punkten beziehungsweise Streckenabschnitten würde sich eventuell ein KML-Layer empfehlen.

[HJay]

Hallo Thom!


Ich habe ein paar Anfängerfragen zu dem genialen Framework. Leider begreife ich das Konzept dahinter noch nicht ganz. Vielleicht hast Du Zeit und Lust, ein paar Grundlagen zu erklären?

Mein Unverständnis fängt schon an beim FormShow der Demo-Routinen. Basierend auf der Demo "Overlay / Marker Simple":

Code:

procedure TForm1.FormShow(Sender: TObject);
begin
  if Script=nil then with TScript.Create(WebBrowser1) do LoadAPIAsync(InitMap);
end;

Wieso gibt die Funktion Script hier nil zurück, so dass der WebBrowser1 korrekt zugeordnet wird? Die Funktion scheint doch ein TCustomScript-Objekt zu erzeugen und zurückzugeben?

Ich verstehe auch nicht, was beim Aufruf "LoadAPIAsync(InitMap)" der Prozedur InitMap als Sender übergeben wird, so dass die Anweisung "with TScript(Sender)" mit Sinn erfüllt wird. Sehr kryptisch für mich.

In den Demo-Routinen werden die mit New() erzeugten Objekte MyMap oder Marker nur lokal verwendet und nicht freigegeben. Muss man auch zusätzlich erzeugte TMarker-Objekte nicht freigeben? Kümmert sich darum wirklich das Framework vollautomatisch?

Wäre die folgende Routine so korrekt in Deinem Sinne programmiert, um einen weiteren Marker einzufügen:

Code:

TForm1= ...
  private
    MyMap : TMap;
    Marker2 : TMarker;

procedure TForm1.Button1Click(Sender: TObject);
  var MarkerOptions: TMarkerOptions;
begin
  with Script do begin
    MarkerOptions := TMarkerOptions.Create;
    with MarkerOptions do begin
 Position:=New(Google.Maps.LatLng(-25.363882,131.044922));
      Map:=MyMap; 
    end;
    Marker2 := New(Google.Maps.Marker(MarkerOptions));
  end;
end;

Muss ich auch Marker2 nicht selbst freigeben?

Wie würde ich die FormShow-Routine erweitern müssen, um ZWEI separate TWebBrowser-Objekte gleichzeitig verwenden zu können? Geht das überhaupt?