Hello, this is my first time that I use JSON Parser
here is link and I want to parse all results and show them in ListView.
here is link and I want to parse all results and show them in ListView.
B4X:
https://api.coingecko.com/api/v3/coins/markets?vs_currency=eur&ids=injective-protocol&order=market_cap_desc&per_page=1&page=1&sparkline=false&price_change_percentage=1h%2C24h%2C7d
B4X:
Sub Process_Globals
Private UrlPrices As String = "https://api.coingecko.com/api/v3/coins/markets?vs_currency=eur&ids=injective-protocol&order=market_cap_desc&per_page=1&page=1&sparkline=false&price_change_percentage=1h%2C24h%2C7d"
End Sub
Sub GetPrices As ResumableSub
Dim jGF1 As HttpJob
Dim ResJ As String
jGF1.Initialize("GetInfo", Me)
jGF1.Download(UrlPrices)
Wait For (jGF1) JobDone(j As HttpJob)
If j.Success Then
ResJ = j.GetString
Else
Log(j.ErrorMessage)
j.Release
Return False
End If
j.Release
Log(ResJ)
ListView1.Items.Add(ResJ)
'LoadPrices(ResJ)
Return True
End Sub
Sub LoadPrices(ResJ As String)
...
End Sub