Sub hostLoad (NameChunk As String)
hostAddress = "http://www.site.com/folder/spinnFill.aspx"
Transmit = hostAddress & "?bite=" & NameChunk
Request.InitializeGet(Transmit)
Request.Timeout = 100
HD.ProgressDialogShow("Searching for matching names...")
host.Execute(Request, task_Lugares)
End Sub
Sub host_ResponseSuccess (Response As HttpResponse, TaskId As Int)
HD.ProgressDialogHide
Dim Receive As String = Response.GetString("UTF8")
Log("Response from server: " & Receive)
Dim JSON As JSONParser
JSON.Initialize(Receive)
Map1 = JSON.NextObject
MenuItems = Map1.Get("afiliados") ' Nodo principal (Mapa)
Dim MenuISize As Int = MenuItems.Size
If MenuISize > 0 Then
For i = 0 To MenuISize - 1
Map1 = MenuItems.Get(i)
Log(Map1.Get("name"))
Next
Else
' NO RESULTS
End If
'Log (MenuItems.Size)
End Sub
Sub host_ResponseError (Response As HttpResponse, Reason As String, StatusCode As Int, TaskId As Int)
Dim msg As String
HD.ProgressDialogHide
msg = "Server Error"
If Reason <> Null Then msg = msg & CRLF & Reason
Msgbox (msg,"Notification")
End Sub