Dim j As HttpJob
j.Initialize("", Me) 'name is empty as it is no longer needed
j.Download("
https://embalagenscanada.com.br/api/Prod/2/1")
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
'The result is a json string. We parse it and log the fields.
Dim msg As String
msg = j.GetString.Replace(Chr(92) & Chr(34) ,Chr(34))
xui.MsgboxAsync(msg, "Sucesso")
'equivalent to:
Dim jp As JSONParser
jp.Initialize(msg)
Dim lst As List = jp.NextArray
' For Each col As Map In lst
' Dim A As String = col.Get("A")
' Dim P1 As Double = col.Get("P1")
' Dim B As String = col.Get("B")
' Dim P2 As Double = col.Get("P2")
' Dim C As String = col.Get("C")
' Dim E As Double = col.Get("E")
' Dim F As Double = col.Get("F")
' Dim G As String = col.Get("G")
' Next
Else
xui.MsgboxAsync(j.ErrorMessage, "Embalagens Canada")
End If
j.Release
ERROR EM Nextarray , close app