sep 232015
 

Buenas

Pues os presento una nueva versión de los componentes GMLib. Como comenté en una entrada anterior, esta versión sólo trae compatibilidad con la nueva versión de Rad Studio Seattle 10.

Como siempre, podéis descargaros la nueva versión desde los sitios habituales que podéis encontrar en la página de los componentes.

Hasta la próxima entrada,

  60 Responses to “GMLib – Google Maps Library v1.5.3”

  1. Esta version 153 no corre bien en D7 y arroja errores:
    “Project MegaDemo.exe raised exception class EReadError with message ‘Property ExplicitTop does not exist”

    “Error creating form: Error reading Splitter1.ExplicitTop: Property ExplicitTop does not exist.”

    “Error creating form: Error reading Chart1.BackWall.Visible: Property Visible does not exist.”

    “Error creating form: Error reading tsMarkers.ExplicitLeft: Property ExplicitLeft does not exist.”

    Sugerencias?

  2. Hi,

    I have small change to GMDirection.pas. Could you send me you email I will send you this change ?

    Slawek

  3. Olá, Cadetill…

    Primeiramente, parabéns pelo seu trabalho.
    Dúvida 1): Eu gostaria de saber como é possível capturar no Delphi as informações exibidas no Mapa. Por exemplo, se eu clicar sobre um marcador, no mapa, gostaria de capturar no Delphi (num OnClick, por exemplo) algumas informações daquele marcador.

    Dúvida 2): Eu preciso plotar no mapa, vários marcadores e, para cada, manter algumas outras informações ocultas que, se necessário, eu possa exibir num balão, ao clicar sobre um determinado marcador. Como posso guardar, por exemplo, um array de informações junto com um marcador, ao plotar vários deles no mapa??

    Aguardo sua resposta.

    Muito obrigado e um grande abraço.

    Jair Chiapetti
    Joinville/SC
    Brasil

    • Ola Jair

      1.- the TGMMarker has a OnClick event, fired when a user clicks on a marker. This event have a parameter named LinkedComponent that represents the marker. You only need to cast to TMarker to access to their properties.

      2.- the TMarker class has a FObject property. You can create a class with all you need and store an object from this class into this property

      Regards

      PS: for futures questions, please use stackoverflow with gmlib tag. Thanks

  4. Hola, Cadetill

    Excelentes componentes!!!
    te escribo para preguntarte si es posible detectar si un marker en movimiento se encuentra dentro de un radio de x kilometros tomando como centro otro marker fijo.

    saludos desde Mexico.

  5. Una nueva versión del programa trabajará con mapas de OSM sin ​​Internet ?

  6. ¡Hola
    Cómo instalar un componente de delphi 10?
    En un documento de texto, no existe información.

  7. Cuando se compila en gmlib_D_seattle10_FMX.bpl da dos errores.
    ¿Qué consejo le haces?

    [dcc32 Fatal Error] F2039 Could not create output file ‘C:\Users\Public\Documents\Embarcadero\Studio\17.0\Bpl\GMLib_D_Seattle10.bpl’
    [dcc32 Fatal Error] GMLib_D_Seattle10_FMX.dpk(36): E2202 Required package ‘GMLib_D_Seattle10’ not found

    Disfruté de la versión anterior de Delphi 7.
    Usted es un muy buen programador.
    Lo siento por mi mal español, soy de Rusia.

    • Pon en el Library Path la ruta de la carpeta “\lib\dse10” y debería de compilarte.

      Por tu español no te preocupes, lo importante es que lo intentas 😉 También puedes hablarme en inglés si te resulta más fácil

      Saludos

      • Hola. Tienes bastante talento en la progragamacion te felicito. Estoy revisando a detalle tus componentes e intentado instalar en XE7 segui las instrucciones a detalle pero en el paso 4.- al momento de compilar en 32 bits me arroja dos errores:

        [dcc32 Fatal Error] F2039 Could not create output file ‘C:\Users\Public\Documents

        \Embarcadero\Studio\15.0\Bpl\GMLib_DXE7.bpl’
        [dcc32 Fatal Error] GMLib_DXE7_FMX.dpk(33): E2202 Required package ‘GMLib_DXE7’ not

        found
        Failed

        No soy muy virtuoso en Delphi ya que estoy migrando de otro lenguaje a delphi me podrias apoyar a detalle como solucionar este problema.

        muchas gracias por tu valiosa aportacion.

        Saludos desde Mexico.

  8. Hello,

    i am using ECMap gmlib v1.5.3, very good component and thank very much for the good job.

    The problem is that GMMap is keeping to much resources (memory) even when destroing the object GMMap =NIL or FreeAndNil.
    Every time DOMap event is called, the memory is increasing. Is there a work around to free up the memory when the GMMap componet is not used?

    Thanks John

  9. Hola,

    Yo utilizo gmlib v1.5.3 con Delphi 7. Al compilar aparece este error “undeclared identifier tgmobjects.”
    Saludos
    Tania

  10. Hello.
    First i wanna say thank you for GMLib. Very usefull component.

    Question: why street name in GMMap on two languages? I see english and russian variants. On http://maps.google.com i see only me native russian language.
    How to remove english variant?
    Than you.

  11. Buenas,
    he estado utilizando el componente pero últimamente salta error de javascript en el archivo onion.js. Estoy utilizando el componente junto con un TWebBrowser pero no hay manera de que no salte el error y salta el mismo mensaje de error constantemente. ¿Alguna forma de solucionarlo?

    Gracias. Un saludo

  12. Hola Cadetill,
    Muchas gracias por tu componente funciona de maravilla.
    Hice como 200 polígonos y quería ver si muchos punto esta adentro (como 150), y tarda bastante a calcular (mi exe se traba de hecho).
    Nada mas quería agregar una función que lo calcula de manera rápida:

    listla y listlo = los puntos del poly, y (X, Y) el punto a verificar

    function dentroDelPoly(listla, listlo: TStringList; X,Y: Extended): Boolean;
    var
    Count, k, j : Integer;
    begin
    Result := False;
    if (listla.Count < 3) or (listla.Count listlo.Count) then exit;
    Count := listla.Count ;
    j := Count-1;
    for k := 0 to Count-1 do begin
    if ((StrToFloat(listlo[k]) <= Y) and (Y < StrToFloat(listlo[j]))) or
    ((StrToFloat(listlo[j]) <= Y) and (Y < StrToFloat(listlo[k]))) then
    begin
    if (X < (StrToFloat(listla[j]) – StrToFloat(listla[k])) *
    (Y – StrToFloat(listlo[k])) /
    (StrToFloat(listlo[j]) – StrToFloat(listlo[k])) + StrToFloat(listla[k])) then
    Result := not Result;
    end;
    J := k;
    end;
    end;

  13. Cadetill,

    you are working on berlin version?

  14. Hola, muy bueno tu trabajo.
    Consulta : a partir de un archivo donde tengo LAT y LNG cada 1seg , sabeis como puedo ir recorriendo el recorrido en vista Street View? logro hacerlo sobre el mapa pero no sobre street view.

    Desde ya muchas gracias.

  15. Hola, gracias por el componente, funciona muy bien.
    Desde hoy me aparecio este error, tambien lo hace en el megademo (voy a services, geocoding, y despues entro una lat y long y oprimo el botton Go):

    Sale: “Exception class EVariantTypeCastError with message ‘Could not convert variant of type (Null) into type (OleStr)’. Process MegaDemo.exe”

    Es cuando se dispara esta Method
    FGMGeo.Geocode(Lat, Lng);
    Gracias por la ayuda

  16. Boa noite.

    Instalei o componente no meu Delphi 7, funciona muito bem.
    Queria tirar algumas duvidas com voce sobre o componente.

    1-Como posso colocar no Megademo, um ponto inicial do mapa
    2-Directions , consigo colocar ponto inicial e final , dentro deste ponto de inicio e fim tenho as parados (pontos) como posso isso de forma dinâmica ( loop no registros ) ?
    3-Directions pontos de paradas tem um limite ? como posso contornar isso e colocar por exemplo 30 paradas

    Obrigado

  17. No arquivo so tem um LINK com API_KEY, no começo do arquivo. js?v=3.17&key=API_KEY&sensor=
    Se precisar adicionar este link teria como me mandar este link e onde adicionar ou se poder me mandar o arquivo atualizado. meu email : Walter@rwconsultoria.com.br

    Mais uma duvida por favor , nos pontos de paradas teria como colocar (marcador ordem de paradas) não somente ícone .

    Obrigado

  18. Can’t install radsetudio Berlin 1.10

    //————————————————————————-
    Checking project dependencies…
    Compiling GMLib_D_Seattle10_FMX.dproj (Debug, Win32)
    brcc32 command line for “GMLib_D_Seattle10_FMX.vrc”
    c:\program files (x86)\embarcadero\studio\18.0\bin\cgrc.exe -c65001 GMLib_D_Seattle10_FMX.vrc -foGMLib_D_Seattle10_FMX.res
    dcc32 command line for “GMLib_D_Seattle10_FMX.dpk”
    c:\program files (x86)\embarcadero\studio\18.0\bin\dcc32.exe -$O- -$W+ –no-config -M -Q -TX.bpl -AGenerics.Collections=System.Generics.Collections;
    Generics.Defaults=System.Generics.Defaults;WinTypes=Winapi.Windows;WinProcs=Winapi.Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE -DDEBUG
    -E.\Win32\Debug -I”c:\program files (x86)\embarcadero\studio\18.0\lib\Win32\debug”;..\lib\DSE10\FMX;”c:\program files
    (x86)\embarcadero\studio\18.0\lib\Win32\release”;C:\Users\User\Documents\Embarcadero\Studio\18.0\Imports;”c:\program files
    (x86)\embarcadero\studio\18.0\Imports”;C:\Users\Public\Documents\Embarcadero\Studio\18.0\Dcp;”c:\program files (x86)\embarcadero\studio\18.0\include”;
    “D:\component\DevExpress VCL 15.2.2 Full Source XE10.1\Library\RAD Studio 10.11″;”c:\program files (x86)\fastreport\libd24″;C:\Delphi\OpenCV\source;
    C:\Delphi\OpenCV\source\utils;C:\Delphi\OpenCV\source\component;C:\Delphi\OpenCV\source\sdl;C:\Delphi\OpenCV\source\opengl;
    C:\Delphi\OpenCV\source\ffmpeg;C:\Delphi\OpenCV\resource\facedetectxml;”D:\component\DevExpress VCL 15.2.2 Full Source XE10.1\Library\RAD Studio
    10.1″ -LEC:\Users\Public\Documents\Embarcadero\Studio\18.0\Bpl -LN..\lib\DSE10\FMX -NU..\lib\DSE10\FMX -NSWinapi;System.Win;Data.Win;Datasnap.Win;
    Web.Win;Soap.Win;Xml.Win;Bde;System;Xml;Data;Datasnap;Web;Soap; -O..\lib\DSE10\FMX;”c:\program files (x86)\embarcadero\studio\18.0\lib\Win32\release”;
    C:\Users\User\Documents\Embarcadero\Studio\18.0\Imports;”c:\program files (x86)\embarcadero\studio\18.0\Imports”;
    C:\Users\Public\Documents\Embarcadero\Studio\18.0\Dcp;”c:\program files (x86)\embarcadero\studio\18.0\include”;”D:\component\DevExpress VCL 15.2.2
    Full Source XE10.1\Library\RAD Studio 10.11″;”c:\program files (x86)\fastreport\libd24″;C:\Delphi\OpenCV\source;C:\Delphi\OpenCV\source\utils;
    C:\Delphi\OpenCV\source\component;C:\Delphi\OpenCV\source\sdl;C:\Delphi\OpenCV\source\opengl;C:\Delphi\OpenCV\source\ffmpeg;
    C:\Delphi\OpenCV\resource\facedetectxml;”D:\component\DevExpress VCL 15.2.2 Full Source XE10.1\Library\RAD Studio 10.1″ -R..\lib\DSE10\FMX;
    “c:\program files (x86)\embarcadero\studio\18.0\lib\Win32\release”;C:\Users\User\Documents\Embarcadero\Studio\18.0\Imports;”c:\program files
    (x86)\embarcadero\studio\18.0\Imports”;C:\Users\Public\Documents\Embarcadero\Studio\18.0\Dcp;”c:\program files (x86)\embarcadero\studio\18.0\include”;
    “D:\component\DevExpress VCL 15.2.2 Full Source XE10.1\Library\RAD Studio 10.11″;”c:\program files (x86)\fastreport\libd24″;C:\Delphi\OpenCV\source;
    C:\Delphi\OpenCV\source\utils;C:\Delphi\OpenCV\source\component;C:\Delphi\OpenCV\source\sdl;C:\Delphi\OpenCV\source\opengl;
    C:\Delphi\OpenCV\source\ffmpeg;C:\Delphi\OpenCV\resource\facedetectxml;”D:\component\DevExpress VCL 15.2.2 Full Source XE10.1\Library\RAD Studio
    10.1″ -U”c:\program files (x86)\embarcadero\studio\18.0\lib\Win32\debug”;..\lib\DSE10\FMX;”c:\program files
    (x86)\embarcadero\studio\18.0\lib\Win32\release”;C:\Users\User\Documents\Embarcadero\Studio\18.0\Imports;”c:\program files
    (x86)\embarcadero\studio\18.0\Imports”;C:\Users\Public\Documents\Embarcadero\Studio\18.0\Dcp;”c:\program files (x86)\embarcadero\studio\18.0\include”;
    “D:\component\DevExpress VCL 15.2.2 Full Source XE10.1\Library\RAD Studio 10.11″;”c:\program files (x86)\fastreport\libd24″;C:\Delphi\OpenCV\source;
    C:\Delphi\OpenCV\source\utils;C:\Delphi\OpenCV\source\component;C:\Delphi\OpenCV\source\sdl;C:\Delphi\OpenCV\source\opengl;
    C:\Delphi\OpenCV\source\ffmpeg;C:\Delphi\OpenCV\resource\facedetectxml;”D:\component\DevExpress VCL 15.2.2 Full Source XE10.1\Library\RAD Studio
    10.1″ -V -VN –description:”GoogleMaps Library v1.5.2 FMX (Copyright © Xavier Martínez – cadetill)” -JL -NB..\lib\CSE10\FMX -NH..\lib\CSE10\FMX
    -NO..\lib\CSE10\FMX GMLib_D_Seattle10_FMX.dpk
    [dcc32 Error] GMClasses.pas(1327): E2003 Undeclared identifier: ‘DecimalSeparator’
    [dcc32 Error] GMClasses.pas(1368): E2003 Undeclared identifier: ‘DecimalSeparator’
    [dcc32 Fatal Error] GMMap.pas(472): F2063 Could not compile used unit ‘GMClasses.pas’
    [dcc32 Fatal Error] GMLib_D_Seattle10_FMX.dpk(36): E2202 Required package ‘GMLib_D_Seattle10’ not found
    Failed
    Elapsed time: 00:00:00.8
    //——————————————–

  19. Buenas Cadetill, en primer lugar agradecerte el esfuerzo de esta impresionante libreria.

    Necesito mostrar un label por cada marcador de forma dinámica ¿es posible? Me puedes orientar un poco a como hacerlo. He leido algo de StyledMarker pero las referencias a esta libreria no están disponibles.

    Me puedes dejar algún ejemplo

    Gracias

  20. hola cadetill…..soy israel luengo de BCB-Tools…. estamos desde hace años desarrollando unas librerias de Programacion RAD DirectX y a Darren (desarrollador principal) le podria hacer ilusion contar con una libreria como la tuya para darle un valor añadido a la TDx Library…realmente las ventas son inexistentes practicamente pero habia pensado añadir mas librerias al producto y crear algo mas “completo” (no solo DirectX)

    y he visto estas librerias y me he animado a preguntartelo por si nos darias permiso podriamos incluirlas

    buen trabajo, ahora mismo estoy con mi primer programa para probar mis primeros googlemaps

  21. Good evening I’m still having this problem I’d have some solution to the problem … I’m in great need.

    Ops! Algo deu Errado
    Está pagina nao carregou o Google Maps Corretamente. Consulte o console JavaScript para ver detalhes tecnicos.

  22. First congratulations for your job cadetil.

    I need to make a function to discover if a marker point is on the left or the right side of a polyline.
    Is there some ready function?
    Do you know a way to discover that?

    Regards
    Gustavo

  23. Hi there

    Im now getting ‘Sorry! Something went wrong.’. Debuging the code I think its in GMDirection.pas

    repeat
    TGMGenFunc.ProcessMessages.
    until (GetIntegerField(DirectionsForm, DirectionsFormResponse) = 1);

    Its therefore crashing our exe. Its urgent!

    Do you have any suggestions?????

    Thanks

    Lee

 Leave a Reply

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

(required)

(required)