کپی فایل از هاست در B4A

[Fery666]

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

نمیدونم دلیلش چیه .

Sub b_up_Click

	ProgressDialogShow("در حال بروز رسانی")

	ht2.Initialize("update",Me)

	ht2.Download("http://farzamplus.ss0.ir/db.db")

End Sub





Sub JobDone(Job As HttpJob)

	ProgressDialogHide

	If Job.Success Then

		If Job.JobName = "update" Then

			File.Delete(File.DirInternal,"db.db")

			Dim iu As InputStream = Job.GetInputStream

			Dim ou As OutputStream  = File.OpenOutput(File.DirInternal, "db.db", False)

			File.Copy2(iu, ou)

			iu.Close

			ou.Close

			ToastMessageShow("بروز رسانی انجام شد",False)

			Job.Release

		End If

	End If

End Sub

اگر امکانش هست کمک کنید .