Sub getElevationData
Dim ALat, ALng, BLat, BLng As Double
ALat = 39.7391536
ALng = -104.9847034
BLat = 36.455556
BLng = -116.866667
Private Job1 As HttpJob
Job1.Initialize("Job1", Me)
Job1.Download2("http://basic4android.de/elevation.php",Array As String("alat",ALat,"alng",ALng,"blat",BLat,"blng",BLng))
End Sub
Sub JobDone(Job As HttpJob)
If Job.Success = True Then
Log($"JobDone(${Job.success} -> ${Job.GetString})"$)
If Job.JobName = "Job1" Then
Dim s As String = Job.GetString
End If
Else
Log($"JobDone(${Job.success} -> ${Job.ErrorMessage})"$)
End If
Job.Release
End Sub