دانلود منیجر حرفه ای AriaMultiThreadDownload

[seyed_27 170]

مثالی که گذاشتید این مورد رو تست کنید: سریع و پشت سر هم :وقتی دکمه Start / Resume رو میزنید برنامه شروع به دانلود میکنه pause رو که میزنید دانلود متوقف میشه دوبار Start / Resume میزنید ادامه رو دانلود میکنه : مشکل اینجاست حالا دوباره pause کنید میبینید pause نمیشه و به روند دانلود ادامه میده  !!   حالا بیاید  Start / Resume رو بزینید برنامه قاطی میکنه! یه نگاهی به progressbar بندازید متوجه میشید

 

ظاهرا کتابخونتون مشکل داره

لطفا بررسی کنید و تصحیح کنید

و لطفا به این پست پاسخ بدید که در حال حاضر پس از خرید کتابخونتون چه باید کرد

لطفا پشتیبانی کنید

 

[fito 45]

سلام به عزیزان

من چطور میتونم در مولتی پنلم تعدادی صوت دانلود کنم؟

این کدهای منه اما دانلود نمیشه و کجاش مشکل داره؟

	For i = 0 To cur.RowCount-1
		cur.Position = i
		Dim p As Panel
		pp.Initialize("")
		ScrollView1.Panel.AddView(pp,0,space,100%x,150dip)
		space = space + 140dip	
		p.LoadLayout("pan")	
		ScrollView1.Panel.Height = s

		down.Tag = cur.GetString("link")
		down.Text = cur.GetString("name")					
	Next

Sub down_Click
	Dim b As Button = Sender
			
	Dim name As String = downloader.Utils.GuessFileNameFromLink(b.Tag)
		Dim down As AriaMultiThreadDownloadRequest
		down.SetFolder(File.DirInternal).SetName(name)
	
		down.SetUrl(b.Tag).Build
		downloader.Download(down,b.Tag)
		
End Sub

لطفا راهنمایی کنید منتظرم ممنون از شما.

بعضی وقت ها دانلود میشه یکی و اما فایل دیگش ناقص دانلود میشه و....

مشکلی که دوستمون گفت هم هست هنگامی که چندباره  پاوز و رسوم بزنیم پاوز نمیشه دیگه..

لطفا در آپدیت درست کنید

[mre 14]

با عرض سلام به دوستان و امین شاهدی

 

من کتابخونه رو خریدم اما نه ایمیلی برام اومد نه تونستم توی انجمن لینک دانلود رو داشته باشم.

لطفا ‍پیگیری کنید.

[seyed_27 170]

یه مشکل دیگه هم داره

نام فایل رو از لینک درست تشخیص نمیده

مثلا از لینک ذیل نام فایل رو downloadfile.bin میگیره در صورتی که نام فایل اینه:Dr Khodadadi (28)_2.mp3

لینک ذیل رو با برنامتون دانلو کنید تا ببینید:

http://rasekhoon.net/media/download/343216/جمشید-خدادادی-جلسه-ششم-خداشناسی/
 

[hussein1 48]

در در 1395/10/27, 18:31:46، امین شاهدی گفته است :

با سلام ، 

یه کتابخونه خیلی مهم و کاربردی که کمبودش توی b4a حس میشد یه دانلود منیجر حرفه ای بود که دیگه از طریق این کتابخونه خیلی راحت میتونین دانلود هاتون رو باهاش انجام بدین که قابلیت های خیلی زیادی داره که چند تا از قابلیت هاش رو میتونین این زیر ببینین : 

- قابلیت دانلود فایل های با حجم های بسیار کم و بسیار زیاد

- قابلیت دانلود همزمان هر تعداد دانلود 
- قابلیت دانلود چند نخی هر دانلود (MultiThreading) 
-قابلیت توقف و ادامه دانلود 

-امکان نمایش سرعت دانلود برای هر دانلود
-قابلیت ادامه دانلود بعد از بسته و باز شدن دوباره برنامه و یا بعد از قطع و وصل شدن اینترنت 
-قابلیت مدیریت همه دانلود ها در هر زمان 
-قابلیت چک کردن لینک قبل از شروع دانلود و گرفتن نام و سایز و اطلاعات دیگر فایل از سرور 
-قابلیت تغییر تعداد نخ های هر دانلود 
-قابلیت تغییر تعداد دانلود های همزمان و .... 
-قابلیت تبدیل سایز فایل از بایت به حالت فارسی و انگلیسی مثل : 
12MB
126کیلوبایت

-قابلیت تشخیص نام فایل از روی لینک (به 2صورت آفلاین و چک کردن از سرور)
-قابلیت تشخیص درست و قابل قبول بودن لینک (به 2صورت آفلاین و چک کردن از سرور)
-قالیت تشخیص اینکه لینک مربوط با فایل هستش یا نه به صورت آفلاین
-قابلیت با خبر شدن از رویداد های زیر برای هر دانلود به صورت جدا ! (Sub) :
1 در حال کانکت شدن به سرور برای دانلود
2 کانکت شدن به سرور برای دانلود
3 شروع دانلود
4 توقف دانلود
5 کنسل شدن دانلود
6 ادامه یافتن دانلود
7 پراگرس یا روند دانلود و سرعت و گرفتن حجم و درصد دانلود شده
8 ارور برای هر دانلود و گرفتن علت ارور 
9 پایان دانلود

- قابلیت کنسل و یا توقف  همه دانلود های در حال انجام به صورت همزمان
-قابلیت چک کردن دانلود های در حال انجام و گرفتن اطلاعات در هر زمانی

تمامی قابلیت های بالا چندین بار تست شده و با تضمین و بدون داشتن مشکل همه ی کار ها انجام میشه 

میتونین به نمونه کارکرد برنامه رو توی ویدیو زیر ببینین :

دانلود منیجر حرفه ای B4A اندروید

کتابخونه به زودی توی فروشگاه قرار میگیره و دوستان میتونن تهیه کنن

باسلام و خسته نباشی به جناب شاهدی

دو سوال از خدمت شما دارم قصد دارم قبلا از دانلود و زدن دکمه شروع حجم کل فایل رو برام توی یه لیبل نشون بده اما صفر مگا بایت نشون میده ، چرا؟

dim totali as Int

Lblkol.Text=downloader.Utils.CalcSize_EN(totali)

چند اکتیوتی مشابه رو تحت یک اکتیوتی بر طبق ایدی نمایش دادم وقتی میخام طبق هر ایدی که محتویات و فایل دانلودی تغییر میکنه دانلود انجام بشه دکمه شروع / ریزوم درست عمل نمیکنه هربار شروع رو میزنم و در میانه پوز رو میزنم دوباره ریزوم رو میزنم فایل از ادامه حجم دانلود نمیشه برمیگرده از اول دوباره دانلود میشه چرا؟

[hussein1 48]

آیا این کتابخونه پشتیبانی داره؟ سه هفته پیام گذاشتم هم توی شخصی هم توی تاپیک اصلا پاسخگو نیستند فقط پول رو خوب میگیرند اشکال دارم وقتی در ازای این کتابخونه هزینه دریافت کردین چه یک ریال چه یک میلیون چه هرمقدار دیگه باید پشتیبانی کنید و مشکلات کاربران رو برطرف کنید ، این چه وضعشه؟!

[hussein1 48]

گویا توسعه دهنده اش فقط پول رو میشناسه نه پشتیبانی

[mkabir 186]

سلام 

من این کتابخونه رو خریدم ، الان فایل آپلود کردم روی هاست م  که دانلود کنه متاسفانه دانلود نمیشه و میگه سایزش زیر صفره در صورتی که با adm  قابل دانلود هست

 

[mre 14]

سلام آقای شاهدی 

چه جوری می تونم فایل دانلود شده رو توی مسیر خاصی ذخیره کنم؟؟؟

[sbr 233]

@امین شاهدی

سلام خسته نباشید 

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

سورس خودتون رو هم اجرا که میکنم همین اررور رو میده واسم 

 

[sajjadebrahimi 2]

سلام خدمت اساتید و به ویژه استاد شاهدی عزیز.

یه مشکل:

 نمی خوام از سورس خودم حرف بزنم. در سورس نمونه ای که خود استاد شاهدی گذاشتن لینک های پیش فرضی وجود داره که وقتی هر کدوم از اونا که در حال دانلود هستن رو متوقف می کنیم، بعد از زدن دکمه Strat/Resume دانلود ادامه پیدا میکنه و هرگز از ابتدا شروع نمیشه.

حالا من در همون سورس، به جای لینک پیش فرض، از لینک خودم استفاده می کنم، اما یه مشکل هست، و اون اینکه بعد از توقف دانلود، با زدن دکمه Start/Resume دانلود فایل از ابتدا شروع میشه.

در ضمن لینک هام ثابت و غیر قابل تغییر هستن.

 

در ضمن، به احتمال 99 درصد این مشکل از کتابخونه نیست....

مسائل تخصصی هست که بزرگان باید جوا بدن... ممنون

[mahfelsoft 130]

یعد از دانلود چطور فایل رو برای نصب بگیریم ؟

[sbr 233]

در 12 ساعت قبل، mahfelsoft گفته است :

یعد از دانلود چطور فایل رو برای نصب بگیریم ؟

سلام

بعد از دانلود میتونید فایلتون با اینتنت اجرا کنید

فقط باید ادرس فایل توی گوشی  و اسم فایل و نوع اون رو به اینتنت بدید

 

[rasool.g 135]

سلام. بنده این کتابخونه رو مدتی پیش کامل تست کردم. نسخه حاضر (1.00) فقط دو مشکل کوچیک داره که خودتون هم میتونید تو برنامه نویسی درستش کنید.

1 - وقتی متد توقف یا کنسل رو فراخوانی می کنید تا زمانی که رویداد مربوط به اون اجرا نشده نباید متد دیگه ای مثل ادامه دانلود رو فراخوانی کنید.

بین این فاصله ی زمانی که ممکنه چند ثانیه هم طول بکشه می تونید دکمه ها رو غیر فعال کنید یا با یه شرط و متغیر بولین از اجرای متد ها جلوگیری کنید. 

2 - زمانی که دانلود متوقف شده نمیشه دانلود رو کنسل کرد.

برای حل این مشکل از متد پاک کردن استفاده کنید (این متد اطلاعات رو از دیتابیس کتابخونه فقط پاک میکنه) و پس از اون فایل دانلود شده رو هم حذف کنید. ظاهرا فایل موقتی برای دانلود با نام دیگه ای  یا در ادرس دیگه ای وجود نداره و در همون پوشه دانلود فایل نیمه دانلود شده با همون نام رو می تونید پیدا کنید و با برنامه نویسی پاکش کنید.

[rasool.g 135]

در در 1396/06/07, 17:33:27، sbr گفته است :

@امین شاهدی

سلام خسته نباشید 

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

سورس خودتون رو هم اجرا که میکنم همین اررور رو میده واسم 

 

این مشکل فکر کنم فقط مربوط به حالت دیباگ میشه

[iavaduu 38]

لطفا راهنمایی کنید که چجوری میشه تمامی ایتم هایی که دانلودشون تکمیل نشده بودن و بدون دانلود مجدد ودر دسترس نبودن تگ هاشون  به دانلودشون ادامه بده

[iavaduu 38]

در در 1395/10/27, 18:31:46، امین شاهدی گفته است :

 

باسلام بنده میخواستم با این کتابخونه یک pdfاز هاست دانلود کنم ولی انگار به صورت عادی ممکن نیست،لطفا راهنمایی کنید

 

[arman98 14]

عزیز یه مشکل داره این کتابخانه :

وقتی که مثلا لینکی که به صورت زیر وارد میکنم رو دانلود نمیکنه و حتما باید فایل همراه با فرمت باشه

http://www.site.com/Download.ashx?kind=examq&dl=7388

[MR.B4A 125]

سلام.

کسی این برنامه رو روی اندروید 10 تست کرده؟

جواب میده

بدون خطا اجرا میشه

[mahfelsoft 130]

سلام . 

من ازین کتابخونه همون زمانی که منتشر شد استفاده میکنم برای دانلود نسخه جدید برنامه ازداخل خود برنامه ...

الان که میخوام برنامه رو بروز کنم با این کتابخونه فایل رو دانلود نمیکنه . دکمه دانلود رو که میزنه میگه unsupported response code 301

 

خیلی گیر کردم  لینک دانلودم هم درسته . لطفا راهنمایی کنید

 

کدهامم میزارم

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

Sub Process_Globals

End Sub

Sub Globals
	Dim downloader As AriaMultiThreadDownload 'ijad kardane downloader
	Dim conf As AriaMultiThreadDownloadConfiguration 'ijad kardane tanzimate downloader
	Private ProgressBar1 As ProgressBar
	Private pnldownload As Panel
'	Private Panel1 As Panel
	Private Label1 As Label
	Private EditText1 As EditText
	Dim rp2 As RuntimePermissions
	Dim stat As StatusBarCompat
	Private pnlbala As Panel
	Private Button1 As Button
	Private Button2 As Button
	Private Button7 As Button
	Private Button10 As Button

End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("dl")
	rp2.CheckAndRequest("android.permission.WRITE_EXTERNAL_STORAGE")
	
	
	downloader.Initialize(conf) ' downloader ro az tariqe tanzimati ke moshakhas shode initialize mikonim
	EditText1.Text="https://biaupload.com/do.php?downf=org-29428beaa4fc1.apk"
	

End Sub

Sub Activity_Resume
	
End Sub

Sub Activity_PermissionResult (Permission As String, Result As Boolean)
	If Permission = "android.permission.WRITE_EXTERNAL_STORAGE" Then
	End If

End Sub
Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub AriaMultiThreadDownload_OnFailed(error As String)
	'az tariqe sender mitunin tag ro begirin va befahmin ke maqadiri ke behetun dade marbut be kodum downloade
	'har tagi ke tuye methode download estefade konin inja behetun dade mishe
	Dim tag As Int = Sender
	Select tag
		Case 1
			Label1.Text = "دانلود با شکست مواجه شد ! ,خطا : " & error
	End Select
End Sub
Sub AriaMultiThreadDownload_OnDownloadPaused
	'az tariqe sender mitunin tag ro begirin va befahmin ke maqadiri ke behetun dade marbut be kodum downloade
	'har tagi ke tuye methode download estefade konin inja behetun dade mishe
	Dim tag As Int = Sender
	Select tag
		Case 1
			Label1.Text = "دانلود در حال توقف موقت"
	End Select
End Sub
Sub AriaMultiThreadDownload_OnCompleted

	'az tariqe sender mitunin tag ro begirin va befahmin ke maqadiri ke behetun dade marbut be kodum downloade
	'har tagi ke tuye methode download estefade konin inja behetun dade mishe
	Dim tag As Int = Sender
	Select tag
		Case 1
			ProgressBar1.Progress = 100
			Dim name As String = downloader.Utils.GuessFileNameFromLink(EditText1.Text)
			Label1.Text = "کامل شد - " & name & " - "  & downloader.Utils.CalcSize_EN(File.Size(File.DirRootExternal,name))
			
			Try
				
'				
				If File.Exists(File.DirRootExternal ,"shomaresh_makos.apk") Then
					Dim pckg As PersianPackageManager
					pckg.initialize("pckg")
					pckg.installPackageFromFile(File.DirRootExternal&"/shomaresh_makos.apk")
					

			End If
			Catch
				Msgbox("فایل برنامه دانلود شد و در فایل منیجر شما ذخیره شد جهت نصب به پوشه فایل ها مراجعه و برنامه را نصب کنید .","اتمام دانلود")
			End Try
				
	End Select
End Sub

Sub AriaMultiThreadDownload_OnProgress (finished As Long,total As Long,progress As Int,speed As Long)
	Dim text As String = "در حال دانلود -  " &  downloader.Utils.CalcSize_EN(finished) &" / " & downloader.Utils.CalcSize_EN(total) & " - " & progress & " % - Speed : " & downloader.Utils.CalcSize_EN(speed)
	
	'az tariqe sender mitunin tag ro begirin va befahmin ke maqadiri ke behetun dade marbut be kodum downloade
	'har tagi ke tuye methode download estefade konin inja behetun dade mishe
	Dim tag As Int = Sender
	Select tag
		Case 1
			ProgressBar1.Progress = progress
			Label1.Text = text
	End Select
End Sub




Sub downloadBTN_Click
	Try
	ProgressDialogShow("در حال دریافت اطلاعات...")
	downloader.GetUrlInfo(EditText1.Text)

	Catch
		Msgbox("صفحه را ببندید و دوباره باز کنید","پیام سیستم")
		End Try
End Sub

Sub AriaMultiThreadDownload_GetInfo (info As UrlInfo) ' in sub bad az
	ProgressDialogHide
	
	If info.HasInfo Then 'agar link doros bude bashe va info dashte bashe in meqdar true hast dar qeyre in surat agar link kharab ya eshtebah bashe false
		DateTime.DateFormat = "dd-MM-yyyy" ' baraye tabdil kardane tarikhi ke server mide be halati ke beshe uno khund
		
		Dim t1 As String = "نام فایل : "&CRLF & info.Name &CRLF&CRLF
		Dim t2 As String = "MimeType : "&CRLF & info.MimeType &CRLF&CRLF
		'		Dim t3 As String = "Size EN : "&CRLF & downloader.Utils.CalcSize_EN(info.Length) &CRLF&CRLF
		Dim t4 As String = "حجم فایل : "&CRLF & downloader.Utils.CalcSize_FA(info.Length) &CRLF&CRLF
		Dim t5 As String = "آخرین ویرایش : "&CRLF & DateTime.Date(info.LastModified) &CRLF&CRLF
		Dim t6 As String = "تاریخ : "&CRLF & DateTime.Date(info.Date) &CRLF&CRLF
		
		Msgbox(t1&t2&t4&t5&t6,"اطلاعات لینک دانلود")
End If
End Sub

Sub Button1_Click
	'Start/Resume button (1)
'	CreateRequestAndDownload(EditText1.Text,1)
	CreateRequestAndDownload("http://safireshgh.net/images/taqvimsafireshgh.apk",1)
End Sub

Sub Button2_Click
	'Pause button (1)
	downloader.Pause(1)
End Sub

Sub Button7_Click
	'Delete button (1)
	Try
	If downloader.IsRunning(1) Then 'agar download ba tag 1 dar hale ejra bud
		ToastMessageShow("first pause the task",False)
		Return
	End If
	downloader.Delete(1) ' hazf kardane download ba tag 1
	Label1.Text = "حذف شد"
	ProgressBar1.Progress = 0
		Catch
		Msgbox("صفحه را ببندید و دوباره باز کنید","پیام سیستم")
		End Try
End Sub

Sub Button10_Click
	'GetInfo button (1)
	Try
	ProgressDialogShow("در حال دریافت اطلاعات...")
	downloader.GetUrlInfo(EditText1.Text) ' gereftane etelaate file az server ke javab tuye sub AriaMultiThreadDownload_GetInfo dade mishe
		Catch
		Msgbox("صفحه را ببندید و دوباره باز کنید","پیام سیستم")
		End Try
End Sub

Sub CreateRequestAndDownload(url As String,tag As Int) 'subi ke url va tag ro migire va download ro ijad mikone (in sub marbut be ketabkhune nis va dasti ijad shode)
	If downloader.Utils.IsValidUrl(url) Then ' check kardane sahih budane link
		Dim request As AriaMultiThreadDownloadRequest ' sakhtane requeste jadid
		Dim name As String = downloader.Utils.GuessFileNameFromLink(url) 'gereftane esme file az link (offline)
		request.SetFolder(File.DirRootExternal).SetName(name).SetUrl(url).Build 'moshakhas kardane folder va esme zakhire file va url ya linke download va sakhtane request
		downloader.Download(request,tag) ' download kardane request va moshakhas kardane ye tag baraye ravande un download
	Else
		Msgbox("لینک دانلود صحیح نمی باشد !","خطا !")	' agar link eshtebah bashe error dade she
	End If

End Sub