Google Maps über COM (Component Object Model)

[Thom]

Auf welche Funktion/Unit kommst Du, wenn Du mit Strg auf die Funktion Script klickst?

[mischo22]

Ich komme auf die datei BrowserTools.pas

Code:

function Script(WebBrowser: TOleControl): IDispatch;

[Thom]

Hatte ich schon vermutet. Ändere mal bitte die Reihenfolge der Units in der uses-Anweisung: gmAPI muß nach (!) BrowserTools kommen.

[mischo22]

Ok, das war schon mal der Fehler.
Perfekt ist es aber noch immer nicht.
Map1 (Webbrowser_T1) scheint alle Befehle aus dem Init-Map korrekt zu verarbeiten.
Bei den Maps 2-4 werden die festgelegten Center-Koordinaten nicht korrekt angewendet.
Die Karten liegen nicht bei LatLng(0,0) sondern bei LatLng(-90,0).

Irgend eine Idee?

[Thom]

Zitat von mischo22:

Irgend eine Idee?

Nö...

Lade mal bitte ein kompilierbares Projekt hoch, damit ich mir das Problem im Debugger anschauen kann.

[mischo22]

Habs per Mail gesendet.

[Thom]

Hallo Michael,

ist angekommen und auch schon angeschaut.

Das Problem liegt bei der VCL bzw. dem TWebBrowser: Solange dieser nicht sichtbar ist, hat er eine Größe von 0x0 (oder 1x1) Pixeln. Damit liegt das Kartenzentrum (in Deinem Fall (0,0)) in der linken oberen Ecke.
Mein Vorschlag wäre, nur die Karte zu laden, die am Anfang sichtbar ist und alle anderen erst dann, wenn die entsprechende Seite angeklickt wird:

Delphi-Quellcode:

procedure TForm1.PageControl1Change(Sender: TObject);
  procedure InitMap(WebBrowser: TWebBrowser);
  begin
    if Script(WebBrowser)=nil then
      with TScript.Create(WebBrowser) do
        LoadAPIAsync(Self.InitMap);
  end;
begin
  if PageControl1.ActivePage=TabSheet1 then InitMap(WebBrowser_T1);
  if PageControl1.ActivePage=TabSheet2 then InitMap(WebBrowser_T2); //bzw. Tracker2, da Du das umbenannt hattest
  if PageControl1.ActivePage=TabSheet3 then InitMap(WebBrowser_T3);
  if PageControl1.ActivePage=TabSheet4 then InitMap(WebBrowser_T4);
  if PageControl1.ActivePage=TabSheet5 then InitMap(WebBrowser_T5);
end;

Das würde auch die Startzeit des Programmes spürbar verkürzen, da jetzt nicht mehr alle Karten im OnShow-Ereignis geladen werden müssen.