Google Maps über COM (Component Object Model)

[DelphiFan2008]

Hallo Thom,

ich glaube ich hatte mich schon mal zu folgendem Sachverhalt bei dir gemeldet. Bisher jedoch keine Lösung. Habe wieder ein wenig mit dem Demo "Directions Draggable" experimentiert und möchte die Funktion zur Festlegung einer Strecke und nachfolgend zur Wandlung in einen GPS-Track verwenden. Mir ist jedoch unklar, wie ich auf den "Druck" einer eingeführten Richtungsänderung reagieren kann. Sprich ich lege eine Strecke an, verschiebe dazwischen einige Punkte - manche falsch - dann löschen, aber wie. Google-Maps übernimmt ja die Verschiebung eines solchen Punktes - wie ich ihn jedoch z.B. löschen kann ist mir unklar. Auf der Homepage "Motoplaner" ist es mit einem Dialog und Button gelöst - ein Popup wäre auch in den meisten Fällen ausreichend. Kennst du eine einfache Lösung?

Gruß DelphiFan2008

P.S. Warte auch sehnsüchtig auf das Framework V3

[JonnyR]

Dear Thomas,

Please forgive me not asking this question in German, however, my German is very poor.

May I ask if you have a demo available to show how to use your framework to create a heatmap, like this ...

http://api.ning.com/files/7TmaLfpwq1...1d/heatmap.jpg

Thanks for you time and a really great component.
Jonny

[Thom]

Dear Jonny,

Thank you very much! No problem. If you understand my bad english...

A unit for the visualization library is planned in version 3.0 of the framework. But I'm doing a non-public version 2.2 and have this unit adapted in accordance to your question to the old engine. This version will contain four demos to use the visualization library (including one with the heatmap layer). If you are a commercial user or a donor, you will receive version 2.2 in the next few days.

Many greetings
Thomas

Delphi-Quellcode:

  if Script(WebBrowser1)=nil then
    with TScript.Create(WebBrowser1) do
      LoadAPIAsync(InitMap,[libVisualization]);

Delphi-Quellcode:

  TaxiData:=TLatLngMVCArray.Create;
  with TaxiData do
  begin
    Push(New(Google.Maps.LatLng(37.782551,-122.445368)));
    Push(New(Google.Maps.LatLng(37.782745,-122.444586)));
    Push(New(Google.Maps.LatLng(37.782842,-122.443688)));
    [...]
  end;
  HeatmapLayerOptions:=New(Google.Maps.Visualization.HeatmapLayerOptions);
  HeatmapLayerOptions.Data:=TaxiData;
  HeatmapLayer:=New(Google.Maps.Visualization.HeatmapLayer(HeatmapLayerOptions));
  HeatmapLayer.SetMap(Map);

[DelphiFan2008]

Hallo Thom,

melde mich nochmals wegen dem Punkt - Event erkennen, wenn man per Maus auf den "Richtungsänderungskreis/ViaWayPoints" klickt.

Den Zugriff auf die ViaWayPoints bekomme ich in über...

Delphi-Quellcode:

    MyRoute := DirectionsRenderer[0].Directions.Routes[0];
    // BEGIN ViaWayPoints
    // Zugriff auf die Zwischen-Punkte, "kreisrund" über Route-Drag
    for i := 0 to MyRoute.Legs.Count-1 do
    begin
      for j := 0 to MyRoute.Legs[i].ViaWayPoints.Count-1 do
      begin
        sLAT := Format( '%2.8f',[MyRoute.Legs[i].ViaWayPoints[j].LAT] );
        sLNG := Format( '%2.8f',[MyRoute.Legs[i].ViaWayPoints[j].LNG] );
        LBViaWayPoints.Items.Add( Format( '[Leg:%d|ViaW:%d][%s/%s]',[i,j,sLAT,sLNG] ));
      end;
    end;
    // END ViaWayPoints

aber ich finde keine Möglichkeit den Klick zu erkennen bzw. Event auszulösen ... evntl. mit Listener?!?

Kannst du mir weiterhelfen?

Gruß DelphiFan2008

[Thom]

Hallo DelphiFan,

leider gibt's da keine Events bei einem Klick oder beim Verschieben. Die einzige "offizielle" Möglichkeit besteht darin, beim DirectionsRenderer auf das Ereignis directions_changed (in Delphi OnDirectionsChanged) zu reagieren:

Zitat:

This event is fired when the rendered directions change, either when a new DirectionsResult is set or when the user finishes dragging a change to the directions path.

Viele Grüße
Thomas

[manfred_h]

Hallo Thomas

Du hast mir vor einiger Zeit eine sehr schöne Demo für den Batchimport bereitgestellt.
Diese würde ich sehr gerne verwenden. Für Deinen Aufwand möchte ich Dir auch gerne den
abgesprochenen Betrag überweisen. Leider erreiche ich Dich per Mail nicht... habe es mehrfach versucht
Wenn Du Zeit hast schreib mir doch eine Mail oder eine PN.

Shalom
Manfred

[DelphiFan2008]

Hallo Thomas,

arbeite gerade mal wieder an einem "älteren" Projekt. Habe das komplette Verzeichnis kopiert. Version/Datum im Quelltext angepasst (nur interne Integer/String Größen) - Programm kompiliert, gestartet und wie immer Streckendaten eingelesen und es erscheint weder ein Polygon noch die Marker - hatte immer funktioniert.

Lade ich das alte Projekt aus dem ursprünglichen Verzeichnis oder ursprünglichen Verzeichnissen, so zeigt das Programm die Daten Elemente korrekt an. Stimmt was nicht in der Projektverwaltung oder hängt es mit deinem Framework zusammmen. Hast du schon mal dieses Verhalten beobachtet.

Verzeichnisse
...
\Programm\100\Daten
\Programm\101\Daten
...

Karte und Auschnitte werden korrekt dargestellt - nur Polygon/Marker ohne Fehlermeldung gar nicht. Höhendaten per Service ermitteln funktioniert, Geocoder ebenfalls. Sind alles Elemente im Programm die funktionieren.

Gruß DelphiFan2008