کنسل کردن دانلود

[hossein59 5]

سلام

دوستان یک برنامه ای کارکردم که با استفاده از httpJobعکس هایی رو از دیتابیس آنلاین گرفته و نشون می ده. مشکل اینجاست که وقتی قبل از لود همه عکس ها به اکتویتی بعد می رم چون همه عکس ها لود نشده و به نظرم job  هنوز success نشده به اکتویتی قبلی بر می گرده. چطور می تونم به job بگم که دیگه ولش کن نمی خوام بقیه عکس ها رو لود کنی

[محمدرضا شاهپیری 5,579]

در ۱۴۰۰/۴/۱۳ در ۲۳:۴۴، hossein۵۹ گفته است:

سلام

دوستان یک برنامه ای کارکردم که با استفاده از httpJobعکس هایی رو از دیتابیس آنلاین گرفته و نشون می ده. مشکل اینجاست که وقتی قبل از لود همه عکس ها به اکتویتی بعد می رم چون همه عکس ها لود نشده و به نظرم job  هنوز success نشده به اکتویتی قبلی بر می گرده. چطور می تونم به job بگم که دیگه ولش کن نمی خوام بقیه عکس ها رو لود کنی

با دستور ispaused مینونید چک کنید که اکتیویتی باز هست یا بسته و ادامه ماجرا...

[hossein59 5]

در ۱۴۰۰/۴/۱۳ در ۲۳:۵۱، محمدرضا شاهپیری گفته است:

با دستور ispaused مینونید چک کنید که اکتیویتی باز هست یا بسته و ادامه ماجرا...

مچکرم از پاسختون.

دقیقا کاربرد دستور  رو متوجه نشدم. مثل اینکه وضعیت یک رویداد رو میگه که اجراش تموم شده یا نه.در واقع من می خوام کاربر منتظر لود همه عکسها در یک اکتیویتی نمونه و بتونه بره صفحه بعدی ولی به محض اینکه به اکتیویتی بعدی میرم برمی گرده اکتیویتی قبلی برای تکمیل لود عکسها

Sub JobDone(job As HttpJob)
	If job.Success Then
		Select job.JobName
			Case "jobBobo"
				Log(job.GetString)
				If job.GetString = "nothing" Then
					Return
				End If
				Dim rows() As String = Regex.Split("<br>", job.GetString)
				For Each row As String In rows
					Dim components() As String = Regex.Split("#", row)
'					Log(components(1))
					Dim p As Panel = xui.CreatePanel("")
					p.SetLayoutAnimated(0, 0, 0, 100%x, 150dip)
					p.LoadLayout("item")
					lblBoboName.Text = components(1)
					lblBoboDesc.Text = components(2)
'					Log(linkImage & components(2))
					'دانلود عکس
					DownloadImage(linkImage & components(3), imgBobo)
					clv.Add(p, components(0))
					
				Next
		End Select
	Else
		Log(job.ErrorMessage)
	End If
	job.Release

End Sub

'دانلود عکس
Sub DownloadImage(l As String, iv As ImageView)
	Dim j As HttpJob
	j.Initialize("", Me)
	j.Download(l)
	Wait For (j) JobDone(j As HttpJob)
	If j.Success Then
		iv.Bitmap = j.GetBitmap
	End If
	j.Release
End Sub


Private Sub btn_Click
	Activity.Finish
	If login = False Then
		StartActivity(Login)
	Else
		StartActivity(users)
	End If
End Sub

 

[امیرحسین قاسمی 610]

سلام،

قبل از رفتن به اکتویتی بعدی برای توقف عملیات دانلود از کد زیر استفاده کنید:

job.Release

به جای job نام متغیری که به عنوان httpjob تعریف کرده اید قرار دهید.

فراخوانی متد Release عملیات آپلود و دانلود(کل فرایندهای httpjob) را متوقف می کند.

موفق باشید