Google Maps über COM (Component Object Model)

[movnet]

Hi Thom.
Thank you very much for your work. :thumb:
Tell me how to add waypoint in the DirectionsRequest(TDirectionsRequest)?
Thanks!

[Thom]

@BBoy:

Gib mit bitte etwas Zeit: Ich werde versuchen, eine Lösung zu posten.

@movnet:

Thank you! :-D
This is with version 1.1 of the framework unfortunately not possible. If you give me your email address via PM I will send you an updated version and an example.

[BlueLiquidCell]

Hey Thomas

Hätte nochmal ne Frage zum Overlay.

Hab das so geändert wie dus geschrieben hattest, dann funktioniert es auch, aber sobald ich die NE oder SW Bounds änder geht es nicht mehr.

Würde gern folgendes haben:

Delphi-Quellcode:

Center:=Google.Maps.LatLng(55.00,6.00);          //Kartenmittelpunkt
....
NEBound:=Google.Maps.LatLng(55.00,6.00);    //nord-östliche Overlayecke
SWBound:=Google.Maps.LatLng(53.00,9.00);    //süd-westliche Overlayecke
Bounds:=Google.Maps.LatLngBounds(SWBound,NEBound);     //Overlaybegrenzung
SrcImage:='C:\1.jpg';
USGSOverlay.Create(Bounds,SrcImage,Map);

Wäre super wenn du mir helfen kannst.

Danke
Christoph

[Thom]

Hallo Christoph,

Wow: Google Maps reagiert ja da recht bösartig... :lol:

Das liegt aber daran, daß Du das Overlay-Bild auf der nördlichen Halbkugel unterbringen willst und dort muß der Breitengrad der nord-östlichen Ecke größer sein, als der der süd-westlichen. Sonst hat das Rechteck quasi eine "negative" Höhe und damit scheinen die Entwickler des API's nicht zu rechnen...

Also mußt Du nur die Zahlen vertauschen:

Delphi-Quellcode:

NEBound:=Google.Maps.LatLng(55.00,9.00); //nord-östliche Overlayecke
SWBound:=Google.Maps.LatLng(53.00,6.00); //süd-westliche Overlayecke

Damit sollte es funktionieren.

Viele Grüße
Thomas

[BlueLiquidCell]

Hey Thomas

Stimmt natürlich da hab ich net dran gedacht!
Danke!

Kann man das Overlay auch irgendwie halb transparent machen? So dass man die halb durchsehen kann?
Ist png da wieder die einzige lösung?

Christoph

[Peter.Stadler]

Hallo Thom,

Die GoogleMaps-Benutzung von Delphi aus ist das beste, das ich bisher hierzu gefunden habe.
Ich habe aber auf meinen Computern aber auch das Goggle-Earth-Plugin installiert. Von jedem Webbrowser mit GoogleMaps
kann man nun auf den 3D-View Earth umschalten.

Wie kann man mit der hier vorgestellten Delphi-Lösung diese Schaltfläche mit Earth anzeigen lassen, um in den 3D-Mode
umzuschalten?

mit freundlichen Grüssen
Peter

[Thom]

Hallo Christoph,

soweit mir bekannt ist, unterstützt das Google Maps API die Transparenz bzw. Opazität nur bei kompletten Layern, die von (T)ImageMapType abgeleitet wurden, aber nicht bei Overlays.

Aber mit einem tiefen Griff in die Trickkiste geht es doch:

Delphi-Quellcode:

procedure USGSOverlay.OnAdd;
begin
  [...]
  ImageNode.Style.Width:='100%';
  ImageNode.Style.Height:='100%';
  ImageNode.Style.Filter:='Alpha(opacity=50)'; //<- Opazität in %
  [...]
end;

Hallo Peter,

vielen Dank für das Lob! :-D
Hmmm... Google Earth... Ich hatte das Plugin einmal auf meinem Rechner installiert - dann aber wieder auf Grund des penetranten und aggressiven Updaters wieder deaktiviert. Deshalb habe ich das Google Earth API bisher auch noch nicht getestet. Eine Ein- bzw. Anbindung an das Framework wäre technisch sicherlich machbar (siehe Diskussion zur Realisierung eines OpenLayer-Frameworks einige Seiten weiter vorn).
Aber:
Durch die Experimente mit den verschiedenen JavaScript-API's weiß ich jetzt ungefähr, was meiner Meinung nach zu einem derartigen Player/Viewer gehört und habe auch etliche Stellen gefunden, mit denen ich nicht so glücklich bin (zum Beispiel verliert OpenLayers den Focus, wenn der Cursor den Bereich verläßt oder auch nur über ein integriertes Steuerelement bewegt wird; Google Maps ist dagegen wesentlich träger als OpenLayers).
Deshalb habe ich aufgehört, JavaScript-API's einfach nur nachzubauen und arbeite seit einiger Zeit an einer nativen Delphi-Lösung. Damit wird die Abhängigkeit von einem Browser-ActiveX beendet (ein wichtiger Schritt in Richtung plattformübergreifende Nutzung) und durch den Übergang von einer Skript- (JavaScript) zu einer compilierten Sprache die Darstellung um den Faktor 5 bis 10 beschleunigt. Und so ganz nebenbei werden dann auch Tricks wie der mit der Transparenz von Bildern (siehe oben) überflüssig.

[BlueLiquidCell]

Hey Thom

Super Vielen Dank!

Christoph

[Thom]

Gern geschehen! :thumb:

[Thom]

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

Anhang 34483

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: