مشکل در دانلود عکس HttpUtils2

[مهدی کفشگر 548]

با سلام.من یه کد ساده نوشتم که با استفاده کتابخونه HttpUtils2 بیاد یه عکس رو دانلود بکنه و در imageview نمایش بده.ولی یه اروری میده که چیزی دستگیرم نمیشه ازش.میتونید راهنمایی کنید؟

#Region  Project Attributes 
	#ApplicationLabel: B4A Example
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals

End Sub

Sub Globals
	Dim job As HttpJob
	Private ImageView1 As ImageView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout")
	job.Initialize("jooob",Me)
	job.Download("http://answercenter.ir/public/style_images/b4a/profile/default_large.png")
End Sub
Sub Activity_Resume

End Sub
Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub jobdone
	If job.Success Then
		ImageView1.SetBackgroundImage(job.GetBitmap)
	End If
End Sub

تصویر ارور پیوست شد.

[Kazem Forghani 2,927]

آقای شاهدی ببخشید پست شما رو ندیدم

 

شما در این ساب رو:

Sub jobdone
	If job.Success Then
		ImageView1.SetBackgroundImage(job.GetBitmap)
	End If
End Sub

به این تغییر بدید :

Sub jobdone(job1 as httpjob)
	If job1.Success Then
		ImageView1.SetBackgroundImage(job1.GetBitmap)
	End If
End Sub

[امین شاهدی 5,773]

ساب jobdone رو به این صورت بزارید  :

Sub JobDone (job As HttpJob)

[phd.khosravi 64]

سلام دوست عزیز این کد رو امتحان کن

Sub jobdone(job As httpjob)
	If job.Success = True Then
		ImageView1.SetBackgroundImage(job.GetBitmap)
	End If