Sub PlacesAutocompleteView2_ItemClick (Place As PlaceData)
Private link As String ="https://xxxxxxxxxxxxxxxxxxxx.json?app_id=xxxxxxxxxxxxx&app_code=xxxxxxxxxxxxxxx&searchtext=" & Place.Description
LogColor(link,Colors.Magenta)
Dim j As HttpJob
j.Initialize("", Me)
j.Download(link)
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
LogColor(j.GetString, Colors.green)
Dim jp As JSONParser
jp.Initialize(j.GetString)
Dim m As Map = jp.NextObject
Dim m1 As Map = m.Get("Response")
Dim ViewList As List
ViewList.Initialize
ViewList.AddAll(m1.Get("View"))
m1 = ViewList.get(0)
ViewList.Clear
ViewList.AddAll(m1.Get("Result"))
m1 = ViewList.get(0)
m1 = m1.Get("Location")
m1 = m1.Get("DisplayPosition")
NaseptNoClickPnl.Visible = False
Vystup.Text = Place.Description
zakVystupGPS1 = m1.Get("Longitude")
zakVystupGPS2 = m1.Get("Latitude")
End If
j.Release
End Sub