Google Maps über COM (Component Object Model)

[Thom]

Florian und duff,

vielen Dank!

Eine Bing-Unterstützung wird es ebenso geben wie die Nutzung von OpenStreetMap-Karten. Allerdings nicht im Rahmen dieses Projektes, da das immer vom Internet Explorer abhängig ist und durch dessen JavaScript-Engine nicht gerade mit Warp-Geschwindigkeit arbeitet.
Deshalb habe ich schon seit einigen Wochen parallel dazu einen Karten-Viewer in Arbeit, der nativ in Delphi geschrieben ist und neben der Karten-Anzeige noch etwas mehr zu bieten hat - so zum Beispiel die Anzeige von Giga- und Terrapixel-Bildern. Schon jetzt ist diese Komponente um den Faktor 5 bis 10 schneller als der Zugriff über JavaScript-API's.
Durch die Abkopplung vom IE-ActiveX und dem neuen Compiler von XE2 ist eine plattformübergreifende Nutzung geplant.

[Florian Hämmerle]

Klingt sehr interessant! Freu mich schon, mehr davon zu hören.

[duff]

Wow,

das hört sich wirklich sehr interessant an. Freue mich schon den Karten-Viewer in Aktion zu sehen.

Wirklich toll und bitte weiter so

[Thom]

Vielen Dank!

In diesem Zusammenhang einige weitere Neuigkeiten:
Seit einigen Tagen (24. August 2011) gibt es die Version 3.6 des API's von Google Maps.
Seit diesem Zeitpunkt werden standardmäßig anklickbare Punkte (Point Of Interest - POI) auf den Karten angezeigt:


Das ist aber nicht in jedem Fall erwünscht. Um diese Punkte wieder von der Karte verschwinden zu lassen, nutzt man am besten das TMapTypeStyles-Objekt. Dieses befindet sich in Version 1.1 des Frameworks in der Unit gmOverlays.
Die Nutzung ist recht einfach:

Delphi-Quellcode:

type
  TMapOptionsAccess = class(TMapOptions);

procedure TForm1.FormShow(Sender: TObject);
var
  Options: TMapOptions;
  Styles: TMapTypeStyles;
begin
  [...] //Script-Objekt anlegen und Seite vorbereiten
  Styles:=TMapTypeStyles.Create;
  with Styles.AddStyle do
  begin
    FeatureType:='poi';
    ElementType:='labels';
    AddStyler.Visibility:='off';
  end;
  Options:=TMapOptions.Create; //Options-Objekt anlegen
  with Options do
  begin
    [...] //Initialisierung
  end;
  TMapOptionsAccess(Options).SetProp('styles',Styles.Disp,true);  //<- Style zusätzlich in den Optionen übergeben
  [...] //Karte anlegen
end;

Und schon sind die POI's nicht mehr zu sehen:


Diese Vorgehensweise ist nur eine Zwischenlösung.

Damit möchte ich die Version 1.4 des Frameworks ankündigen (Version 1.2 gab es als Download zu einer Toolbox-Ausgabe und 1.3 habe ich nur per Email verschickt).

Darin stehen - neben Bugfixes - einige große Neuerungen an:
Vollständige Unterstützung des Google Maps API's bis zur aktuellen Version einschließlich der Nutzung von Bibliotheken:

• Geometry Library
• AdSense Library
• Panoramio Library
• Places Library

Die Erstellung von Karten wurde noch einmal vereinfacht und die Refresh-Taste F5 wird jetzt frameworkintern verarbeitet. Damit ist jetzt das Neuladen der Karte ohne zusätzlichen eigenen Code möglich.
Desweiteren wird Delphi XE2 unterstützt.

Demo zum Ausblenden von POI's mit Frameworkversion 1.1:

[DeddyH]

Du meinst Delphi XE2

[Thom]

Danke DeddyH, Du hast natürlich vollkommen Recht.

Ich habe gerade in den News, gelesen, daß TMS software auf den Delphi-Tagen in Köln drei neue Produkte vorstellen will - unter anderem eine Google Maps Komponente für Delphi.
Eine Anfrage bezüglich des Preises wurde wie folgt beantwortet:

Zitat von Bruno Fierens:

Not all is set in stone yet wrt pricing but it will be low cost.

Allerdings gibt es mein Framework immer noch kostenlos*.

*für nichtkommerzielle Anwendungen

[DelphiFan2008]

@Thom,

wäre auch schade wenn sich was an der Situation/Randbedingung deines Frameworks etwas ändern würde. Ich warte momentan auf den Key für den Download von Delphi XE2 Starter. Bin gespannt ob sich das Framwork nahtlos in die Umgebung einbinden läßt. Die fruchtbare Diskussion im Forum und deine Programmierkünste werden das Nötige dazu beitragen ...

Gruß DelphiFan2008