Sub google_geolocation(Place As String, lat As TextField, lon As TextField) As ResumableSub
Dim res() As Double = Array As Double(0, 0)
Dim j As HttpJob
j.Initialize("", Me)
j.Download2("https://maps.googleapis.com/maps/api/geocode/json", Array As String("key", apykey, "address", Place))
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Dim jp As JSONParser
jp.Initialize(j.GetString)
Dim m As Map = jp.NextObject
If m.Get("status") = "OK" Then
Dim results As List = m.Get("results")
If results.Size > 0 Then
Dim first As Map = results.Get(0)
Dim geometry As Map = first.Get("geometry")
Dim location As Map = geometry.Get("location")
res(0) = location.Get("lat")
lat.Text = res(0)
res(1) = location.Get("lng")
lon.Text = res(1)
End If
End If
Else
Log("Error!")
End If
j.Release
Dim googlemap As GoogleMap
googlemap.Initialize2("",Null,apykey)
googlemap.MapType = googlemap.MAP_TYPE_SATELLITE
Dim cp As CameraPosition
cp.Initialize(res(0),res(1), 18)
googlemap.MoveCamera(cp)
Return res
End Sub