Google Maps über COM (Component Object Model)

[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

[Thom]

Hi Azrin,

Thank you for your work!
Unfortunately I have no C++ or RAD Studio, so that I can not do this test. My trial version of XE2 has also expired.

I suspect that C++ does not can handle anonymous methods from Delphi. Please turn off the use of anonymous methods in the file gmConfig.inc

Delphi-Quellcode:

{.$DEFINE USE_ANONYMOUS_METHODS}
//...

and remove all sections from demos, where anonymous methods were used.

[Thom]

Auf Grund einer Anfrage bezüglich drehbarer Marker habe ich zu diesem Thema einmal eine kleine Demo erstellt.

Prinzipiell bieten sich dafür vier Wege an:

1. Drehung per CSS mit Hilfe von Filtern.
   Dazu ist der Zugriff auf das IMG- bzw. DIV-Element notwendig, der jedoch vom (JavaScript-) Marker-Objekt nicht unterstützt wird. Die Ermittlung des Bild-Containers ist über Umwege zwar möglich, aber umständlich und es ist nicht sicher, ob derartige "Hacks" auch mit zukünftigen API-Versionen kompatibel sind.
2. Drehung mit dem Canvas-Element von HTML 5.
   Auch hier existieren die selben Probleme wie bei der ersten Lösung. Ein weiteres Gegenargument ist der Umstand, daß damit automatisch Windows XP (und älter) ausgeschlossen wird, da für diese Betriebssysteme kein HTML 5 fähiger IE angeboten wird.
3. Erstellung einer entsprechenden Anzahl gedrehter Icons (zum Beispiel mit einem Bildbearbeitungsprogramm) und Zuweisung des gewünschten Bildes zum Marker.
   Auch diese Methode hat einen gravierenden Nachteil: Das schlechte Speichermanagement des IE's, auf das man leider keinen Einfluß hat. Dadurch wächst der Speicherverbrauch schnell um zahlreiche Megabyte.
4. Drehung des Bildes mit Delphi und Übergabe an das Marker-Objekt.
   Dieser Weg bietet die meisten Vorteile, da er die größtmögliche Kontrolle über den Vorgang zuläßt. Das beginnt mit der Optimierung der Bildrotation (Schnelligkeit, Qualität des Antialiasing), geht über die Kontrolle des Speicherverbrauch (direkte Freigabe nicht mehr benötigter Objekte, kein Warten auf eine Garbage Collection und kein Cache, auf den man keinen Einfluß hat - wer kennt das nicht: Man hat 10 Seiten geöffnet und der Taskmanager bescheinigt dem IE einen Speicherverbrauch von einem GByte).

Als Marker-Icon wird ein Png-Bild mit Transparenz verwendet. Deshalb setzt die Demo die Unit PNGImage voraus. Ab Delphi 2009 ist diese Bestandteil der Bibliothek, bei älteren Versionen muß sie nachträglich installiert werden. Zu finden ist sie zum Beispiel hier.
Desweiteren muß in diesem Fall die Verwendung von Png-Bildern in der Datei gmConfig.inc per Compilerschalter aktiviert werden, um die entsprechenden Funktionen im Framework nutzbar zu machen:

Delphi-Quellcode:

{$DEFINE USE_PNGIMG} //<- Punkt nach '{' entfernen
//...

Dadurch, daß die Bezeichnung von TPNGObject in TPNGImage geändert wurde, sind auch die dfm-Dateien nicht kompatibel. In älteren Delphi-Versionen müssen deshalb die Picture-Eigenschaften der Image-Komponenten neu geladen werden. Ansonsten wurde die Demo mit Delphi 5 und XE getestet und sollte auch mit anderen Delphi-Versionen funktionieren.

Gedreht wird das Bild mit Hilfe von SmoothRotate - einer Prozedur von Gustavo Daud, dessen Beispiele leider nur noch sehr schwer zu finden sind. Nach langer Suche wurde ich auf CodeCentral von Embarcadero fündig, wo unter PNGDelph Method Shop Code Samples auch einige Demos von Gustavo enthalten sind. Leider liegen die Dateien dort nur im txt-Format vor und enthalten einige Bugs. Deshalb wurden die benötigten Methoden von mir in eine Unit gepackt, ein Speicherleck beseitigt und um die Möglichkeit, beim gedrehten Bild die Größe des Originalbildes beizubehalten, erweitert.
Nach der Drehung wird das Bild Base64 kodiert und an den Marker übergeben.

Der gesamte Vorgang (Drehung, Antialiasing, Kodierung, Übergabe und Anzeige im Browser) geschieht in Echtzeit und führt auch auf einem Netbook zu keinem Ruckeln oder Flackern.

Das Ergebnis sieht dann so aus:

[movnet]

Hi Thom.
How can I get gmOverlaysMarker.pas?
Thank you.