PureBasic添加了一个JSON库,因此它可以很好地处理Web内容。但是我无法弄清楚我从ReceiveHTTPFile()
函数得到什么类型的输出。
他们的文件在这个问题上非常稀少。
这是我的代码。
Procedure GetBitminterData()
FireUpNetwork = InitNetwork()
Debug "If the number below is anything other than zero the network library is working."
Debug FireUpNetwork
URL$ = "https://bitminter.com/api/pool/stats/"
FileName$ = "stats.json"
BitMinterData = ReceiveHTTPFile(URL$, Filename$) ;THIS LINE HERE MEH
Debug URL$
Debug BitMinterData
; Read JSON data from a string
; More importantly parse the bitminter stats.json file from above.
Input$ = BitMinterData
If ParseJSON(#JSON_Parse, Input$)
NewList Numbers()
ExtractJSONList(JSONValue(#JSON_Parse), Numbers())
Debug "---------- Extracting values ----------"
Debug ""
ForEach Numbers()
Debug Numbers()
Next
EndIf
EndProcedure
答案 0 :(得分:0)
问题是purebasic中的所有http函数都无法处理“https”。我用最新稳定的PureBasic 5.31测试了它。尝试使用“http”的任何网址,它将工作。尝试“https”,它将无法正常工作。
有一个用于purebasic(https://github.com/Progi1984/RWrappers/tree/master/LibCurl)的libcurl包装器,但是它已经有5年了,而且它不再与purebasic 5.31兼容了。
如果你只需要“完成”的东西,你仍然可以下载“curl”二进制文件(http://curl.haxx.se/download.html#Win32)并在purebasic应用程序中执行它。