رفتن به مطلب
بیسیک فور ایکس
  • 0
FarzamPlus

دانلود فایل دیتابیس از هاست

سوال

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

 

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

همه مراحل رو انجام میدم ولی وقتی فایل جدید که دانلود میشه و توی گوشی ذخیره میشه حجمش 0 هستش !!!

اینم کد :

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

 

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

4 پاسخ به این سوال تا کنون داده شده است

پست های پیشنهاد شده

  • 0

درود.

از این نمونه سورس کد کمک بگیرید

 

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
در 40 دقیقه قبل، H@mid.RS گفته است :

درود.

از این نمونه سورس کد کمک بگیرید

 

دست شما درد نکنه ولی روش دیگه ای وجود نداره ، این خیلی پیشرفته است .

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

 

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0

کسی نیست یه راهنمایی کنه ؟؟؟

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
در در 19 مرداد 1397 در 00:40، FarzamPlus گفته است :

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

 

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

همه مراحل رو انجام میدم ولی وقتی فایل جدید که دانلود میشه و توی گوشی ذخیره میشه حجمش 0 هستش !!!

اینم کد :


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

 

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

 

Sub JobDone(Job As HttpJob)
	ProgressDialogHide
	If Job.Success Then 
		If Job.JobName = "update" Then
			File.Delete(File.DirInternal,"db.db")
			Dim ou As OutputStream  = File.OpenOutput(File.DirInternal, "db.db", False)
			File.Copy2(job.GetInputStream, ou)
			ou.Close
			ToastMessageShow("بروز رسانی انجام شد",False)
		End If
	End If
End Sub

 

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

برای اینکه بتوانید دیدگاهی ارسال کنید نیاز دارید که کاربر سایت شوید

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری

×