افزودن پروگرس بار به HttpJob

[rasoul.t 15]

سلام

من با استفاده از کتابخانه HttpUtils2 صف دانلود ایجاد کردم و فایلها با موفقیت یکی پس از دیگری دانلود شد. فقط نمیدونم چجوری روند دانلود فایل رو اضافه کنم. دستورات رو ضمیمه کردم

Sub Activity_Create(FirstTime As Boolean)	
	DataLink.Initialize
	DataLink.Add("لینک اول")
	DataLink.Add("لینک دوم")
	DataLink.Add("لینک سوم")
	Dim furl As String = DataLink.Get(0)
	Log("Download: " & furl)
	Dim j As HttpJob
	j.Initialize("DownloadFile",Me)
	j.Tag = furl
	j.Download(furl)
End Sub

Sub JobDone(Job As HttpJob)
	If Job.Success Then
		Dim res As String
		res = Job.GetString
		Log("JobName: " & Job.JobName)
		If Job.JobName = "DownloadFile" Then
			Dim m As String = Job.Tag
			Dim OutStream As OutputStream
			Log("DownloadReady: " & Job.Tag)
			OutStream = File.OpenOutput(File.DirDefaultExternal, GetFilename(m), False)
			File.Copy2(Job.GetInputStream,OutStream)
			OutStream.Close
			Log(GetFilename(m) & " is written to " & File.DirRootExternal)
			If DataLink.Size > 0 Then
				DataLink.RemoveAt(0)
			End If
			If DataLink.Size > 0 Then
				Dim furl As String = DataLink.Get(0)
				Log("Download: " & furl)
				Log(HttpUtils2Service.TempFolder)
				Dim j As HttpJob
				j.Initialize("DownloadFile",Me)
				j.Tag = furl
				j.Download(furl)
			Else
				LogColor("===== ARE FILES DOWNLOADED =====",Colors.Green)
			End If            
		End If 
	Else
		ToastMessageShow("Error: " & Job.ErrorMessage, True)
	End If
	Job.Release
End Sub

Sub GetFilename(fullpath As String) As String
	Return fullpath.SubString(fullpath.LastIndexOf("/") + 1)
End Sub

 

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

با HttpUtils2  تنها چیزی که میتونید استفاده کنید progressdialog هست progressbar نمیتونید اضافه کنید چون به روند دانلود شما هیچ دسترسی ندارید.

پیشنهاد میکنم از AriaAsinkTask یا کتابخونه زیر استفاده کنید که کارای حرفه ای تر بتونید انجام بدید

 

[rasoul.t 15]

من فقط میخوام چند فایل رو پشت سر هم دانلود کنم و روند دانلود رو داشته باشم. و تا زمانی که دانلود اول تموم نشده دانلود بعدی شروع نشه. پیشنهاد شما چیه؟