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,
Comparte esto:
64 Responses to “GMLib – Google Maps Library v1.5.3”
Leave a Reply
Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.
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?
Hola
La verdad es que no la he probado en todas las versiones, sólo la he recompilado. No tengo tiempo para dedicarle horas a esta versión. Si puedes buscar el problema/solución, encantado de corregirlo. Sino, hasta la nueva versión de GMLib
Saludos
Gracias por tu amable respuesta querido amigo.Tal vez puedes tener idea a qué hace referencia el mensaje «Error creating form: Error reading Chart1.BackWall.Visible» ? Será posible quitar este componente para que funcione el proyecto?Gracias por lo que puedas informar.YAKO
Yako, you need just open all forms in MegaDemo, on «Error reading form»choose «Ignore all» and when recompile the project. It works perfect.
Best regards, Rusland
Hi,
I have small change to GMDirection.pas. Could you send me you email I will send you this change ?
Slawek
Hi
You have my email into all .pas files 😉
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
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.
Hola Alex
En la unit GMFunctionsVCL tienes la clase TGeometry con la función de clase ContainsLocation, la cual, dado un polígono, te dice si contiene una coordenada.
Espero te sirva
Una nueva versión del programa trabajará con mapas de OSM sin Internet ?
Hola
La versión de GMLib 1.x está cerrada (estoy trabajando en la 2.x), así que no, no habrá una versión de OSM sin internet. Además, tampoco sería posible, ya que lo único que hago con OSM es usar sus mapas en lugar de los de Google Maps, pero el motor no deja de ser Google Maps
Saludos
¡Hola
Cómo instalar un componente de delphi 10?
En un documento de texto, no existe información.
Buenas
Se instala como en las demás versiones. Si miras cualquiera de las últimas y sigues sus pasos, te sirve para Delphi Seattle
Saludos!
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.
Prueba a informar primero el Library Path
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
Hello,
the problem is in TWebBrowser has memory leak and is not freeing memory.
Thank you
john
Thanks for the info. I will have it in mint in the GMLib 2.x
Hi John,
we’vd the same problem and fixed this with a registry entry. check this link:
https://support.microsoft.com/en-us/kb/975736
Read the second section with internet explorer 8/9 and this works for us.
Good luck!
Rolf
Hola,
Yo utilizo gmlib v1.5.3 con Delphi 7. Al compilar aparece este error «undeclared identifier tgmobjects.»
Saludos
Tania
Hola Tania
Mira que hayas incluido en el Search Path la carpeta «lib/Dxx» de tu versión de Delphi, así como la carpeta «src»
Saludos
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.
Here is example picture http://piccy.info/view3/9621677/7e075a915c549e51bf533c0e6e68bb98/
Hi Rusland
Try with this https://developers.google.com/maps/documentation/javascript/basics?csw=1#Mobile
You will need to recreate resources (using ./Resources/rc.cmd file) and rebuild the components
Regards
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
Hola
Leete este post, a ver si es éste el problema
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;
Gracias por el aporte!
Cadetill,
you are working on berlin version?
GMLib 1.x is closed, but I will try to update it for Berlin in few weeks
I have updated the code for Berlin.
With the fix of http://www.cadetill.com/en/problema-con-gmlib-v1-x/ it works without problems.
Let me know it you want it emailed.
cheers, Wilfried
Thanks, if you want, you can send me it and I will update it into GitHub (or update yourself!) ?
By the way: what do you mean by ‘GMLib 1.x is closed’ ?
I don’t update more this version of GMLib (bugs, new features,…) because I’m working in a new version of GMLib all recoded
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.
Hola.
GMLib v.1 no está preparada para usar así streetview, está más orientada a mapas, lo siento
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
Prueba con esto
http://stackoverflow.com/questions/40245543/gm-direction-component-is-null-with-specifics-coordinates/40271892#40271892
Muchas gracias =)
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
Hi
1.- You need to define into the TGMMap the initial position before call DoMap method
2.- You need to define a waypoints. See megademo how to do this
3.- GMLib don’t have limits, the limits is set by Google Maps (in this case 5 or 7 waypoints for free, if you need more, you need to pay to Google Maps)
Bom dia , Obrigado pelo retorno.
No caso eu criei uma API Key , informei no componente GMMaps na propriedade APIKEY
Mas mesmo assim aceita somente 8 pontos . Quando criei essa API (google) la diz que com esta KEY conseguiria ate 23 pontos. Sabe me dizer sobre isso ? esta propriedade é pra essa funcionalidade ou é para outra coisa ?
Obrigado
It’s correct, this property from GMMap is for this.
Please, check if your map.html file have active an url to Google Maps with the parameters &key=API_KEY. If not, add it, rebuild resources with executing rc.cmd file and rebuild the components
Me parece que ele não respeita a Chave adicionado no componente. E este arquivo mapa coloquei uma outra URL não fez diferença também
Se poder me ajudar nisso fico grato
Obrigado
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
email send
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
//——————————————–
You are using Seattle version. Use Berlin version instead
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
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
Hola Israel. GMLib está bajo licencia LGPL, mientras sigáis este principio, no hay problema en que añadáis la librería a vuestro pack 😉
ok, le transmitire tu mensaje sobre la licencia LGPL a Darren y a ver que piensa hacer al respecto….quizas pongamos el enlace como Mirroring de Descarga (pondremos enlace tu blog tambien)
Gracias por la rápida respuesta 🙂
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.
It seems they are making changes to the API and this do that GMLib stops running for some time. If the errors continue I will try to fix it
Thanks, the problem still continues … if you can help me I’m unwell … again thank you.
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
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
Hola, tenemos un problema con nuestra aplicación que usa los componentes, al intentar refrescar el mapa da un error Página inicial aún no cargada.
Investigando en el código fuente, veo que en el archivo map.html se incluye el archivo
http://gmlibrary.googlecode.com/svn/trunk/Resources/MaxZoom.js
pero no logro acceder a él, y pienso que puede ser el origen del problema.
Esto sucede desde hoy, ayer todo funcionaba perfectamente
¿Puede ser este el motivo? Estamos en Delphi XE7, pero no hemos recompilado el exe desde hace tiempo.
Gracias de antemano.
descarga la última versión des de github
good afternoon,
Started making a mistake now afternoon, right here in the code In Unit: GMMap;
«If not FDocLoaded then
Raise Exception.Create (GetTranslateText (‘Home not yet loaded’, Language));
System is Key API Key If you can help me .. thank you very much.
me too