Google Maps über COM (Component Object Model)

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

[Thom]

Momentan geht beides leider nicht so einfach. Das Google Maps API liefert keine Tasten-Events. Um daran zu kommen, gibt es verschiedene Stellen:

• COM: Die Funktion TranslateAccelerator des IDocHostUIHandler-Interfaces. Diese wird gegenwärtig zum Beispiel bei der Behandlung der Refresh-Taste (F5) intern vom Script-Objekt verwendet. In der kommenden Version wird darüber auch der optische Zoom des IE's ansprechbar sein (Ctrl +, Ctrl -) und Ctrl N (neues Browserfenster) unterdrückt werden. Um Dich dort einzuklinken, könntest Du das TScript-Objekt ableiten und die Methode TranslateAccelerator überladen. In der kommenden Version könnte ich dazu noch ein Event anlegen.
• Über Event-Handler, die sich an die einzelnen DOM-Objekte des Browsers heften (Map, StreetView usw.). Die könnte ich in die kommende Version des Frameworks noch einfügen.
• Über KeyPreview des Formulars.
• Über einen Tastatur-Hook.

Schau dir mal den JavaScript-Code der KeyDragZoom-Library an: Dort wird die Betätigung der Tasten Shift, Ctrl und Alt ausgewertet und der Cursor gesetzt.

Das Rechteck kannst Du natürlich als Markierungsrahmen verwenden. Das Aufziehen eines Rechtecks scheitert momentan aber daran, daß die Karte das Klicken und Ziehen als Verschiebung der Karte interpretiert.

[DelphiFan2008]

Hallo,

stehe vor folgender Fragestellung.

Ich möchte von einer Karte mit Polyline (ca. 2000 Punkt) ein JPEG mit höherer Auflösung erzeugen. Screen-Shot vom Inhalt Webbrowser war schnell erstellt. Nun kommt die weitere Aufgabe:Setzte Webbrowser auf z.B. 2048x2048 Bildpunkte, Polyline-Steckenzug zentrieren, Screen-Shot, Karte wieder auf ursprüngliche Größe und neu zenrieren.

Mein derzeitiger Code:

Delphi-Quellcode:

procedure TFMain.TBMapCopyToJPegClick(Sender: TObject);
var  t1,t2 : DWord;
begin
  // Teil 1
  WebBrowserMap.Align  := alNone;
  WebBrowserMap.Width := 2048;
  WebBrowserMap.Height := 2048;
  MapCenter;
  WebBrowserMap.Update;
  t1 := timeGettime;
  repeat
    t2 := timeGettime;
    Application.ProcessMessages;
  until( WebBrowserMap.Busy=False )or( (t2-t1)>2000 );
  // Teil 2
  WebBrowserScreenShot( WebBrowserMap,'D:\Test.jpg' );
  WebBrowserMap.Align  := alClient;
  MapCenter;
end;

Ergebnis: Polyline auf grauem Hintergrund 2048x2048 Pixel. Verschiedene Versuche scheitern, nie ist die Karte komplett mit Polyline drauf. Trenne ich das ganze auf zwei Buttons, Button1 -> Teil 1, Button2 -> Teil 2 ist alles o.k.

Eine Möglichkeit wäre eine bestimmte Zeit zu warten, aus meiner Sicht unsauber, hängt zu startk von Hardware und Internet-Verbindung ab. Gibt es eine Möglichkeit zu erfassen, wann die Seite über den Webbrowser komplett geladen ist und der Inhalt komplett dargestellt ist?

Gruß DelphiFan2008

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

[Thom]

Für das interaktive Zeichnen eignet sich die Drawing-Bibliothek (diese wird ab Version 2.1 des Frameworks unterstützt; dort ist auch eine Demo dazu enthalten) und für Abstands- und Längenberechnungen kann man die Geometry-Bibliothek verwenden (ab Version 2.0).