Hola Seneca. es el primer paso, yo dando los dos puntos y que google-maps me trace la ruta, por lo que estoy leyendo no se puede hacer con el SDK, hay que utilizar la api. todos dicen lo mismo pero no tienen ejemplos, supongamos yo utilizo la api y esa me responde (utilizando httpultis si no estoy mal) y ahora que hago con esos datos?? como los utilizo para trazar la ruta. eso es lo que no dicen
muchas gracias Seneca en cuanto lo tenga listo comparto el código para que todos lo vean. saludos !
Sub GetDirections(source As String, destination As String) 'As ResumableSub
Dim j As HttpJob
Dim API_KEY As String = "Su apikey aqui" 'directions api key
' Get directions (Location A -> Location B)
j.Initialize("Directions", Me)
j.Download2("https://maps.googleapis.com/maps/api/directions/json", Array As String("origin", source,"destination", destination,"key",API_KEY))
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Dim parser As JSONParser
parser.Initialize(j.GetString)
Dim root As Map = parser.NextObject
If root.Get("status") = "OK" Then
Dim routes As List = root.Get("routes")
For Each colroutes As Map In routes
Dim legs As List = colroutes.Get("legs")
For Each collegs As Map In legs
start_address = collegs.Get("start_address")
end_address = collegs.Get("end_address")
Dim steps As List = collegs.Get("steps")
For Each colsteps As Map In steps
Dim duration As Map = colsteps.Get("duration")
travelduration = travelduration + duration.Get("value")
Dim distance As Map = colsteps.Get("distance")
traveldistance = traveldistance + distance.Get("value")
Next
Dim overview_polyline As Map = colroutes.Get("overview_polyline")
polyPoints = overview_polyline.Get("points")
Next
Next
j.Release
drawDirections
ToastMessageShow("Distance = " & traveldistance & "m, Time = " & travelduration & "s", True)
lblinfo.Text = "Distancia = " & traveldistance & "m, Tiempo = " & travelduration & "s"
Else
ToastMessageShow("Error: " & root.Get("status"), True)
End If
Else
Log("Error!")
End If
j.Release
End Sub
