Sub GetGulay
Dim req As DBRequestManager = CreateRequest
Dim cmd As DBCommand = CreateCommand("getGulay", Null)
Wait For (req.ExecuteQuery(cmd, 0, Null)) JobDone(j As HttpJob)
ProgressDialogShow("Loading...")
If j.Success Then
req.HandleJobAsync(j, "req")
Wait For (req) req_Result(res As DBResult)
'work with result
' req.PrintTable(res)
Log(res.Columns)
ListViewGulay.Clear
For Each row() As Object In res.Rows
Dim oBitMap As Bitmap
Dim buffer() As Byte
buffer = row(res.Columns.Get("image"))
oBitMap = req.BytesToImage(buffer)
ListView1.AddTwoLinesAndBitmap(row(0) , row(1) & " /kilo", oBitMap)
Next
Else
Log("ERROR: " & j.ErrorMessage)
End If
ProgressDialogHide
j.Release
End Sub