Yes Erel I am, all my JobDone functions are structured the same..
B4X:
Sub JobDone (Job As HttpJob)
If Job.Success = True Then
Select Job.JobName
Case "registeruser"
GetImageFromServer(Me, "http://www.xxxx.com/xxx/xxx.jpg", "getUserImage", "22")
Case "getUserImage"
Dim bmp As Bitmap = Job.GetBitmapSample(100%x,100%y)
' process the image
End Select
Else
Select Job.JobName
Case "getUserImage"
'do something else
End Select
End If
End Sub
My module sub for getting images, this works
B4X:
Sub GetImageFromServer(frm As Object, iLink As String, JobName As String, phpTag As String)
Dim job As HttpJob
job.Initialize(JobName, frm)
job.Tag = phpTag
job.Download(iLink)
End Sub
It never runs the Job.Success = False of the Else statement but just gives the error msg when the image does not exist. My GetImageFromServer works well for all existing images