Hello; is it posibble to apply the jOkHttpUtils2 in BaNano?
...or how Do I Get the following? 'cause if I use that one I get The following error
...or how Do I Get the following? 'cause if I use that one I get The following error
B4X:
scripts/app1662506135262.js:28984 Uncaught SyntaxError: Unexpected token ';'
B4X:
PlaceToLatLon("San Diego, CA","National City, CA")
B4X:
Sub PlaceToLatLon(destino As String, origen As String) As ResumableSub
Dim resmin As String
Dim j As HttpJob
j.Initialize("", Me)
j.Download2("https://maps.googleapis.com/maps/api/distancematrix/json", Array As String("key", APIKEY, "destinations", destino, "origins", origen, "departure_time", "now"))
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("rows")
If results.Size > 0 Then
Dim rows As List = results
For Each colrows As Map In rows
Dim elements As List = colrows.Get("elements")
For Each colelements As Map In elements
Dim duration As Map = colelements.Get("duration")
Log(duration.Get("value"))
Try
Dim duration_in_traffic As Map = colelements.Get("duration_in_traffic")
Dim text As String = duration_in_traffic.Get("text")
resmin = text
Catch
Log(LastException)
End Try
Next
Next
End If
End If
Else
Log("Error!")
resmin = m.Get("status")
End If
j.Release
Return resmin
End Sub
