دانلود فایل توسط b4a

[Mahdi83 2]

سلام

چطوری میشه توسط b4a و httputils2 یه فایل دیتابیس رو از سرور دانلود کرد و هربار که اطلاعاتی به دیتابیس توی سرور اضافه شد برنامه اونو دانلود کنی و جای فایل قبلی بزاره؟؟؟

کمک کنید

[Mr.Kafiri 221]

در 1 ساعت قبل، Mahdi83 گفته است :

سلام

چطوری میشه توسط b4a و httputils2 یه فایل دیتابیس رو از سرور دانلود کرد و هربار که اطلاعاتی به دیتابیس توی سرور اضافه شد برنامه اونو دانلود کنی و جای فایل قبلی بزاره؟؟؟

کمک کنید

سلام

Sub Activity_Create(FirstTime As Boolean)
		
	Dim ht As HttpJob
	ht.Initialize("update",Me)
	ProgressDialogShow("updating")
	ht.Download("http://www.yoursite.ir/mydb")
	
End Sub

بعد:

Sub JobDone(Job As HttpJob)
	ProgressDialogHide
	If Job.Success Then
		If Job.JobName = "update" Then
			Dim ou As OutputStream
			File.Delete(File.DirInternal,"mydb.db")
			ou = File.OpenOutput(File.DirInternal,"mydb.db",False)
			File.Copy2(Job.GetInputStream,ou)
			ou.Close
			ToastMessageShow("updated successfully",False)
		End If
	End If
End Sub

کتابخانه Httputils2 رو تیک بزنید...

درضمن دیتابیس رو بدون پسوند(.sql) درون هاست قرار بدید تا برنامه بتونه دانلود کنه..

 

دریافت فایل

Update Database.zip

[Mahdi83 2]

در 3 ساعت قبل، MrPhone گفته است :

سلام

Sub Activity_Create(FirstTime As Boolean)
		
	Dim ht As HttpJob
	ht.Initialize("update",Me)
	ProgressDialogShow("updating")
	ht.Download("http://www.yoursite.ir/mydb")
	
End Sub

بعد:

Sub JobDone(Job As HttpJob)
	ProgressDialogHide
	If Job.Success Then
		If Job.JobName = "update" Then
			Dim ou As OutputStream
			File.Delete(File.DirInternal,"mydb.db")
			ou = File.OpenOutput(File.DirInternal,"mydb.db",False)
			File.Copy2(Job.GetInputStream,ou)
			ou.Close
			ToastMessageShow("updated successfully",False)
		End If
	End If
End Sub

کتابخانه Httputils2 رو تیک بزنید...

درضمن دیتابیس رو بدون پسوند(.sql) درون هاست قرار بدید تا برنامه بتونه دانلود کنه..

 

 

دریافت فایل

Update Database.zip

 

سلام

دمت گرم

[Salar82 919]

سلام

البته الآن کتابخونه httputils2 منسوخ شده و بجاش کتابخونه Okhttputils2 اومده.

httputils2 تو برخی موارد دچار مشکل میشه...