Google Maps über COM (Component Object Model)

[Thom]

Gern geschehen!

[Thom]

So - nach längerer Zeit aus aktuellem Anlaß wieder einmal eine kleine Demo zum Thema Events:



Rodrigo hat nämlich auf Anfrage ein neues Tutorial unter dem Titel Using the Google Maps API V3 from Delphi – Part III Getting the latitude and longitude of a mouse click erstellt, das ich auch einmal unter Verwendung des Frameworks umgesetzt habe. Damit komme ich wieder vollkommen ohne JavaScript- und HTML-Code aus, kann JavaScript-Ereignisse auf Delphi-Methoden umleiten und Werte direkt übergeben/übernehmen. Dadurch reduziert sich der Umfang des Quellcodes im Vergleich zu Rodrigos Variante um fast die Hälfte:

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var
  Map: TMap;
begin
  [...]
  Map:=Google.Maps.Map(Document.GetElementById('div_map'),Options);  //Karten-Objekt anlegen
  Map.OnClick:=MapClick; //Ereignishandler
  Map.OnMouseMove:=MapMouseMove;  //-"-
end;

procedure TForm1.MapClick(Sender: TObject; MouseEvent: TMouseEvent);
var
  Options: TMarkerOptions;
begin
  with FScript do
  begin
    Options:=TMarkerOptions.Create; //Options-Objekt für den Marker anlegen
    with Options do
    begin
      Position:=MouseEvent.LatLng; //Markerposition
      Map:=Maps[0]; //Karte, auf der der Marker angezeigt werden soll
      Title:=MouseEvent.LatLng.ToUrlValue; //Hinweis, wenn Maus über dem Marker
      Icon:=Format('http://www.google.com/mapfiles/kml/paddle/%d-lv.png',
                   [Markers.Count mod 10+1]); //Icon mit einer Nummer zwischen 1 und 10
    end;
    Google.Maps.Marker(Options); //Marker-Objekt anlegen
  end;
  with ListView1.Items.Add do //Marker-Position in die Liste eintragen
  begin
    Caption:=FloatToStr(MouseEvent.LatLng.Lng);
    SubItems.Add(FloatToStr(MouseEvent.LatLng.Lat));
    MakeVisible(false);
  end;
end;

procedure TForm1.MapMouseMove(Sender: TObject; MouseEvent: TMouseEvent);
begin
  Latitude.Text:=FloatToStr(MouseEvent.LatLng.Lat);
  Longitude.Text:=FloatToStr(MouseEvent.LatLng.Lng);
end;

Zusätzlich habe ich seine Demo um die Auswertung und Anzeige der aktuellen Cursorposition auf der Karte (Map.OnMouseMove) erweitert.

Der komplette Quellcode befindet sich im Anhang:

[BlueLiquidCell]

Hey Thom

Hätte noch ne kleine Frage zu den Overlays

Ist es möglich ein Overlay wieder zu löschen oder zu verschieben?
Hab darüber leider nichts gefunden

Schöne Grüße
Christoph

[Thom]

Hallo Christoph,

Ja, das geht - wenn auch wieder nur über die Trickkiste.
Leider bietet (T)OverlayView keine Methode oder Eigenschaft, um die Größe oder Position des Overlays zu beeinflussen.

Schaut man sich allerdings TUSGSOverlay aus der Demo SimpleOverlay an, kann man feststellen, daß in der Methode OnAdd ein DIV-Container erstellt wird, der das Overlay-Bild aufnimmt und dessen Größe und Position in der Methode Draw an die gewünschten Koordinaten angepaßt wird.

Die erste Möglichkeit besteht also darin, den DIV-Container einfach auf der Karte an die gewünschte Stelle zu verschieben.
Bei der zweiten Möglichkeit wird das Overlay mit

Delphi-Quellcode:

Overlay.SetMap(TMap(nil));
//...

von der Karte entfernt, worauf die Methode OnRemove aufgerufen wird. Anschließend wird das Overlay einfach wieder der Karte zugeordnet

Delphi-Quellcode:

Overlay.SetMap(Map);
//...

, worauf wieder OnAdd und Draw durchlaufen werden und damit die Möglichkeit besteht, das Overlay an einer anderen Stelle zu positionieren.

[BlueLiquidCell]

Hey Thom

Super deine Trickkiste!!!!
Habs aber irgendwie nicht hinbekommen.

Overlay.SetMap(Map); geht gar nicht weil er das nicht kennt

Overlay.SetMap(Map); bringt folgenden error:
[Error] Unit1.pas(366): This form of method call only allowed for class methods

Könntest du vielleicht nen kurzes beispiel schreiben auch mit dem DIV-Container? Nur wenns nicht zuviel aufwand ist

Vielen Dank
Christoph

[Thom]

Ich staune auch immer wieder, was da alles drin ist...

Noch ein kleiner Tip: Wenn Du das Overlay öfters aus- und wieder einblendest, wäre es eventuell sinnvoll, das Abräumen der Delphi-Wrapper für die DIV-Elemente von der Destroy- in die OnRemove-Methode zu verlegen:

Delphi-Quellcode:

destructor TUSGSOverlay.Destroy;
begin
  //FDivNode.Free; <- hier und
  //FImageNode.Free; <- hier weg
  inherited;
end;

procedure TUSGSOverlay.OnRemove;
begin
  Variant(DivNode.ParentNode).RemoveChild(DivNode.Disp);
  FDivNode.Free; //<- und dafür hier 
  FImageNode.Free; //<- und hier hin
end;

Machst Du das nicht, produzierst Du zwar dank der Aufräum-Automatik des Frameworks keine Speicherlecks - dafür packst Du Dir aber den Hauptspeicher unnötig voll.

OK. Veränderte Demo SimpleOverlay:

Delphi-Quellcode:

  TForm1 = class(TForm)
    //...
  private
    FMap: TMap;  //<- neu
    FOverlay: TOverlayView; //<- neu
    //...
  public
    //...
    property Map: TMap read FMap write FMap; //<- neu
    property Overlay: TOverlayView read FOverlay write FOverlay; //<- neu
  end;

procedure TForm1.FormShow(Sender: TObject);
var
  //Map: TMap; <- hier entfernen
  //...
begin
  //...
  Overlay:=TUSGSOverlay.Create(Bounds,SrcImage,Map); //<-Overlay in Variable speichern
end;

procedure TForm1.Button1Click(...)
begin
  Overlay.SetMap(TMap(nil)); //<- Overlay von der Karte entfernen -> OnRemove wird aufgerufen
  Overlay.SetMap(Map); //<- Overlay wieder einblenden -> OnAdd und Draw werden aufgerufen
end;

[BlueLiquidCell]

Hey Thom

Vielen dank aber es gibt immernoch Fehler aber ich suche morgen nochmal

Christoph