Sub hc_ResponseError(Response As HttpResponse, Reason As String, StatusCode As Int, TaskId As Int)
Msgbox(Reason, "Error parsing")
End Sub
Sub ParseResults_StreamFinish(Success As Boolean, TaskId As Int)
Dim jParser As JSONParser
Dim JSONText As String
JSONText = File.ReadString(File.DirDefaultExternal, "JsonData.txt")
jParser.Initialize(JSONText)
Dim root As Map = jparser.NextObject
Dim data As Map = root.Get("data")
' Dim status_code As Int = root.Get("status_code")
' Dim message As String = root.Get("message")
Dim seller_name As String = data.Get("seller_name")
Dim shoped_date As String = data.Get("shoped_date")
Dim arrived_date As String = data.Get("arrived_date")
Dim error As String = data.Get("error")
Dim next_place As String = data.Get("next_place")
Dim customer_phone As String = data.Get("customer_phone")
Dim seller_phone As String = data.Get("seller_phone")
Dim customer_name As String = data.Get("customer_name")
Dim package_name As String = data.Get("package_name")
Dim shipping_address As String = data.Get("shipping_address")
Dim complete As String = data.Get("complete")
Dim passed_place As List = data.Get("passed_place")
For Each colpassed_place As String In passed_place
Next
Dim error_message As String = data.Get("error_message")
Dim quantity As String = data.Get("quantity")
' ListView1.AddSingleLine (root.Get("message"))
' ListView1.AddSingleLine (root.Get("status_code"))
ListView1.AddSingleLine(customer_name)
ListView1.AddSingleLine(customer_phone)
ListView1.AddSingleLine(shipping_address)
ListView1.AddSingleLine(shoped_date)
ListView1.AddSingleLine(package_name)
ListView1.AddSingleLine(quantity)
ListView1.AddSingleLine(seller_name)
ListView1.AddSingleLine(seller_phone)
ListView1.AddSingleLine(next_place)
ListView1.AddSingleLine(arrived_date)
ListView1.AddSingleLine(complete)
ListView1.AddSingleLine(error)
ListView1.AddSingleLine(error_message)
ListView1.SetSelection(0)
End Sub
