Google Maps über COM (Component Object Model)

[PStadler]

Hallo Thom,

Ich benutze Ihre Framework 2.0 und konnte damit schon viel schöne Dinge tun.
Etwas habe ich jedoch nicht gefunden. Wie man einen Marker verschieben kann? Java-Script Beispiele habe ich dazu gefunden. Aber
ich würde es gerne in Delphi machen.

mfg Peter

[Thom]

Hallo Peter,

das freut mich!
Hast Du konkrete JavaScript-Beispiele? In der Regel können diese direkt nach Delphi umgesetzt werden. Geht es zum Beispiel einfach darum, den Marker an einer anderen Stellen anzeigen zu lassen, reicht die Übergabe der neuen Koordinaten über ein TLatLng-Objekt:

Delphi-Quellcode:

 with Script do 
    Marker.SetPosition(New(Google.Maps.LatLng(LatNew,LngNew)));

[Peter.Stadler]

Hallo Thom,

Hier ist ein Skript, mit dem sich zwei von drei Markern
draggen lassen. So etwas würde ich brauchen!

http://koti.mbnet.fi/ojalesa/exam/draggable.html

mfg Peter

[Peter.Stadler]

Hallo,

Ich habe die Lösung gefunden:

var
MarkerOptions: TMarkerOptions;

begin
...
MarkerOptions.Draggable := True;
...

mfg Peter

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