Private Sub GeoCoderNominatim (Query As String) As ResumableSub
Dim Result As String
Dim Parameters() As String = Array As String ("q", Query, "format", "json", "addressdetails", "1")
Dim j As HttpJob
j.Initialize("", Me)
j.Download2("https://nominatim.openstreetmap.org/search", Parameters)
' j.GetRequest.SetContentType("application/json") ' It generates an error.
j.GetRequest.SetHeader("Content-Type", "application/json")
j.GetRequest.SetHeader("User-Agent", "appname/1.0 ([email protected])")
j.GetRequest.Timeout = 60 * DateTime.TicksPerSecond
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Result = j.GetString
Else
Log(j.ErrorMessage)
End If
j.Release
Return Result
End Sub