hi all
I have 16 picture web link.
I want get bitmap with HttpUtils2 version 2.00 but I want get bitmap by loop.
it is work but work with delay
my code is:
Sub picture
job3.Initialize("Job3", Me) '1
'Msgbox("ali","")
job3.Download(Main.i(a))
If a=Main.tedad+1 Then
Else
a=a+1
b=b+1
JobDone(job3)
End If
End Sub
Sub JobDone (job As HttpJob)
Try
Log("JobName = " & job.JobName & ", Success = " & job.Success)
If job.Success = True Then
'pic=job
'For abf=1 To Main.tedad
'Send a GET request
ListView2.AddTwoLinesAndBitmap(Main.d(b),"",job.GetBitmap)
picture
Else
Log("Error: " & job.ErrorMessage)
'ToastMessageShow("Error: " & job.ErrorMessage, True)
End If
job.Release
Catch
End Try
End Sub
please help
thanks a lot
:BangHead::BangHead::BangHead::BangHead:
I have 16 picture web link.
I want get bitmap with HttpUtils2 version 2.00 but I want get bitmap by loop.
it is work but work with delay
my code is:
Sub picture
job3.Initialize("Job3", Me) '1
'Msgbox("ali","")
job3.Download(Main.i(a))
If a=Main.tedad+1 Then
Else
a=a+1
b=b+1
JobDone(job3)
End If
End Sub
Sub JobDone (job As HttpJob)
Try
Log("JobName = " & job.JobName & ", Success = " & job.Success)
If job.Success = True Then
'pic=job
'For abf=1 To Main.tedad
'Send a GET request
ListView2.AddTwoLinesAndBitmap(Main.d(b),"",job.GetBitmap)
picture
Else
Log("Error: " & job.ErrorMessage)
'ToastMessageShow("Error: " & job.ErrorMessage, True)
End If
job.Release
Catch
End Try
End Sub
please help
thanks a lot
:BangHead::BangHead::BangHead::BangHead: