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

[Nintendo]

Hallo,

Hab grad probiert. Zuerst aus Ordner Basics das Demo, funktioniert leider nicht bei mir. Muss D2006 verwenden, da in D7 Personal der TWebbrowser fehlt.

Map_Projection_Simple und Map_Simple, diese beiden Demos funktionieren bei mir leider nicht. In beiden Demos wird zum Programmstart die Karte einige Sekunden angezeigt, dann gelöscht, eine weiße Fläche wird sichtbar und in der rechten oberen Ecke zwei Buttons [Karte][Satellit]
und am unteren Rand die Links "Kartendaten" und "Nutzungsbedingungen" bei Map_Simple und [Karte][Gall Peters] --- "Nutzungsbedingungen" im Demo Map_Projection_Simple.

Mache ich da was falsch, muss ich noch was vorher installieren?

[Thom]

@jonathan:

Vielen Dank für den Test und die Hinweise!
Ich hatte den Patch nur schnell mit Delphi XE getestet und keinerlei Rücksicht auf andere Versionen genommen. Das werde ich dann bei Gelegenheit noch nachholen.


@Nintendo:

Delphi 2006 habe ich leider nicht - deshalb kann ich das Problem bei mir nicht nachvollziehen. Auf Grund Deiner Beschreibung vermute ich aber ein API-/Internet Explorer-Problem. Das Framework verwendet standardmäßig die neueste (experimentelle) API-Version. Abhilfe sollte die Nutzung der Release-Version bringen:

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
  if Script=nil then
    with TScript.Create(WebBrowser1) do
      LoadAPIAsync(InitMap,DefaultLanguage,DefaultRegion,3.9);
end;

Falls das nicht funktioniert, würde ich Dich bitten, die compilierte Demo an Deinen Beitrag anzuhängen, damit ich sie bei mir testen kann. Welche Windows-/Internet Explorer-Version verwendest Du?

[Nintendo]

Aaaalso ich verwende Internet Explorer Version 6.0.2800.1106.xpclient.010817-1148. Ok, dann lade ich mal meine Demos hoch. Ich habe FormShow angepasst, aber das Ergebnis ist das gleiche Verhalten, wie vorher auch. Im Internet Explorer habe ich mal probeweise GoogleMaps in meiner aktuellen Version aufgerugen. Dort wird die Landkarte angezeigt.

[Thom]

Wie schon vermutet: Deine Demos laufen bei mir ohne Probleme (XP, IE8). Es liegt also definitiv an Deinem Internet Explorer (siehe Abschnitt "Bekannte Probleme" im oberen Teil).
Das Problem liegt darin, daß das ActiveX-Control immer etwas anders reagiert, als der zugehörige Browser. So läuft zum Beispiel der IE8 in Anwendungen standardmäßig als IE7. Für den IE8, IE9 und IE10 gibt es über die Registry Möglichkeiten, ein bestimmtes Verhalten zu erzwingen. Für den IE6 sind mir derartige Einstellungsmöglichkeiten leider nicht bekannt.
Ich kann Dir also nur empfehlen (schon aus Sicherheitsgründen), eine aktuellere IE-Version zu installieren. Selbst wenn Du den IE nicht verwendest und nur mit anderen Browsern im Internet unterwegs bist: Für Desktopprogramme, die das IE-Control verwenden, ist das notwendig.

[Nintendo]

Ok, Danke, hab gleich mal aufm Laptop, meinem Zweitrechner mit IE8 getestet und tatsächlich, da klappt es. So muss ich wohl auf meinem Desktoprechner auf IE8 updaten.

[DelphiFan2008]

Hallo Thom,

ich hatte vor ein paar Tagen Probleme mit Marker und dem OnClick Event. Dein Vorschlag war

Delphi-Quellcode:

procedure MarkerClick(Sender: TObject; Event: gmEvents.TEvent);
[...]

die Fehlermeldung kam immer noch, habe gesehen dass HJay ein ähnliches Problem hat und dazu deine Antwort

Delphi-Quellcode:

uses ..., HTMLObjekts, ...

procedure MarkerClick(Sender: TObject; Event: HTMLObjects.TEvent);
[...]

mit Hinweis auf noch ... Version 2.0 ...

Bei mir tuts nach dieser Änderung und einigem probieren und suchen auch

Gruss DelphiFan2008

[Thom]

Entschuldigung wegen der verursachten Verwirrung - das liegt daran, daß ich gedanklich voll in der neuen Version stecke und zum Testen immer die "alte" Version hervorkramen muß.
Wie schon öfters geschrieben: In der Version 3 wird vieles einfacher.

[swaters]

Thom,
I was wondering how I would create a copy of the Response from a directions request.
I've tried a few methods but no success.

Thanks in advance.

swaters