Sub GetTripShape
Dim urlstring As String = "https://my.api.here"
urlstring = urlstring & "/?key=" & Main.API_KEY_OTS
urlstring = urlstring & "&shape_id=" & shapeID
'Log(urlstring)
Dim job As HttpJob
job.Initialize("",Me)
job.Download(urlstring)
Dim line As Polyline
Dim pointlist As List
Dim point As LatLng
line = gmap.AddPolyline
pointlist.Initialize
Wait For (job) JobDone(job As HttpJob)
If job.Success Then
Log("good media retrieve - routes")
jobdata = job.GetString
'Log(jobdata)
Dim parser As JSONParser
parser.Initialize(jobdata)
Dim rootvar As Map = parser.NextObject
Dim data As List = rootvar.Get("DataRows")
For Each coldata As Map In data
point.Initialize(coldata.Get("shape_pt_lat"),coldata.Get("shape_pt_lon"))
pointlist.Add(point)
TripBoundsBuilder.Include(point)
Next
End If
line.Points = pointlist
Dim tripbounds As LatLngBounds = TripBoundsBuilder.Build
gmapx.AnimateToBounds(gmap, tripbounds, 40)
job.Release
line.Color = Colors.Blue
CallSubDelayed(Me, "GetTripShape_Complete")
End Sub