Google Maps über COM (Component Object Model)

[duff]

Hallo,

seit heute läuft der Aufruf der PanTo Methode in eine Exception

Script[j].Maps[0].PanTo(LatLng);

Edit:

PanTo funktioniert solange kein Zoom vorher oder nachher aufgerufen wird

Edit 2:

Also das anlegen von Circles ist das Problem. Dieses führt zu einem Scriptfehler: http://maps.google.com/maps-api-v3/a...de_ALL/poly.js

Dies hat bis gestern noch funktioniert


Kann das jemand bestätigen?

Gruß

[jonathan]

Bekomme auch einen poly.js Fehler seit heute ... allerdings beim Anlegen eines Polygons.


Edit:
Der Fehler kommt nicht beim Erzeugen, sondern wenn man die Karte mit Poly.SetMap() oder Poly.Map:= zuordnet.
Das Objekt selbst wid problemlos erzeugt und es kann auch darauf zugegriffen werden... nur die Karte kann nicht zugeordnet werden.
Damit ist es aber natürlich unsichtbar - und damit das ganze witzlos

[dietmar.boehme]

Ich habe das gleiche Problem mit poly.js,
lasse ich die Map-Zuweisung weg gibt es keinen Fehler mehr, aber auch keine Polylines auf der Karte.

[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)