Sub JobDone (Job As HttpJob)
ProgressDialogHide
If Job.Success Then
Dim res As String, action As String
res = Job.GetString
Log("Back from Job:" & Job.JobName & ", Success = " & Job.Success)
Log("Response from server: " & res)
Dim parser As JSONParser
parser.Initialize(res)
Select Job.JobName
Case "DispCategory"
'///////////////////////////////
LV.Clear
Dim categories As List
categories = parser.NextArray 'returns a list with maps
SV.Panel.Height= categories.Size * 75dip +715dip 'LV.Height+1000dip
LV.Height= SV.Panel.Height' 300%y 'rs.RowCount * 75dip +300dip
For Each colroot As Map In categories
Dim category_name As String = colroot.Get("category_name")
Log("category_name : " & category_name)
Dim category_id As String = colroot.Get("category_id")
Log("category_id : " & category_id)
Log("category_pic :" & colroot.Get("category_pic"))
'
Try
If colroot.Get("category_pic") <> Null Then
Log("category_pic :" & colroot.Get("category_pic"))
Dim InStream As InputStream
Dim B64String As String
Dim FileBytes() As Byte
Dim su As StringUtils
Dim Bitmap1 As Bitmap
B64String=colroot.Get("category_pic")
FileBytes=su.DecodeBase64(B64String)
InStream.InitializeFromBytesArray(FileBytes, 0, FileBytes.Length)
Bitmap1.Initialize2(InStream)
InStream.Close
''Meal_Pic.SetBackgroundImage(Bitmap1)
LV.AddTwoLinesAndBitmap2(category_name,category_id,Bitmap1,category_id)
Else
Dim ximg As Bitmap
ximg = LoadBitmap(File.DirAssets, "noimg.png")
LV.AddTwoLinesAndBitmap2(category_name,category_id,ximg,category_id)
End If
Catch
ToastMessageShow("Error", True)
Log(LastException)
End Try
Next
' '////////////////////////////////
End Select
Else
Log("Job.Success: " & Job.Success)
Log("Error: " & Job.ErrorMessage)
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub
