درصد دانلود

[porya 959]

سلام از کتابخونه http job برای دانلود استفاده میکنم حالا چطور میشه درصد دانلود رو نمایش داد

[porya 959]

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

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals
	Dim ht1 As HttpJob
	Private ListView1 As ListView
End Sub

Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("111")
	ListView1.AddSingleLine2("w",0)
	ListView1.AddSingleLine2("q",1)


End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub ListView1_ItemClick (Position As Int, Value As Object)
	
	If Position = 0 Then
	ht1.Initialize("ht",Me)
	ht1.Download("http://*****")
	Else If Position = 1 Then 
	ht1.Initialize("htt",Me)
	ht1.Download("http://*****")
	End If
	
End Sub

Sub JobDone(Job As HttpJob)
	
	If File.IsDirectory(File.DirRootExternal,"m") = False Then
		File.MakeDir(File.DirRootExternal,"m")
	End If
	
	If Job.Success = True Then
		Select Case Job.JobName
			Case "ht"			
		Dim i1 As InputStream
		Dim o1 As OutputStream
		i1 = Job.GetInputStream
		o1 = File.OpenOutput(File.DirRootExternal & "/my","***.zip",False)
		File.Copy2(i1,o1)
		i1.Close
		o1.Close
		ToastMessageShow("با موفقیت ذخیره شد",False)
		End Select
		Select Case Job.JobName
			Case "htt"
		Dim i1 As InputStream
		Dim o1 As OutputStream
		i1 = Job.GetInputStream
		o1 = File.OpenOutput(File.DirRootExternal & "/my","***.zip",False)
		File.Copy2(i1,o1)
		i1.Close
		o1.Close
		ToastMessageShow("با موفقیت ذخیره شد",False)
	
		End Select
		End If
End Sub

الان این مثلا کد اکتیویتی دانلود منه حالا چطور اون ماژول ها رو با این اکتیویتی ارتباطش بدم...

[porya 959]

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

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

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

Sub btnDownload_Click
	Dim dd As DownloadData
	dd.url = link1
	dd.EventName = "dd"
	dd.Target = Me
	CallSubDelayed2(DownloadService, "StartDownload", dd)
End Sub

Sub dd_Progress(Progress As Long, Total As Long)
	ProgressBar1.Progress = Progress / Total * 100
	Label1.Text = NumberFormat(Progress / 1024, 0, 0) & "KB / " & _
		NumberFormat(Total / 1024, 0, 0) & "KB"
End Sub

Sub dd_Complete(Job As HttpJob)
	Log("Job completed: " & Job.Success)
	Job.Release
End Sub

[porya 959]

دوستان چطور میشه اون درصد دانلود رو مثل تصویر زیر تو یه دیالوگ مانندی نمایش داد...

 

 

[shahab1392 47]

ممنون از این همه لطفی که دارید و برای کاربرای این سایت این همه کمک میکنید

 

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

 

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

 

مثلا یک فایل mp3 داریم که می خواهیم دانلود بشه و پخش بشه ولی برای بار دوم بره و او فایل رو از حافظه بگیره نه دانلود کنه

 

خلاصه بگم دانلود یک بار تکرار بشه

 

ممنون از راهنمایی هاتون