Private ALat, ALng, BLat, BLng As Double
Private URL1 As String = "http://maps.googleapis.com/maps/api/elevation/json?locations="&ALat&","&ALng&"%7C"&BLat&","&BLng
Sub getElevationData '(URL As String, taskID As Int)
HttpClient1.Initialize("HttpClient1")
Private HttpRequest1 As HttpRequest
HttpRequest1.InitializeGet(URL1)
HttpClient1.Execute(HttpRequest1,1)
End Sub
Sub HttpClient1_ResponseSuccess (ResponseData As HttpResponse, TaskId As Int)
my_buffer.InitializeToBytesArray(5000)
'Do Something with the data that is returned.
ResponseData.GetAsynchronously("ServerResponse",my_buffer, True, 1)
End Sub
Sub HttpClient1_ResponseError (ResponseData As HttpResponse, Reason As String, StatusCode As Int, TaskId As Int)
Log("error: " & ResponseData & " " & StatusCode)
If ResponseData <> Null Then
Log(ResponseData.GetString("UTF8"))
ResponseData.Release
End If
End Sub
Sub ServerResponse_StreamFinish (Success As Boolean, TaskId As Int)
If Success Then
Private return_buffer () As Byte
return_buffer = my_buffer.ToBytesArray
Private returnData As String = BytesToString(return_buffer, 0, return_buffer.Length, "UTF8")
'********************************************
Log("ALat = "&ALat)
Log("ALng = "&ALng)
Log(returnData)
'********************************************
StopService("")
End If
End Sub