Google Maps über COM (Component Object Model)

[azrin.aris]

Dear Thomas,

Thank you for your great contribution. I do not understand German so I use google translate to try to understand your blog. I've downloaded your version 2 and try to compile on on Delphi XE2 - my ultimate is to use C++ Builder. Initially I got some problem to compile but now everything works fine. I'm learning the examples now.

Thank you

[beeglext]

error inslal TWebBrowser Delphi7
http://s47.radikal.ru/i116/1112/bc/2b5714883b81.jpg
help please

[Thom]

Hi Azrin,

thank you very much! Unfortunately I have only Delphi and not RAD Studio, so I could test it yet. If there are problems again, please tell about it!


Hi Дмитрий,

Delphi 7 has a integrated TWebBrowser component (dclie70.bpl). You do not need a additional component.

[beeglext]

Thom, спасибо (thank you)

[azrin.aris]

Zitat von Thom:

Hi Azrin,

thank you very much! Unfortunately I have only Delphi and not RAD Studio, so I could test it yet. If there are problems again, please tell about it!

Hi Thom,

I mange to port 2 of your samples int C++ Builder. Now I'm trying to port one of Events sample - the DOMListener sample. Unfortunately, I stuck

here is the code in Delphi (from your sample)

Delphi-Quellcode:

    {$IFDEF USE_ANONYMOUS_METHODS}
    Google.Maps.Event.AddDomListener(Map.Container,'click',NewFunction(
      procedure(Sender: TObject)
      var
        Event: TJScriptObject;
      begin
        //'Sender' is the TJScriptObject that was created with 'NewFunction()'
        //The 'click' event has one parameter - a object with the x and y
        //position of the click.
        Event:=TJScriptObject(CreateObjectWrapper(Script,TJScriptObject,
                                                  TJScriptFunction(Sender).Arguments[0]));
        ShowMessage('DIV clicked'+', ('+
                    'x: '+IntToStr(Event.Properties['x'])+', '+
                    'y: '+IntToStr(Event.Properties['y'])+')');
      end));
    {$ELSE}
    Google.Maps.Event.AddDomListener(Map.Container,'click',NewFunction(DIVClick));
    {$ENDIF}

I also attached here are the C++ codes that I manage to port and compile and is working

[azrin.aris]

Hi all,

Here is another stumbling block that I encounter

the delphi code is:

Delphi-Quellcode:

procedure TForm1.InitMap(Sender: TObject);
var
  Marker: TMarker;
  MarkerOptions: TMarkerOptions;
  MyMap: TMap;
  MyOptions: TMapOptions;
begin
  with TScript(Sender) do
  begin
    MyOptions:=TMapOptions.Create;
    with MyOptions do
    begin
      Zoom:=4;
      Center:=New(Google.Maps.LatLng(-25.363882,131.044922));
      MapTypeID:=Google.Maps.MapTypeID.Roadmap;
    end;
    MyMap:=New(Google.Maps.Map(MyOptions));
    MarkerOptions:=TMarkerOptions.Create;
    with MarkerOptions do
    begin
      Position:=MyMap.GetCenter;
      Map:=MyMap;
      Title:='Click to zoom';
    end;
    Marker:=New(Google.Maps.Marker(MarkerOptions));
    {$IFDEF USE_ANONYMOUS_METHODS}
    Marker.OnClick:=
      procedure(Sender: TObject; Event: TEvent)
      begin
        if MyMap.GetZoom=8
          then MyMap.SetZoom(4)
          else MyMap.SetZoom(8);
        MyMap.SetCenter(Marker.GetPosition);
      end;
    {$ELSE}
    Marker.OnClick:=MarkerClick;
    {$ENDIF}
  end;
end;

{$IFNDEF USE_ANONYMOUS_METHODS}
procedure TForm1.MarkerClick(Sender: TObject; Event: TEvent);
begin
  with Script do
  begin
    if Maps[0].GetZoom=8
      then Maps[0].SetZoom(4)
      else Maps[0].SetZoom(8);
    Maps[0].SetCenter(TMarker(Sender).GetPosition);
  end;
end;
{$ENDIF}

and the C++ code is:

Code:

//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <SHDocVw.hpp>
#include <Vcl.OleCtrls.hpp>
#include "gmAPI.hpp"
#include "gmMap.hpp"
#include "gmOverlaysMarker.hpp"
#include "gmEvents.hpp"
#include "HTMLObjects.hpp"
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TWebBrowser *WebBrowser1;
    void __fastcall FormCreate(TObject *Sender);
private:    // User declarations
    TScript *Script;
    void __fastcall InitMap(TObject *Sender);

public:        // User declarations
    __fastcall TForm1(TComponent* Owner);

    void __fastcall MarkerClick(TObject* Sender, Gmevents::TEvent Event);

};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif



//Unit1.cpp

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

#pragma link "gmMap"
#pragma link "winInet.lib"

TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
   Script = new TScript(WebBrowser1);
   Script->LoadAPIAsync(InitMap);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::InitMap(TObject *Sender)
{

   int n;
   TMarker *Marker;
   TMarkerOptions *MarkerOptions;
   TLatLng *MyLatLng;
   TMap *MyMap;

   TScript *Script = dynamic_cast<TScript*>(Sender);

   TMapOptions *MyOptions = new TMapOptions;

   MyOptions->Zoom = 4;
   MyOptions->Center = Script->Google->Maps->LatLng(-25.363882,131.044922);
   MyOptions->MapTypeID = Script->Google->Maps->MapTypeID->Roadmap;

   MyMap = Script->Google->Maps->Map(MyOptions);

   MarkerOptions = new TMarkerOptions;

   MarkerOptions->Position = MyMap->GetCenter();
   MarkerOptions->Map      = MyMap;
   MarkerOptions->Title   = "Click to Zoom";
   Marker = Script->Google->Maps->Marker(MarkerOptions);
   Marker->OnClick = MarkerClick;   //[BCC32 Error]  Member function must be called or its address taken

   delete MyOptions;
   delete MarkerOptions;

}
//---------------------------------------------------------------------------
void __fastcall TForm1::MarkerClick(TObject* Sender, Gmevents::TEvent Event)
{
   if(Script->Google->Maps[0]->GetZoom==8) // Error :E2288 Pointer to structure required on left side of -> or ->*
   {

   }
}
//---------------------------------------------------------------------------

I could not get the MarkerClick to be assigned to Marker->OnClick.

Also I could not find the Script->Google->Maps[0]->GetZoom() function.

Attached is the hpp file converted by C++ Builder


Anyhelp would be very much appreciated.

Thank you

[BBoy]

Ich nutze dies schon eine weile und es funktioniert auch bestens.
Auf der Karte setze ich mit der Maus Wegpunkte oder ich lade diese aus einer Datei.
Nun möchte ich aber noch folgendes realisieren:
Ich möchte mit der Maus einen rechteckigen Rahmen um bestimmte Wegpunkte ziehen, die Wegpunkte innerhalb des Rahmens sollen selektiert werden und diese möchte ich dann mit ENTF löschen können.

Ist das mit dieser api möglich? Wenn ja, könnte mir bitte jemand erklären wie das geht?
Danke!

[Thom]

Google Maps unterstützt das leider nicht direkt. Selbst einen mit der Maus aufziehbaren Rahmen für den Zoom gibt es nicht.

Du könntest aber eine frei verfügbare Bibliothek - wie zum Beispiel KeyDragZoom - als Markierungsrahmen "mißbrauchen". Allerdings müßtest Du dann den Zoom am Ende unterdrücken. Du erhälst aber die Koordinaten des Auswahlrechtecks. Mit diesen Angaben könntest Du dann alle Deine Marker darauf testen, ob sie in dem betreffenden Bereich liegen, sie optisch hervorheben und bei Betätigung der Entf-Taste von der Karte entfernen.

Das ist aber eine gute Idee - wurde auf meiner ToDo-Liste vermerkt.

[BBoy]

Das ist ein Anfang Hast du eine Idee wie man den Zoom unterdrücken könnte und wie man dann aus KeyDragZoom die koordianten des Rechtecks bekommen könnte?

[Thom]

Die KeyDragZoom-Bibliothek bietet eine ganze Reihe von Events.
Bei dragend wird auch das entsprechende LatLngBounds-Objekt geliefert.
Wird der JavaScript Code modifiziert, könnte das Event zum Beispiel als Funktion ausgelegt werden, so daß in Abhängigkeit vom zurückgegebenen Wert der Zoom ausgeführt wird oder nicht.

Ein Delphi-Wrapper für diese Bibliothek ist zusammen mit etlichen Demos in den Erweiterungen enthalten.