Dim link As String="https://xxxxxxxxxhostapp.com/picf/g.png"
Dim job1 As HttpJob
job1.Initialize("j", Me)
job1.Download(link)
JobDone(job1)
Dim job2 As HttpJob
job2.Initialize("j0", Me)
job2.Download("https://xxxxxxxhostapp.com/" &"part.php")
JobDone(job2)
End Sub
Sub JobDone(job As HttpJob)
If job.JobName="j" Then
If job.Success Then
ImageView1.Bitmap=job.GetBitmap
Else
Log("Error: " & job.ErrorMessage)
End If
Else If job.JobName="j0" Then
If job.Success=True Then
Dim strReturn As String = job.GetString
Dim parser As JSONParser
parser.Initialize(strReturn)
Dim L0 As List
L0 = parser.NextArray 'returns a list with maps
Log(L0.Size)
If L0.Size >0 Then
For i = 0 To L0.Size-1
Dim m As Map
m = L0.Get(i)
Log(m.Get("p_name"))
End If
Next
............