Search Results

Geocoder library The Geocoder library enables you to geocode coordinates and reverse geocode addresses. The library adds two new Objects to the IDE: Version: 2.1 Address Methods: HasLatitude As Boolean Returns True if a latitude has been assigned to this Address, False otherwise. HasLongitude A
link: GeoCoder is one of the greatest libraries ever written. I am using it for some time now, in more than an app, on my phone and a few friends' and it wo
link: I think the problem is the new "Forward Geocoder": NEW: https://developers.google. The old geocoder is discontinued at the end of March 2017 Thank
link: RemoveLocationUpdates GeocodeLocation(Location1) End Sub Sub GeocodeLocation(Location1 As Location) Log("GeocodeLocation: "&Location1.Latitud

Usage example: Wait For(PlaceToLatLon("Israel Yodfat")) Complete (ll() As Double) If ll(0) <> 9999 Then Log("Location: " & ll(0) & ", " & ll(1)) Else Log("Failed to geocode.") End If
link: Get address from latitude & longitude (e.g. from the GPS coordinates) Dim GetAddressJob As HttpJob GetAddressJob.Initialize("GetAddress", Me)
link: If you use code from post #2 to get directions, you might want to use this code to draw polylines from encoded polyline that you will receive. This gi
link: Hello, What means "Complete (ll() As Double", what is (ll()) ? When I run the program I obtain in the Log: Log("Failed to geocode.") Thank you

Here's a demo of how to use the nominatim geocoding API for free. Note: There are other geocoding options if you want to know, leave your comments. Demo file attached Sub GeoCoderNominatim(Query As String) As ResumableSub Dim ResultURL As String Dim j As HttpJob Dim Parameter() As Str
link: Soon: I am adding more geocoder providers.
link: Interesting, can we geocode huge numbers of locations using nominatim or OSRM APIs, all is there a fair use ? Thanks
link: I want to thank you again for this great code! Is there also something free where you can calculate the correct distance and travel time? What is that

You can use the Geocoder library.

As Google Geocode will return a value in the future, you need to change your code to update WHEN you get the geocode value. The correct process is like this: Send a geocode request Receive the value callSub the updating sub update the text with the value (txtLocation.text = MyValue) Right now wha
link: 'Get the address Geo-Code for Google Maps 'Requires Street No as string, Street Name as string, Suburb as string, State as string - returns Lat/Long a

nom =ArcGIS() WEJSCIE ='' WYJSCIE ='' def trans(adres): uklad = { '65/1':'3120', '65/2' : '2172', '65/3' : '2173', '65/4' : '2174', '65/5' : '2175', '1992' : '2180', '2000/5' : '2176',

The only problem I have is that I must call: Sub Geocoder1_GeocodeDone(Results() As Address, Tag As Object) with: Geocoder1.GetFromLocation(Transactions.Get(3), Transactions.Get(4), 1, "1") for each: For Each row() As Object In res.Rows
link: You are only accessing the FIRST result. What about the other entries in Results()?
link: Sorry, I don't fully understand. Do I have to change: myAdd1 = Results(0).SubThoroughfare & " " & Results(0).Thoroughfare for each record received fro
link: msgspeed) Transactions.Put(9, msgdatetime) Transactions.Put(10, msgfleet) Transactions.Put(11, msgfriendname)

Estimado, Creo que tiene un problema de codificación. Deberías enviar los datos de la calle, y demás utilizando la función "EncodeUrl" de la librería StringUtils Sería algo así: address=" & su.EncodeUrl(calle,"UTF8") Todo lo que envíes por URL, POST o GET debes codificarlo. Saludos,
link: muchas gracias por la orientacion
link: hola necesito al introducir una calle y numero , sacar la latitud y longitud y llegue a esto pero no comprendo el error del log. Sub Button1_MouseCl
link: lo intente de estos dos formas. Dim su As StringUtils 1. postString="address="&su.EncodeUrl(numero,"UTF8")&"+"&su.EncodeUrl(calle,"UTF8")&"&Key

Hi. do you remember how did you fix that issue? i am trying to run the project but i always get the same error !!! Sub GeoCoder_GeocodeDone(Address1() As Address, Tag As Object) Error description: Unknown type: address Sub GeoCoder_GeocodeDone(Address1() As Address, Tag As Object) Dim loca A
link: Yes, I remember. I needed to search geocoder library in the forum!
link: My android device can't handle working widgets examples at all, so I would like to try yours one. At compiling there is an error: Sub GeoCoder_Geocod

Black ' line.Geodesic=True ' line.Visible =True ' line.Width=2 'line.Points=points Catch Log("ERROR" & LastException.Message) End Try End Sub Sub GetMapByAddress (aDD As String) Dim gg As Geocoder gg.Initialize("gg") gg.GetFromLocation
link: Initialize ' line.color=Colors.Black ' line.Geodesic=True ' line.Visible =True ' line.Width=2 'line.Poin

Powered by ColBERT