thyphoon/PBMap
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

wip

Browse Source
This commit is contained in:
djes
2016-09-30 17:13:15 +02:00
parent 39ee09edd7
commit 2e59908fd1
1 changed files with 19 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
PBMap.pb
View File

@@ -2030,10 +2030,23 @@ Module PBMap
; EndIf ; EndIf
Protected i Protected i
;Protected Size.i = CurlReceiveHTTPToFile("http://nominatim.openstreetmap.org/search/Unter%20den%20Linden%201%20Berlin?format=json&addressdetails=1&limit=1&polygon_svg=1", Name, PBMap\Options\ProxyURL, PBMap\Options\ProxyPort, PBMap\Options\ProxyUser, PBMap\Options\ProxyPassword) ;Protected Size.i = CurlReceiveHTTPToFile("http://nominatim.openstreetmap.org/search/Unter%20den%20Linden%201%20Berlin?format=json&addressdetails=1&limit=1&polygon_svg=1", Name, PBMap\Options\ProxyURL, PBMap\Options\ProxyPort, PBMap\Options\ProxyUser, PBMap\Options\ProxyPassword)
LoadJSON(0, Name) If LoadJSON(0, Name) = 0
For i = 0 To JSONArraySize(JSONValue(0)) - 1 ;Demivec's code
Debug GetJSONElement(JSONValue(0), i) MessageRequester("Error", JSONErrorMessage() + " at position " +
Next i JSONErrorPosition() + " in line " +
JSONErrorLine() + " of JSON web Data")
EndIf
Protected object_val = JSONValue(0)
Protected lat = GetJSONMember(object_val, "lat")
Protected lon = GetJSONMember(object_val, "lon")
CallDebugger
; forecast_mem = GetJSONMember(item_mem, "forecast")
; ExtractJSONArray(forecast_mem, forecast())
; For i = 0 To JSONArraySize(JSONValue(0)) - 1
; Debug GetJSONElement(JSONValue(0), i)
; Next i
EndProcedure EndProcedure
@@ -2234,8 +2247,8 @@ CompilerIf #PB_Compiler_IsMainFile
CompilerEndIf CompilerEndIf
; IDE Options = PureBasic 5.50 (Windows - x64) ; IDE Options = PureBasic 5.50 (Windows - x64)
; CursorPosition = 2030 ; CursorPosition = 2039
; FirstLine = 2009 ; FirstLine = 2023
; Folding = --------------- ; Folding = ---------------
; EnableThread ; EnableThread
; EnableXP ; EnableXP