Google Maps über COM (Component Object Model)

**Borni**

Den Fehler habe ich auch

**GPRSNerd**

Google hat wohl am 17.02. auf die API v3.19 zwangsumgestellt.
Hier ein paar Details auf StackOverFlow:

http://stackoverflow.com/questions/2...broken-in-ie11

Da die Lib ja noch API v2 macht und das versprochene Update auf v3 von Thom wohl nicht mehr kommt, müssen wir selbst gucken, ob wir die Lib entsprechend hochziehen können...

**GPRSNerd**

Das war einfach!

In gmAPI.pas ab Zeile 1373 folgendes ändern:
1. zuerst den DEFINE IE7_MODUS enablen.
2. Und den Contenttype auf content="IE=edge" ändern.

zusammenfalten · markieren

Delphi-Quellcode:

			{$DEFINE IE7_MODUS}

{$DEFINE USE_ONLOADCALLBACK}

{$DEFINE USE_SPLASHSCREEN}

{$DEFINE USE_ANIINDICATOR}                                 //don't work with IE6 (IE7?)

function HTMLPage(LoadAPI: Boolean = true; DivName: String = '';

                  Language: String = DefaultLanguage;

                  Region: String = DefaultRegion;

                  APIVersion: Double = DefaultVersion;

                  UseSensor: Boolean = false;

                  Libraries: TGoogleLibraries = []): String; overload;

begin

  Result:={$IFDEF IE7_MODUS}

          '<!DOCTYPE html>'+sLineBreak+

          {$ENDIF}

          '<html>'+sLineBreak+

          '  <head>'+sLineBreak;

  {$IFDEF IE7_MODUS}

    Result:=Result+

          '    <meta http-equiv="X-UA-Compatible" content="IE=edge" />';

  {$ENDIF}

Mal sehen, wie lange das geht...

Edit: Eine Karte bekomme ich angezeigt und kann in der auch navigieren, einen Track mit Wegpunkten einzeichnen erzeugt aber Exceptions in HTMLObjects.GetBody().

**Borni**

Karten anzeigen läuft wieder, super Arbeit!!!

"Nur" das getbody geht in die Hose....

**GPRSNerd**

Wie oben schon gesagt, bei mir geht jetzt nur leider der vollständige Kartenrefresh mit Script.Free und erneutem TScript.Create() nicht mehr, da wirft dann HTMLObjects.TDocument.GetBody() eine Exception. Anscheinend kann dann der <body>-Node im erzeugten HTML nicht mehr gefunden werden.
Wenn ich das Script leben lasse und einfach LoadAPIAsync(Initmap) erneut aufrufe, kommen Exceptions durch die BrowserTools.GetZoom/GetCenter, die Exception durch GetBody() ist dann weg.
Könnte sich das ein XML-Experte mal ansehen, das übersteigt meine Fähigkeiten?!

**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:

markieren

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

Themen-Optionen	Thema durchsuchen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen	Thema durchsuchen: Erweiterte Suche
Ansicht
Zur Linear-Darstellung wechseln Hybrid-Darstellung Zur Baum-Darstellung wechseln

Erstellt von	For	Type	Datum
DELPHI \| (google maps)	This thread	Refback	11. Nov 2011 09:07
Twebbrowser HTML tag to UniHTMLFrame1 - uniGUI Discussion Forums	This thread	Refback	4. Nov 2011 06:52
DoraDev1975: google maps	This thread	Refback	23. Sep 2011 08:18
delphi osm - Google Search	Post #0	Refback	19. Sep 2011 09:02
DoraDev1975: ?ิ????? 2011	This thread	Refback	11. Sep 2011 16:39
DoraDev1975	This thread	Refback	30. Aug 2011 10:13
Untitled document	This thread	Refback	25. Jun 2011 19:57
Interact with Google Maps in a TWebBrowser from Delphi \| Ramblings	This thread	Refback	26. Jan 2011 05:12
google maps mit delphi link - Google Search	This thread	Refback	24. Jan 2011 14:24
google maps mit delphi - Google Search	This thread	Refback	24. Jan 2011 14:20
Untitled document	This thread	Refback	19. Jan 2011 21:49

Google Maps über COM (Component Object Model)

AW: Google Maps über COM (Component Object Model)

AW: Google Maps über COM (Component Object Model)

AW: Google Maps über COM (Component Object Model)

AW: Google Maps über COM (Component Object Model)

AW: Google Maps über COM (Component Object Model)

AW: Google Maps über COM (Component Object Model)

AW: Google Maps über COM (Component Object Model)

Forumregeln

LinkBack to this Thread

Borni Registriert seit: 16. Aug 2004 Ort: Algermissen 89 Beiträge Delphi 12 Athens	#1 AW: Google Maps über COM (Component Object Model) 18. Feb 2015, 11:23 Den Fehler habe ich auch
	Zitat

Borni Registriert seit: 16. Aug 2004 Ort: Algermissen 89 Beiträge Delphi 12 Athens	#4 AW: Google Maps über COM (Component Object Model) 19. Feb 2015, 07:49 Karten anzeigen läuft wieder, super Arbeit!!! "Nur" das getbody geht in die Hose....
	Zitat

Borni Registriert seit: 16. Aug 2004 Ort: Algermissen 89 Beiträge Delphi 12 Athens	#7 AW: Google Maps über COM (Component Object Model) 19. Feb 2015, 12:02 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
	Zitat