Dim FetchDataFromServer As HttpJob
FetchDataFromServer.Initialize("SearchImageId",Me)
FetchDataFromServer.Download2("http://" & ServerIP , Array As String("action","SearchImageId","rep_id",m0))
Wait For (FetchDataFromServer) JobDone(FetchDataFromServer As HttpJob)
If FetchDataFromServer.Success Then
Dim res As String
res = FetchDataFromServer.GetString
Dim parser As JSONParser
parser.Initialize(res)
Dim ListOfImage As List
Dim repId As String
Dim image2 As String
ListOfImage = parser.NextArray 'returns a list with maps
If ListOfImage.Size=0 Then
Log("No rep_id IMAGE found...")
Else
Log("Size of List: "& ListOfImage.Size)
For i = 0 To ListOfImage.Size - 1
Dim MyData As Map
MyData = ListOfImage.Get(i)
image2 = MyData.Get("image")
Log("Image Found!!")
Next
Log(">> " &image2.Length)
Dim im As Bitmap
im.Initialize2(blobToIO(image2)) ' << -- this the problem'