Google Maps über COM (Component Object Model)

[GPRSNerd]

Das hat mir doch keine Ruhe gelassen, da ich gerade in Myanmar bin und meine täglichen GPSTracks dekodieren und anzeigen möchte!

Hier ein Fix, der ohne Veränderung der gmlib-Sourcen auskommt (also wieder die originale gmAPI.pas zurückbauen) und keine bisher beobachtbaren Nebenwirkungen hat, aber wohl nur eine begrenzte Lebensdauer.
Anstatt LoadAPIAsync(InitMap) aufzurufen, folgende Parameter hinzufügen, die dann die letzte funktionierende API-Version v3.18 erzwingt:

Delphi-Quellcode:

    with TScript.Create(wbGoogleMap) do
      LoadAPIAsync(InitMap,
                   DefaultLanguage,
                   DefaultRegion,
                   3.18);

Wenn Google diese aber in der Zukunft als deprecated flaggt und nicht mehr zulässt, gehts so natürlich nicht mehr.

[Borni]

Bei mir klappt es sogar mit 3.20, es scheint so als ob es reicht nur die VersionNr. mit zu übergeben. Es funzt wieder alles, auch das Tracking

[DelphiFan2008]

Hallo GPRSNerd,

danke für deinen "SW-Fix". War schon beunruhigt, dass meine Applikationen mit Kartendarstellung und Streckenzug/Polygon nicht mehr funktionieren. Von Thom hört man gar nichts mehr ... Schade!

Gruß DelphiFan2008

[Klaus Budmiger]

Eine Frage: hat jemand die Libraries mit XE7 zum Laufen gebracht?
Welches ist die aktuelle Version?
Vielen Dank!

[GPRSNerd]

Die Version 2.0 läuft mit den Original-Dateien aus Post#1 und meiner angepassten XE7-inc-Datei unter XE7 einwandfrei.
Version 2.1 war nur für spendende Supporter.

gmConfig.zip

[GPRSNerd]

Anbei die erweiterte inc-Datei für das zukünftige XE8, unter der Vorraussetzung, dass die Versionsnummern (VER290, CompilerVersion=29) wie immer einfach hochgezählt werden.

gmConfig_XE8.zip

[himitsu]

Ich denk auch mal, daß es einfach hochgezählt wird.
29 ist auch keine böse Zahl, so wie die übersprungene 13.

Zitat:

Delphi-Quellcode:

{$IFDEF VER240}
  {$DEFINE DELPHIXE3}
  {$IF CompilerVersion>=24}

Das IF CompilerVersion ist schon bissl nutzlos.

• > 24 kann es dort niemals werden, denn nur IFDEF VER240,
• und = 24 wird immer zutreffen.

Conditional-Expressions und die CompilerVersion-Konstante gibt es schon seit Delphi 6
und wenn man andersrum arbeitet, dann wird das alles viel kürzer, übersichtlicher und man muß vorallem langlebiger.

• die VERxxx-Konstanten komplett vergessen (oder läuft dein Code wirklich noch in D1 D2 bis D5?)
• aber wenn schon VERxxx, dann statt "ab Version" auf "bis Version" vergleichen, denn dann ist es egal, ob es eine neue Version gibt, da man die Probleme dort gefixt hat, wo sie bestehen. (in den bekannten Versionen)
• oder man geht nur noch auf CompilerVersion <= oder >= , bzw. = , wenn es ausschließlich für diese Version gilt.