Google Maps for uniGUI

[lema]

Is it possible to include multiple routes? Using latitude and longitude, like

 

Point 1 > Point 2 > Point 3 > Point 4

 

??

 

Thank you.

 

 

Hello,

the uniGmap has implemented the Directions API with the support of multiple waypoints.

 

You can see the online demo:

http://79.143.178.31/lema/uniGMapDemo.dll

[lema]

Awesome component, any plans of including the drawing library in the near future?

 

Thank you for your great work.

 

Hello,

I will check it out as soon as I have some spare time.

[lema]

I'm trying to add a function to heatmap, but I can only put them and do not pull them. Anybody have any suggestions?

    procedure TUniGMap.AddHeatMap(aHeatMap: array of THeatMap);
    var
      i: Integer;
      lat, lng: string;
      Script: string;
    begin
      Script :=
        'HeatMap = new google.maps.visualization.HeatmapLayer({' +
        'radius: ' + StringReplace(Format('%2.2f', [aHeatMap[0].Radius]), ',', '.', [rfReplaceAll]) + ',' +
        'data: getPoints(),' +
        'map: @googleMap@' +
        '});' +
        'function getPoints() {' +
        'return [';

        for i := 0 to Length(aHeatMap) -1 do
          if i <> Length(aHeatMap) -1 then
          begin
            lat := StringReplace(Format('%2.6f', [aHeatMap[i].Latitude]), ',', '.', [rfReplaceAll]);
            lng := StringReplace(Format('%2.6f', [aHeatMap[i].Longitude]), ',', '.', [rfReplaceAll]);

            Script := Script + 'new google.maps.LatLng(' + lat + ', ' + lng + '),'
          end
          else
          begin
            lat := StringReplace(Format('%2.6f', [aHeatMap[i].Latitude]), ',', '.', [rfReplaceAll]);
            lng := StringReplace(Format('%2.6f', [aHeatMap[i].Longitude]), ',', '.', [rfReplaceAll]);

            Script := Script + 'new google.maps.LatLng(' + lat + ', ' + lng + ')' +
            '];' +
            '}';
          end;

      ExecJScript(Script);
    end;


    procedure TUniGMap.RemoveHeatmap;
    begin
        ExecJScript(
        'google.maps.event.clearInstanceListeners(HeatMap);' +
        'HeatMap.setMap(null);');
    end;

 

 

Hello,

I will try to implement it.

Stay tuned.

[LordDelphi]

wonderful! waiting anxiously.

[lema]

procedure TUniGMap.AddHeatMap(aHeatMap: array of THeatMap);

 

Could you please give some info about THeatMap ?

What is the structure of it ?

[cristianotestai]

Hi Lema,

 

I'm try debugging Places API Demo. uniGMap last version.

 

I'm setting my API Key in MyGoogleAPIKey constant but the map does not show, error occurs (see attached image).

I have already Rebuild in the package and the API Key is correct, because testing on the URL directly from the browse shows the results.

 

If i do not inform an API Key, the map is shown, but when performing the search of the places, an Access Denied occurs because an API Key was not informed.

 

Any idea?

 

Thanks!

 

Cristiano

 

[lema]

 

Hi Lema,

 

I'm try debugging Places API Demo. uniGMap last version.

 

I'm setting my API Key in MyGoogleAPIKey constant but the map does not show, error occurs (see attached image).

I have already Rebuild in the package and the API Key is correct, because testing on the URL directly from the browse shows the results.

 

If i do not inform an API Key, the map is shown, but when performing the search of the places, an Access Denied occurs because an API Key was not informed.

 

Any idea?

 

Thanks!

 

Cristiano

 

 

Did you enable the "Google Places API Web Service" in your Google console?

 

Also , what is the state of your API Key restriction ?

For debug purposes you can use an unrestricted key to see what happens.

[cristianotestai]

Did you enable the "Google Places API Web Service" in your Google console?

 

Also , what is the state of your API Key restriction ?

For debug purposes you can use an unrestricted key to see what happens.

 

Yes, API Enabled in Console and my API Key is unretricted Key.

 

Testing on the URL directly from the browse shows the results. The key is active and valid.

[9223000]

Very Cool!

[MarkLince]

Hi,

This looks great, How do I get it?

Regards

Mark

[epos4u]

Hi,

This looks great, How do I get it?

Regards

Mark

 

go to first post and download

[lema]

Yes, API Enabled in Console and my API Key is unretricted Key.

 

Testing on the URL directly from the browse shows the results. The key is active and valid.

 

Hello,

It should be working.

 

Try create and use another unrestricted Key (it will need some minutes in order to apply the changes).

Double check that the libraries are enabled (you will need at least Google Maps JavaScript API and Google Places API Web Service ).

 

In the constructor of TUniGMap.Create there is a url defintion, something like :

url := 'http://maps.googleapis.com/maps/api/js?key=' + MyGoogleAPIKey + '&libraries=geometry,places&sensor=false';)

try to remove the 'places' to see what will happen.

 

 

Please see the compiler directive DEBUG and make sure that you place the correct API Key into the correct section.

In most cases you will use the same API Key in DEBUG and RELEASE

{$IFDEF DEBUG}
  MyGoogleAPIKey = 'xxxxxxx';
{$ELSE}
  MyGoogleAPIKey = 'xxxxxxx';
{$ENDIF}

[lema]

Hello,

I uploaded a new version which adds some of Heatmap functionality.

 

2017-02-11  v1.4.4

--Added   Heatmap functionality

 

Tested with uniGUI ver.0.99.96.1335

 

Online demo:

http://79.143.178.31/lema/uniGMapDemo.dll

 

 

 

Although it is not a requirement,
I would ask you to send a postcard from your hometown so that you help me grow my collection!
If also you write 2-3 words, it would be perfect!

So, lick your stamp and send your postcard to:

Lefteris Maronikolakis,
Bohali 92,
11524 Athens,
Greece.
 

[cristianotestai]

 

Hello,

It should be working.

 

Try create and use another unrestricted Key (it will need some minutes in order to apply the changes).

Double check that the libraries are enabled (you will need at least Google Maps JavaScript API and Google Places API Web Service ).

 

In the constructor of TUniGMap.Create there is a url defintion, something like :

url := 'http://maps.googleapis.com/maps/api/js?key=' + MyGoogleAPIKey + '&libraries=geometry,places&sensor=false';)

try to remove the 'places' to see what will happen.

 

 

Please see the compiler directive DEBUG and make sure that you place the correct API Key into the correct section.

In most cases you will use the same API Key in DEBUG and RELEASE

{$IFDEF DEBUG}
  MyGoogleAPIKey = 'xxxxxxx';
{$ELSE}
  MyGoogleAPIKey = 'xxxxxxx';
{$ENDIF}

 

 Hello Lema!

 

Now all work! What happened is that i had activated the Google WebServices API, to be used via REST, but for uniGMap, which uses Javascript must be enabled the Google Places JavaScript API, as you said in your answer.

 

Thanks again for your great work.

 

Best Regards,

 

Cristiano

[LordDelphi]

It was excellent, I'm sure it will be very useful to everyone. Best addon for unigui so far.
thank you so much!

[krammers]

Hi to all.

 

I share the uniGMap component.

[Desktop and Mobile versions]

It is based on code I have used in several projects and actually developed to fulfill my needs.

 

It can add , edit , remove , locate markers , lines , polylines , circles , polygons ,

rectangles , directions , KML, infoWindows ,

change several map properties like zoom , type , control visibility etc ,

notify about map events through AjaxEvent like zoom , click , markerclick and

get some object properties like Length , Area etc.

 

 

It is absolutely free and you can use it freely in your own software.

If you make any changes that you believe can help other developers too,

please send them to me to integrate them into uniGMap.

 

You can see it in action here :

http://79.143.178.31/lema/uniGMapDemo.dll

 

 

Although it is not a requirement,

I would ask you to send a postcard from your hometown so that you help me grow my collection!

If also you write 2-3 words, it would be perfect!

 

So, lick your stamp and send your postcard to:

Lefteris Maronikolakis,

Bohali 92,

11524 Athens,

Greece.

 

 

 

latest version: 2017-02-11  v1.4.4

 

This version also for Berlin?

This version also for Berlin?

[krammers]

This version also for Berlin?

This version also for Berlin?

[poshbadges]

Hi All

I am getting a error when trying to install on my version of XE4.  [dcc32 Error] UniGMap.pas(1430): E2003 Undeclared identifier: 'MyGoogleAPIKey'

 

Any ideas please.

 

PS

Postcard on its way.

 

Russell

[lema]

Hi All

I am getting a error when trying to install on my version of XE4.  [dcc32 Error] UniGMap.pas(1430): E2003 Undeclared identifier: 'MyGoogleAPIKey'

 

Any ideas please.

 

PS

Postcard on its way.

 

Russell

 

 

Hello !

In UniGMap.pas , uncomment the following and set your API key.

//  MyGoogleAPIKey = '';

[DarkDudae]

Hello Lema:

Thanks for your Google Maps components for UniGUI.
I have added some new functionalities to the Heatmap: Point weight, dissipating, maxIntensity, changeRadius and changeOpacity.

Feel free to use them in future versions of the component.

 

https://ufile.io/oprpz

 

Greetings

[lema]

Hello,

I uploaded a new version which includes the Heatmap additions from Diego Molina.
( Point weight, dissipating, maxIntensity, changeRadius and changeOpacity )

 

2017-05-08  v1.4.5

 

Tested with uniGUI ver.1.0.0.1384


Online demo:
http://79.143.178.31/lema/uniGMapDemo.dll

 

 

 

THANK YOU Diego !

[du1000brazil]

Para rodar no delphi berlin .tem como ??

[du1000brazil]

This version also for Berlin?

This version also for Berlin?

link : https://mega.nz/#!pAdSgCLZ!Ubv0P03bs_qVwZJ11iiSqNKdX1ZcHvGDenjF1BD3y2I

[Bertifox]

How can I install the component for version tokio 10.2 ?

 

thank you. 

[lema]

Packages for

 

Berlin:

UniGMapBerlin.zip

 

Tokyo:

UniGMapTokyo.zip