Google Maps über COM (Component Object Model)

[BBoy]

Das ist ein Anfang Hast du eine Idee wie man den Zoom unterdrücken könnte und wie man dann aus KeyDragZoom die koordianten des Rechtecks bekommen könnte?

[Thom]

Die KeyDragZoom-Bibliothek bietet eine ganze Reihe von Events.
Bei dragend wird auch das entsprechende LatLngBounds-Objekt geliefert.
Wird der JavaScript Code modifiziert, könnte das Event zum Beispiel als Funktion ausgelegt werden, so daß in Abhängigkeit vom zurückgegebenen Wert der Zoom ausgeführt wird oder nicht.

Ein Delphi-Wrapper für diese Bibliothek ist zusammen mit etlichen Demos in den Erweiterungen enthalten.

[BBoy]

Mit Javascript kenne ich mich nicht aus, da muss ich wohl warten bis du das in deine api eingebaut hast... Was denkst du wann man damit rechnen kann?

Derweil könnte man sich ja so behelfen:
Mit jedem Klick auf die Karte markiert man ein Punkt für ein Polygon. Ein doppelklick beendet das und wenn man nun ENTF drückt, wird geprüft welche Wegpunkte sich innerhalb des Polygons befinden und diese werden dann gelöscht.

Wie könnte man das verwirklichen? Vor allem wie hat die Berechnung auszusehen ob Webpunkte innerhalb des Polygons liegen?

[DelphiFan2008]

Hallo BBoy,

vielleicht hilf folgender Artikel.

Gruß DelphiFan2008

[DelphiFan2008]

Hallo BBoy,

vielleicht hilft dir dieser Link oder dieser weiter für dein Vorhaben.

Gruss DelphiFan2008

[BBoy]

Danke für die links.
Allerdings werde ich das nun mit TLatLngBounds verwirklichen. Denn da gibt es ja die möglichkeit zu prüfen ob eine koordinate innerhalb des rechtecks ist. Allerdings wird bei mir immer False zurückgegeben. Kann mir bitte jemand sagen was ich falsch mache??

Delphi-Quellcode:

Procedure Button1Click(Sender: TObject);
var
  latlonb : TLatLngBounds;
  SWBound: TLatLng;
begin
   latlonb := new(Google.Maps.LatLngBounds(New(Google.Maps.LatLng(49.6521,8.4969)),New(Google.Maps.LatLng(49.6439,8.5113))));
  with Script do begin
    swbound := new(Google.Maps.LatLng(49.648883,8.502467));
    showmessage(swbound.ToString+'    '+latlonb.ToString);  // nur zum testen für mich um zu sehen das alle koordinaten korrekt sind
    if latlonb.Contains(swbound) then
      Showmessage(datamodule1.TourTable1gccode.AsString);  // ebenfalls nur zum testen ob es funktioniert
end;

momentan habe ich es mit dieser Abfrage gelöst, kann man die noch etwas optimieren?

Delphi-Quellcode:

          if (swbound.Lat >= latlonb.GetNorthEast.Lat) and (swbound.lng <= latlonb.GetNorthEast.lng) and
          (swbound.Lat <= latlonb.GetSouthWest.Lat) and (swbound.lng >= latlonb.GetSouthWest.lng) then
             Showmessage('Koordinate im Rechteck');

[Thom]

Der süd-westliche Punkt (SW) muß "links unten" liegen und der nord-östliche (NE) "rechts oben". Sonst wäre es ja NW und SE.

Code:

  Richtig:             Falsch,              da:
  *---------NE         SW---------*        |          |
  |          |        |          |        SW---------*
  |          |        |          |
  |  LatLng   |        |  LatLng   |           LatLng   -> außerhalb!
  |          |        |          |
  |          |        |          |        *---------NE
  SW---------*        *---------NE         |          |

Ist das nicht der Fall - wie in Deinem Beispiel - ergibt der Test, daß sich der Punkt außerhalb befindet.

Ich werde für die nächste Frameworkversion bei den Objekten TCircle, TRectangle und TPolygon die Funktion Contains neu hinzufügen.

[BBoy]

Ich möchte während die Karte angezeigt wird die STRG-Taste drücken und währen die gedrückt ist, soll der Mauszeiger als Pfeil angezeigt werden. Das onkeydown Ereignis vom Browser regiert nicht darauf.
Wie kann ich das verwirklichen?

Noch eine weitere Frage:
Ist es irgendwie möglich die Rectangle funktion als Markierungsrahmen zu verwenden den ich mit der Maus aufziehen kann? Derzeit setze ich mit einem Mausklick die linke obere Ecke und mit einem weiteren die rechte untere Ecke und dann wird das rechteck anhand der Koorinaten gezeichnet. Schöner wäre eben wenn es wie ein Markierungsrahmen funktionieren würde. Und diese gesetzten Koordinaten nutze ich dann zum Prüfen ob sich darin Wegpunkte befinden, dass funktioniert auch schon gut.

[BBoy]

Wie kann man mit der Maus auf der Karte ein Rectangle ziehen?
Momentan setze ich mit einem Klick das linke obere Eck und mit dem nächsten das rechte untere Eck. Und zeichne dann das Rechteck mit Script.Google.Maps.Rectangle(RectangleOptions);
Mir wäre aber ein aufziehen mit der Maus lieber...

Und wie kann ich am einfachsten Entfernungen zwischen 2 Punkten messen? (die ich mir der maus setzte).
Oder die Strecke einer Polylinie die ich auf der Karte zeichne.
Also einfach mit Lat und Lng punkten ohne geocoder.