Google Maps über COM (Component Object Model)

[Thom]

Zitat von DelphiFan2008:

Jedoch funktioniert das Demo aufgrund des Fehlers bei {$INCLUDE Maps4Delphi.cfg} nicht. diese Datei gibt es bei mir nicht.

Hallo DelphiFan2008,

entschuldige bitte, war wohl schon etwas zu spät... In der Formular-Unit hatte ich's noch geändert, aber in der dpr-Datei vergessen. Das ist die neue Konfigurationsdatei für Version 3 - diesen Eintrag mußt Du lediglich durch gmConfig.inc ersetzen.

Zitat von GPRSNerd:

[...] wie kannst du selbst erstellte Marker auf der Karte anzeigen? Ich hatte das auch mal versucht und ein wenig recherchiert, die Essenz war, dass die Marker eine Internet-URL haben müssen, lokale Dateien gehen nicht.

Hallo Stefan,

wie DelphiFan2008 schon schrieb, akzeptiert TWebBrowser auch Base64-codierte Daten und eignet sich damit hervorragend dazu, Bilder direkt vom Programm an Marker zu übergeben. Das geht sogar so schnell, daß das Marker-Bild quasi in "Echtzeit" ohne Flackern aktualisiert werden kann. Die zur Codierung notwendige Unit Base64.pas befindet sich im Unterverzeichnis JScript des Frameworks.
Allerdings muß man dabei beachten, daß mindestens der IE7 installiert und das codierte Bild nicht zu groß ist (ab IE9 werden auch größere Bilder akzeptiert).

Die zweite Möglichkeit besteht natürlich darin, eine lokale Datei anzugeben (siehe letzten Beitrag von DelphiFan2008).

[DelphiFan2008]

Hallo Thom,

habe gerade in einer anderen Applikation das Problem, dass wenn ich einem Marker eine .OnClick Routine zuordnen möchte, folgende Fehlermeldung kommt.

Delphi-Quellcode:

  private
    { Private-Deklarationen }
    procedure MarkerClick(Sender: TObject; Event: TEvent);
    ...

    MarkerOptions := TMarkerOptions.Create;
    with MarkerOptions do
    begin
      Map      := Self.Map;
      Position := Results[0].Geometry.Location;
    end;
    Marker := New( Google.Maps.Marker( MarkerOptions ));

    Marker.OnClick := MarkerClick;   // ====> Hier erscheint die Fehlermeldung

    LB.Items.AddObject( Results[0].FormattedAddress,Marker );
    ...

Komisch! Gruss DelphiFan2008

Übrigens, nach dem Ersatz {$INCLUDE gmConfig.inc} lief dein Demo inkl. Drag&Zoom als auch Kreis/Linie war zu sehen - wo da der Fehler liegt?

[Thom]

Schön, daß die Demo bei Dir funktioniert!
Allerdings kann ich Dir nicht sagen, weshalb das in Deinem Programm nicht funktioniert. Hier bleibt Dir wohl nur übrig, Schritt für Schritt zu testen.
Liest Du die Daten im Hauptformular ein oder in einer anderen Unit? Compilierst Du im Debug- oder Release-Modus? Im Release-Modus werden nämlich an vielen Stellen keine Exceptions ausgelöst - hier muß dann im Programmcode getestet werden, ob die vorherige Funktion erfolgreich war.

Werden Events genutzt, muß die Unit gmEvents in der Uses-Anweisung eingebunden werden. Das liegt an der unterschiedlichen Deklaration des Typs TEvent. Unter Umständen muß explizit angegeben werden, welcher TEvent-Typ verwendet werden soll:

Delphi-Quellcode:

procedure MarkerClick(Sender: TObject; Event: gmEvents.TEvent);
[...]