Jump to content

lema

uniGUI Subscriber
  • Posts

    405
  • Joined

  • Last visited

  • Days Won

    21

Posts posted by lema

  1. 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 = '';
    
  2. 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

     

    post-281-0-75060500-1486774176_thumb.png

     

     

    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.
     

  3. 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}
    
    
  4.  

    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.

  5. 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.

  6. hi

    how install  "GoogleMap.v1.4.2" in berlin ?

    please help me....

     

     

    Hello,

    try to save the following as UniGMapBerlin.dpk 

    Open it with your Berlin, compile and install.

    package UniGMapBerlin;
    
    {$R *.res}
    {$ALIGN 8}
    {$ASSERTIONS ON}
    {$BOOLEVAL OFF}
    {$DEBUGINFO ON}
    {$EXTENDEDSYNTAX ON}
    {$IMPORTEDDATA ON}
    {$IOCHECKS ON}
    {$LOCALSYMBOLS ON}
    {$LONGSTRINGS ON}
    {$OPENSTRINGS ON}
    {$OPTIMIZATION ON}
    {$OVERFLOWCHECKS OFF}
    {$RANGECHECKS OFF}
    {$REFERENCEINFO ON}
    {$SAFEDIVIDE OFF}
    {$STACKFRAMES OFF}
    {$TYPEDADDRESS OFF}
    {$VARSTRINGCHECKS ON}
    {$WRITEABLECONST OFF}
    {$MINENUMSIZE 1}
    {$IMAGEBASE $400000}
    {$IMPLICITBUILD ON}
    
    requires
      rtl,
      vcl,
      vclimg,
      dbrtl,
      vcldb,
      uniGUI24,
      uIndy24,
      uniTools24;
    
    contains
      UniGMap in 'UniGMap.pas';
    
    end.
    
    
  7. Hi

    What's required to install in XE8 ?

    Many thanks

     

     

     

    Hi,

    save the following as UniGMapDXE8.dpk 

    Open it with your XE8, compile and install.

    package UniGMapDXE8;
    
    {$R *.res}
    {$ALIGN 8}
    {$ASSERTIONS ON}
    {$BOOLEVAL OFF}
    {$DEBUGINFO ON}
    {$EXTENDEDSYNTAX ON}
    {$IMPORTEDDATA ON}
    {$IOCHECKS ON}
    {$LOCALSYMBOLS ON}
    {$LONGSTRINGS ON}
    {$OPENSTRINGS ON}
    {$OPTIMIZATION ON}
    {$OVERFLOWCHECKS OFF}
    {$RANGECHECKS OFF}
    {$REFERENCEINFO ON}
    {$SAFEDIVIDE OFF}
    {$STACKFRAMES OFF}
    {$TYPEDADDRESS OFF}
    {$VARSTRINGCHECKS ON}
    {$WRITEABLECONST OFF}
    {$MINENUMSIZE 1}
    {$IMAGEBASE $400000}
    {$IMPLICITBUILD ON}
    
    requires
      rtl,
      vcl,
      vclimg,
      dbrtl,
      vcldb,
      uniGUI22,
      uIndy22,
      uniTools22;
    
    contains
      UniGMap in 'UniGMap.pas';
    
    end.
    
    
  8. Hello,

    I uploaded the missing version.
     
     

    2016-05-26  v1.4.1

    --Fixed   Marker Cluster library image path

     

     

     

     

    Please note that there are changes in included files.

    1. files\markerclusterer_compiled.js  replaced by  files\markerclusterer.js

     

    2. directory \images added with m*.png files (its a requirement for the new marker clusterer library)

     

     

     

     

     

     

    Tested with 0.99.95.1298

     

    Online demo:

    http://79.143.178.31/lema/uniGMapDemo.dll

    • Upvote 1
  9. Excuse me if i reply to this post but i can't made a new post.

    I have a problem with unigmap component v 1.3.4 on delphi xe2.

    The component work correct on localhost but don't work on a web call for exemple work on https:\\localhost:8077 and not work on http://siracsrl2012n2.dyndns.org:8077. I try to made a new google api key but i don't solve the problem. Someone can help me.

    Tnx.

     

    Hello.

    First of all, you must use the latest version of component (1.4.1).

     

    To bypass the Google API Key, just build with the {$DEBUG} directive ON.

  10. Same situation in Greece.

    There are left only a few programmers who develop in Delphi.

    And all of them are older software engineers , working on big old projects which are difficult to jump to .NET.

    In job search sites , the available jobs for Delphiers are only 1/20.

    No new blood - like you - is coming.

     

    Reasons for that ?

    I don't know.

    Τendency to cloud and web-based apps ?

    Maybe the high cost ? maybe the bad marketing ?

    Stock market games ?

     

    Of course there is nothing wrong with Delphi / Pascal itself.

    It is very powerful and after >25 years as developer, I can say that I was never limited by this tool.

    Now with uniGUI I can have web rich applications too.(Thanks to great job of mr. Farshad).

    I am sure that I will close my career with Delphi and only Delphi.

     

    One positive point is TIOBE index.

    I don't know how do they calculate the index but Delphi in May 2016 was in 11th position.

     

    It is a hope !

    May the Idera and Marco Cantu will make the total comeback!

    • Upvote 1
×
×
  • Create New...