دانلود یک فایل و ذخیره آن در پوشه ای مشخص

[RezaAli 106]

سلام دوستان 

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

[RezaAli 106]

 

مشکل از کجاست؟؟

[KMOHAMMAD 10]

در در 1395/06/13, 20:49:41، amir1999 گفته است :

کتابخانه ی httputils2 رو تیک بزن

Dim ht As HttpJob

و معرفیش کن

ht.Initialize("ht",Me)
ht.Download("your link")

حالا لینک دانلود رو به جای ypur link بذار

و بعد کد زیر رو در آخر همه ی کد هات بذار

Sub JobDone(Job As HttpJob)
	If Job.Success = True Then
		If File.IsDirectory(File.DirRootExternal,"posshe") = False Then
	     File.MakeDir(File.DirRootExternal,"pooshe")
	End If
	Dim i1 As InputStream
	Dim o1 As OutputStream
	i1 = Job.GetInputStream
	o1 = File.OpenOutput(File.DirRootExternal & "/pooshe", False)
	File.Copy2(i1,o1)
	i1.Close
	o1.Close
End If

End Sub

جای pooshe هم اسم فولدرت رو بذار

اگر ما داخل دیتا بیس 20 لینک عکس داشته باشیم که بخواهیم همه اونها بعد از دانلود در پوشه خاص برنامه داخل گوشی ذخیره بشه 

چیکار باید بکنیم؟؟؟

[amir1999 81]

کتابخانه ی httputils2 رو تیک بزن

Dim ht As HttpJob

و معرفیش کن

ht.Initialize("ht",Me)
ht.Download("your link")

حالا لینک دانلود رو به جای ypur link بذار

و بعد کد زیر رو در آخر همه ی کد هات بذار

Sub JobDone(Job As HttpJob)
	If Job.Success = True Then
		If File.IsDirectory(File.DirRootExternal,"posshe") = False Then
	     File.MakeDir(File.DirRootExternal,"pooshe")
	End If
	Dim i1 As InputStream
	Dim o1 As OutputStream
	i1 = Job.GetInputStream
	o1 = File.OpenOutput(File.DirRootExternal & "/pooshe", False)
	File.Copy2(i1,o1)
	i1.Close
	o1.Close
End If

End Sub

جای pooshe هم اسم فولدرت رو بذار

[RezaAli 106]

Dim ht As HttpJob

ممنون از شما آقای amir1999

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

اما کار نمیکنه ( اصلا دانلود نمیشه)

لطفا کمک کنید

ht.Initialize("ht",Me)
ht.Download(cur.GetString("adres"))

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

برای دانلود فایل ها از HttpUtils2 استفاده نکنید ، از AriaAsynkTask و یا OkHttp استفاده کنید

[amir1999 81]

در 42 دقیقه قبل، RezaAli گفته است :

 

مشکل از کجاست؟؟

خطی که مشکل داره اینجوری بنویس:

o1 = file.openoutput(file.dirrootexternal & "/pooshe" , "esmefile.txt" , false")

جای اسم esmefile اسم فایل خودتو بنویس

مثلا demo.png