Sub Process_Globals
Private ServerUrl As String = "https://www.materiel-medical-a-domicile.com/Asp/ListCatJson.asp"
End Sub
Sub Globals
Dim ListView1 As ListView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Matmed")
ListView1.SingleLineLayout.Label.TextSize = 14
Dim job As HttpJob
job.Initialize("Job1", Me)
job.PostString(ServerUrl, "SELECT Id, Name, PictureId FROM Table_1")
End Sub
Sub JobDone (Job As HttpJob)
If Job.Success = True Then
Dim res As String = Job.GetString2("UTF-8") 'to be sure
Dim parser As JSONParser
parser.Initialize(res)
Dim rows As List
rows = parser.NextArray
Dim LibTxt As String
For i = 0 To rows.Size - 1
Dim m As Map
m = rows.Get(i)
LibTxt = m.Get("Libelle") & " : " & i
ListView1.AddSingleLine(LibTxt)
Next
Else
Log ("Db Error !!")
End If
Job.Release
End Sub