Google Maps über COM (Component Object Model)

[jonathan]

Ja, schöner Mist.


Habe jetzt mal die GMLib ausprobiert.
Da ist zwar der letzte Stand immerhin vom September 2015 ... es tritt dort aber exakt der gleiche Fehler (Error in poly.js) auf!
Und ausserdem ist die GMLib viel langsamer als Thoms Umsetzung.

Hat jemand diese kostenpflichtige Lib hier (von TMS) mal ausprobiert?
Oder weiss sonst jemand hier eine funktionierende Alternative?

[DelphiFan2008]

Hallo,

ich habe bei mir folgende Code-Zeilen angepasst - im Prinzip schon ähnlich hier im Thread beschrieben - ohne den echten Hintergrund zu verstehen. Nachdem kam der "Poly.js" Fehler nicht mehr.

Delphi-Quellcode:

  
  {$IFDEF IE7_MODUS}
    Result:=Result+
        '    <meta http-equiv="X-UA-Compatible" content="IE=EmulateIE11" />
    {$ENDIF}
      Result:=Result+
          '    <meta http-equiv="X-UA-Compatible" content="IE=edge" />';
//        '    <meta http-equiv="X-UA-Compatible" content="IE=8" />';
  if LoadAPI then
  begin

Gruß DelphiFan2008

[jonathan]

Hallo DelphiFan2008,
wenn ich auf "EmulateIE11" oder "edge" stelle gibt es eine AccessViolation bei mir.

[duff]

Ich habe schreibe jetzt nur noch folgende meta in der gmAPI.pas

Delphi-Quellcode:

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

IE7_MODUS ist auskommentiert.

So kann ich zumindest wieder circles auf die Karte zeichnen.

Was nicht funktioniert:

Sobald ich z.B. ein OnCLick GMap.OnClick := MapClick; Event aufrufe (oder eine Adresssuche) läuft er beim aufruf von FProc (BrowserTools.pas) in eine exception

Delphi-Quellcode:

function TExternalMethod.Call: Variant;
begin
  Result:=unassigned;
  try
    if assigned(FProc)
      then FProc                                           //Aufruf der Objektmethode ohne Rückgabewert (Prozedur)
      else if assigned(FFunc)
        then Result:=FFunc;                                //Aufruf der Objektmethode mit Rückgabewert (Funktion)
  except
    {$IFDEF DEBUG}                                         //Exceptions dürfen nicht nach außen dringen
    ShowMessage(FName+': '+Exception(ExceptObject).Message);
    {$ENDIF}
  end;
end;

(BrowserTools.pas)

[jonathan]

Wie gesagt, mit "edge" oder "EmulateIE11" funktioniert das komplette Event-Handling nicht mehr und führt zu einer AccessViolation.

Ich habe jetzt mal spasseshalber die TMS VCL WebGMaps Komponente ausprobiert (v2.6.0.0 vom 06.10.2016) und festellen müssen, dass dort exakt der gleiche poly.js-Fehler auftritt!


Hat jemand noch eine Idee?
So wie es aussieht, gibt es wohl aktuell keine funktionierende Lösung mehr...

[dietmar.boehme]

Ich habe gerade die TMS-Version 2.6.0.0 "WebGMaps" als Trial unter XE7 ausprobiert,
zumindest das von mir benutzte Zeichen der Polylines (mit Pfeilsymbolen !!!) funktioniert einwandfrei und schnell .

Die (Custom-)Marker und Infowindows (auch mit HTML-Content) sind ebenfalls kurz angetestet und Ok .

[himitsu]

Zitat von dietmar.boehme:

Ich habe gerade die TMS-Version 2.6.0.0 "WebGMaps" als Trial unter XE7 ausprobiert,

Es liegt mit größerer Wahrscheinlichkeit nicht am Delphi, sondern eher am Windows, bzw. an der installieren Internet Explorer-Version.
Vielleicht auch an irgendwelchen Einstellungen des IE oder der Firewall.