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.