Google Maps über COM (Component Object Model)

[Thom]

Hallo Peter,

kein Problem! Marker können über das Options-Objekt verschiebbar gemacht werden

Delphi-Quellcode:

var
  Opts: TMarkerOptions;
begin
  with Script do
  begin
    Opts:=TMarkerOptions.Create;
    Opts.Draggable:=true;
    Opts.Animation:=Google.Maps.Animation.Bounce; //<- Animation am Ende des Drag-Vorganges
    Marker:=New(Google.Maps.Marker(Opts));
    Marker.OnStartDrag:=OnStartDrag; //<- Event-Handler, der den Beginn der Verschiebung meldet
    Marker.OnDrag:=OnDrag; //<- Event-Handler während der Verschiebung
    Marker.OnDragEnd:=OnDragEnd; //<- Event-Handler, der das Ende der Verschiebung signalisiert
    [...]
  end;
end;

oder direkt über das Marker-Objekt:

Delphi-Quellcode:

  Marker.SetDraggable(true)
  [...];

OK - da kam meine Antwort zu spät...

[DelphiFan2008]

Hallo Thom,

habe meine "Karte" mit einer Skalierung versehen. Momantan bestimme ich die Entfernung mit einer externen Funktion nach der Methode Orthodrome. GPSGetDistance( ) mit folgendem Quelltext.

Delphi-Quellcode:

procedure TForm1.MapZoomAndSized(Sender: TObject);
var
     t           : TLatLngBounds;
     x,y : Integer;
     fLat1,fLng1,
     fLat2,fLng2 : Double;
begin
  t := Map.GetBounds;

  fLat1 := t.GetNorthEast.Lat;
  fLng1 := t.GetNorthEast.Lng;
  fLat2 := t.GetSouthWest.Lat;
  fLng2 := t.GetSouthWest.Lng;

  x := Round( GPSGetDistance( 0.0,0.0,fLng1,fLng2 ) );
  y := Round( GPSGetDistance( fLat1,fLat2,0.0,0.0 ) );

  RUx.RightVal := x;  // Steuerelement Ruler/Skala in x-Richtung
  RUy.RightVal := y;  // Steuerelement Ruler/Skala in y-Richtung
end;

Verknüpft ist MapZoomAndSized() mit Map.OnZoomChanged und Map.OnBoundsChanged

Kann ich die Entfernung (Kartenausschnitt-Breite/Höhe) auch über GoogleMap direkt bestimmen?

Gruß DelphiFan2008

[Thom]

Hallo DelphiFan2008,

die Lineale sehen ja super aus!

Ja, die Breite und Höhe der angezeigten Karte läßt sich auch mit Hilfe des Google Maps API's berechnen. Dazu muß lediglich die Geometrie-Bibliothek eingebunden werden:

Delphi-Quellcode:

  LoadAPI(InitMap,[libGeometry]);
  //oder
  LoadAPIAsync(InitMap,[libGeometry]);

Die Berechnung selbst erfolgt dann über die Funktion ComputeDistanceBetween des Spherical-Objektes:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Width, Height: Double;
  NorthWest: {$IFDEF USE_INTERFACES}ILatLng{$ELSE}TLatLng{$ENDIF};
begin
  with Script do
  begin
    with Maps[0].Bounds do
    begin
      NorthWest:=New(Google.Maps.LatLng(NorthEast.Lat,SouthWest.Lng));
      Width:=Google.Maps.Geometry.Spherical.ComputeDistanceBetween(NorthWest,NorthEast);
      Height:=Google.Maps.Geometry.Spherical.ComputeDistanceBetween(NorthWest,SouthWest);
    end;
  end;
  ShowMessage(Format('Width: %f km, Height: %f km',[Width/1000,Height/1000]));
end;

Code:

NW---------NE
|          |
|          |
|          |
|          |
|          |
SW---------*

NW - NorthWest
NE - NorthEast
SW - SouthWest

Bei dieser Gelegenheit möchte ich einmal einen kleinen Ausblick auf die kommende Version des Frameworks geben:
Eine wichtige Erweiterung - neben vielen anderen Neuerungen - wird die Verwendung von Interfaces sein (siehe obiges Beispiel), so daß eine compilerunterstützte, automatische Freigabe nicht mehr benötigter Objekte zur Verfügung stehen wird. Bisher sollte (mußte aber nicht) das Objekt NorthWest im eigenen Quelltext freigegeben werden. Das wird nach der Umstellung auf Interfaces nicht mehr notwendig sein.

[ReM]

I hope you understand english...
I have two groups of markers (red and blue). First group visible permanent. How can I change markers in second group? Remove all, change chosen, change all.

[mkinzler]

Use different layers for the groups/background.

[Thom]

Hi ReM,

use a list for the second group:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  [...]
  private
    FGroup2: TList;
  [...]  
  end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FGroup2:=TList.Create;
end;

procedure TForm1.CreateMarkersFromGroup2;
var
  n: Integer;
  Marker: TMarker;
begin
  with Script do
  begin
    for n:=0 to ... do
    begin
      Marker:=New(Google.Maps.Marker(...));
      FGroup2.Add(Marker);
    end;
  end;
end;

procedure TForm1.HideGroup2;
var
  n: Integer;
begin
  for n:=0 to FGroup2.Count-1 do
    TMarker(FGroup2[n]).SetMap(nil);
end;

Another possibility is to store the markers individually:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  [...]
  private
    FMarker1,
    FMarker2,
    FMarker3,
    ...: TMarker;
  [...]  
  end;

procedure TForm1.HideMarker1;
begin
  FMarker1.SetMap(nil);
end;

@mkinzler:

Diese Lösung würde mich interessieren. Soweit mir bekannt ist, rendert Google Maps alle Marker in einen gemeinsamen Layer (DIV-Element) (außer bei KML-Dateien, wobei dann aber keine "echten" Marker erstellt werden).
Wie steuerst Du die Zuordnung eines Markers zu einem bestimmten Layer bzw. "Background"?

[ReM]

Thanks, Thom.

I get error E2251 Ambiguous overloaded call to 'SetMap'
on line
TMarker(FGroup2[n]).SetMap(nil);

Delphi 2009.