Google Maps über COM (Component Object Model)

[GPRSNerd]

Wenn ich HTMLObjects vor gmEvents einbinde bekomme ich folgenden Fehler beim Zuweisen des Marker.OnClick-Events:

[dcc32 Fehler] Unit_Main.pas(2616): E2010 Inkompatible Typen: 'System.SysUtils.TProc<System.TObject,HTMLObjects. TEvent>' und 'Procedure of object'

Meine Procedure ist folgendermaßen definiert:

Delphi-Quellcode:

procedure GoogleMapMarkerClick(Sender: TObject; Event: TEvent);

und so weise ich sie zur Runtime zu:

Delphi-Quellcode:

with New(Google.Maps.Marker(MarkerOptions)) do
  OnClick := GoogleMapMarkerClick;

[Peter.Stadler]

Seit 13 Februar gibt es ein neues Google Maps API Version 3.32, als experimentelle Version und 3.31 als Default-Version. Bisher benutzte ich Version 3.23, aber die gibt es offensichtlich nicht mehr.

Seit diesem Update funktonieren alle meine auf Thoms source code basierten Mapper nicht mehr.

Was kann man dagegen tun?

Jede Idee ist willkommen.

mfg Peter

[GPRSNerd]

Seltsam, habe es gerade mit meinen Programmen ausprobiert und es gehen ohne recompilen oä. alle GMapVersionen, sowohl <3.31, 3.31 und 3.32.
Kann man auch schön an der geänderten Darstellung sehen, siehe angehängte Grafiken.

[Peter.Stadler]

Hier kommt das Ergebnis als Printscreen, wenn ich das Programm MapSimple ausführe.

Ich verwende XE8 32 Bit. Bei 64Bit gleiches Resultat!

mfg Peter

[GPRSNerd]

Du hast aber den Emulationsmodus für deine App richtig gesetzt, oder?
Siehe meinen Beitrag unter #509

[Peter.Stadler]

Ich habe alles so im Registry und in gmAPI.pas eingetragen, wie Du es in #509 angibst. Jetzt funktioniert wieder alles.

Herzlichen Dank!

[Borni]

Hallo zusammen,

Ist es jetzt vorbei ohne API-Key und ohne Bezahlung ?

Von Adresse zu Koordinaten, kommt ohne Umstellung nichts mehr !
Ist das schon die Umstellung ?

Gruß Borni

[Rollo62]

Ich suche hier auch noch nach einer Lösung, denke aber das ich nocb unter die FreeTier Regelung falle.
Aber wer kan das schon genau vorhersagen ?

Rollo

[Borni]

trotzdem muss wohl der API-Key mit übertragen werden, nur wo ?
200$ bekommt jeder registrierter Benutzer als Guthaben (z.B.: 5000 Anfragen Adresse->Koordinaten), darüber hinaus 40$ pro 1000 Anfrage. Es dürften viele unter die Freeroll fallen.

Gruß Borni

[GPRSNerd]

Zitat:

Zitat von Borni (Beitrag 1404190)

trotzdem muss wohl der API-Key mit übertragen werden, nur wo ?

Hier als BrowserKey:

Delphi-Quellcode:

function LoadAPI(InitMapProc: TNotifyEvent;
                     Language: String = DefaultLanguage;
                     Region: String = DefaultRegion;
                     BrowserKey: string = DefaultKey;
                     APIVersion: Double = DefaultAPIVersion;
                     IEVersion: String = DefaultIEVersion;
                     UseSensor: Boolean = false;
                     Libraries: TGoogleLibraries = []): Boolean; overload;

Ich benutze schon lange meinen eigenen Key, nicht den DefaultKey.

[Borni]

Hi Zusammen,

das Geocoding funzt nicht mehr, es kommt keine Rückmeldung
...
GeocoderRequest := TGeocoderRequest.Create;
GeocoderRequest.Address := fGeoPosition.Items[i].PLZ + ' ' + fGeoPosition.Items[i].Ort + ',' + fGeoPosition.Items[i].Strasse+ chr(38)+'key=[APIKEY]';
Geocoder.Geocode(GeocoderRequest, GeocoderCallback);
...

das Callback wird nicht mehr aufgerufen....

Hat jemand schon den Fehler gefunden ?

Gruß Borni

[Rollo62]

Hat es denn vorher mal funktioniert ?

Ich habe jetzt deinen String nicht gecheckt, aber könnte es sein das es an der Umstellung der Google Konditionen liegt ?
Es muss jetzt ein Account mit hinterlegten Zahlungsdaten vorliegen.

Rollo

[Borni]

Abrechnungskonto und API-Key sind vorhanden. Werden beim Aufbau auch mit versendet.
Beim GEocoder sieht es so aus, als ob der KEy auch nochmal bei jeder Anfrage mitgeschickt werden muss, die Anfragen kommen bei Google an (Statistik), aber es kommt keine Response.

Und Ja, es hat super vorher funktioniert !

[Peter.Stadler]

Hallo,

Ich habe alle 16 Google Maps APIs enabled un einen neuen key erzeugt.
Billing ist on!
Beim Laden kommt es zu einer Exception, siehe Printscreen.

Der Key wird geladen mit folgender Zeile:

Result := 'https://maps.googleapis.com/maps/api/js?key='+YOUR_API_KEY+'&callback=initMap';

Konnte schon jemand seine Programme wieder zum Laufen bringen?

mfg Peter

[arnof]

Ich benutze das hier nicht und habe selbst was gebastelt, das vor 14 Tagen seinen Dienst eingestellt hat!

Google will nun alle Anfragen als https haben sonst kommt keine Antwort mehr!

Vielleicht hilft es euch weiter

[Peter.Stadler]

Hallo,

Ich habe mir ein einfaches Prog von Thoms demos ausgewählt, MapSimple.
Bei allen demos fehlt ein key, also habe ich den zuerst hinzugefügt.

Result := 'https://maps.googleapis.com/maps/api/js?key='+YOUR_API_KEY+'&callback=initMap';

in gmAPI Zeile 1295.

Hier unten in gmAPI Zeile 2570 stürzt das Programm ab, beim Laden des API, mit der Exception mit der Meldung "Unbekannter Name"

if not assigned(FOnAPILoaded)
then FOnAPILoaded:=NewFunction(OnAPILoaded,'OnAPILoaded ');

Hat niemand das gleiche Problem?

mfg Peter

[Peter.Stadler]

Hallo,

Ich habe einige Experimente gemacht:

Derzeit funktionieren allen Beispiel-Programme von Thom nicht.

Wenn ich versuche https://jsfiddle.net/vfo8ywhx/ mit Beispiel Simple map in javascript mit meinem APIkey alles
geht gut. Es gibt also kein Problem mit meinem APIKey.

Wenn der APIkey unvollständig ist, wird ein Fehler angezeigt.

Wenn der APIKey leer ist, ist alles wieder in Ordnung.

Ich denke, etwas wurde in der Schnittstelle zwischen Delphi und Javascript von Google geändert.

Ich habe dieselben Probleme mit TMSFMX, siehe hier:
https://www.tmssoftware.com/site/def...r%20FireMonkey
Keines der Programme arbeitet mit der aktuellen Schnittstelle.

Mfg Peter

[GPRSNerd]

Hallo Peter,

ich habe mein Track-Programm gerade mal neu gebuildet und es zeigt mir immer noch ohne Probleme eine Map an, inklusive eingezeichneten Polygonen, Markern etc.
Auch die von anderen Programmen bekannten eingeblendeten "for development purposes" only mit ausgegrauter Karte stelle ich nicht fest.
Mein persönlicher API-Key wird mitübertragen, ich hatte dafür die LoadAPI()-Interfaces aufgebohrt, war schon mal Thema hier im Thread.

Gruß,
Stefan

Anhang 50235

[GPRSNerd]

Zitat:

Zitat von Peter.Stadler (Beitrag 1417793)

Hallo,
Hier unten in gmAPI Zeile 2570 stürzt das Programm ab, beim Laden des API, mit der Exception mit der Meldung "Unbekannter Name"

if not assigned(FOnAPILoaded)
then FOnAPILoaded:=NewFunction(OnAPILoaded,'OnAPILoaded ');

Hat niemand das gleiche Problem?

mfg Peter

Aus der Codezeile sehe ich gerade, dass du LoadAPIAsync() benutzt.
Das hatte ich in meinen Programmen schon vor längerer Zeit wegen Problemen auf LoadAPI() umgestellt, was dann keine Probleme mehr machte.

[DelphiFan2008]

Zitat:

bekannten eingeblendeten "for development purposes" only mit ausgegrauter Karte

Hallo,

ich habe ein Programm vor vielen Jahren mit der Library von Thom im Einsatz. Ich verwende keinen Kay von Google. Daher erschien die Karte seit längerer Zeit mit der Meldung wie auch von Stefan benannt "bekannten eingeblendeten "for development purposes" only mit ausgegrauter Karte". War für mich o.k., da die GPX Dateien als Polygon auf diese "schwach" angezeigten Karte einigermaßen wahrnehmbar war. Ich habe im Prgramm die Möglichkeit GoogleErath mit dem Polygon als KML aufzurufen - hier im Detail alles sichtbar.

Nun erhalte ich jedoch seit heute sofort beim Start eine Fehlermeldung und das Prgramm lässt sich somit nicht mehr nutzen, denke Google hat die Nutzung weiter eingeschränkt.

Kann ich dies mit dem (kostenlosen?) GoogleMap API-Key wieder nutzbar machen?

Wenn ja,
1. Wie komme ich an den geeignete Key (oder sind es mehrere?)
2. Wie binde ich den Key in das Framework von Tom ein?

Danke und Gruß, DelphiFan2008

[era]

Zitat:

Zitat von DelphiFan2008 (Beitrag 1502509)

Zitat:

bekannten eingeblendeten "for development purposes" only mit ausgegrauter Karte

Hallo,

ich habe ein Programm vor vielen Jahren mit der Library von Thom im Einsatz. Ich verwende keinen Kay von Google. Daher erschien die Karte seit längerer Zeit mit der Meldung wie auch von Stefan benannt "bekannten eingeblendeten "for development purposes" only mit ausgegrauter Karte". War für mich o.k., da die GPX Dateien als Polygon auf diese "schwach" angezeigten Karte einigermaßen wahrnehmbar war. Ich habe im Prgramm die Möglichkeit GoogleErath mit dem Polygon als KML aufzurufen - hier im Detail alles sichtbar.

Nun erhalte ich jedoch seit heute sofort beim Start eine Fehlermeldung und das Prgramm lässt sich somit nicht mehr nutzen, denke Google hat die Nutzung weiter eingeschränkt.

Kann ich dies mit dem (kostenlosen?) GoogleMap API-Key wieder nutzbar machen?

Wenn ja,
1. Wie komme ich an den geeignete Key (oder sind es mehrere?)
2. Wie binde ich den Key in das Framework von Tom ein?

Danke und Gruß, DelphiFan2008

Das Problem habe ich auch, bitte um kurze rückmeldung wer mehr Infos diesbezüglih hat.

Vielen Dank!

LG