عدم دانلود فایل با HttpJob

[rasul23 40]

سلام دوستان

من توی هاستم یک عکس آپلود کردم

وقتی با وب ویو اونو لود میکنم بدون هیچ مشکلی نشونش میده اما

وقتی اونو با کتابخونه HttpJob دانلود میکنم فایل مشکل داره یعنی باز نمیشه

 

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

 

اینم کدهایی که استفاده کردم

WebView1.LoadUrl("http://mytab.pergig.ir/uploads/23.jpg")

	HttpJob1.Initialize("Download",Me)
	HttpJob1.Download("http://mytab.pergig.ir/uploads/23.jpg")

Sub jobdone (job As HttpJob)
If job.Success=True Then
		Log("موفق")
		If job.JobName="Download" Then
			Log("دانلود انجام شد")
			Dim out As OutputStream = File.OpenOutput(File.DirDefaultExternal,"image.jpg", True)
            File.Copy2(job.GetInputStream, out)
			out.Close			
End If
End If
End Sub

 

[rasul23 40]

بازم کار نمیکنه

[reza644 435]

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

 

شاید از اون باشه

[rasul23 40]

از کجا فهمیدی اینطوره

 

[Mr Mansour 325]

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

فقط شما مسیر و لینک رو بهش میدین

 

برای اضافه کردن به پروژه ات از منوی Project گزینه ی Add Existing Moudle

 

نمونه ی کد استفاده :

	CallSubDelayed2(ImageDownloader,"Download",links)

جای links - لینک مورد نظرت بزار

 

ImageDownloader.rar