رفتن به مطلب
  • 0

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


Mahdi83

سوال

سلام 

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

 

#Region  Project Attributes 
	#ApplicationLabel: B4A Example
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
     Dim sql As SQL
	 Dim cur,cur2 As Cursor
End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
    
	
	Dim hj As Int
	Dim http As HttpJob
	Private Button1 As Button
	Private Label1 As Label
	Private ListView1 As ListView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("L1")
    http.Initialize("job",Me)
	http.Download("http://b4a1test.ihweb.ir/test.db")
	If File.Exists(File.DirInternal,"test.db") = False Then
		File.Copy(File.DirAssets,"test.db",File.DirInternal,"test.db")
	End If
	If sql.IsInitialized = False Then
		sql.Initialize(File.DirInternal,"test.db",False)
	End If
	
	Button1.Text = "Show"
	Button1.Enabled = False
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
	'cur = sql.ExecQuery("SELECT id FROM we")
	''hj = Rnd(1,cur.RowCount)
	''Log(hj)
	cur2 = sql.ExecQuery("SELECT * FROM we")
	For i = 0 To cur2.RowCount -1
		ListView1.AddSingleLine(cur2.GetString("Question"))
	Next
End Sub

Sub JobDone(job As HttpJob)
	If job.Success = True Then
		If job.JobName = "job" Then
			Dim out As OutputStream
			If File.Exists(File.DirInternal,"test.db") = True Then
				File.Delete(File.DirInternal,"test.db")
			End If
			out = File.OpenOutput(File.DirInternal,"test.db",False)
			File.Copy2(job.GetInputStream,out)
			out.Close
			
			Button1.Enabled = True
			Else
				Log(job.ErrorMessage)
		End If	
		job.Release
	End If
	
End Sub

 

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

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

ارسال های توصیه شده

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

سلام 

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

 

#Region  Project Attributes 
	#ApplicationLabel: B4A Example
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
     Dim sql As SQL
	 Dim cur,cur2 As Cursor
End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
    
	
	Dim hj As Int
	Dim http As HttpJob
	Private Button1 As Button
	Private Label1 As Label
	Private ListView1 As ListView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("L1")
    http.Initialize("job",Me)
	http.Download("http://b4a1test.ihweb.ir/test.db")
	If File.Exists(File.DirInternal,"test.db") = False Then
		File.Copy(File.DirAssets,"test.db",File.DirInternal,"test.db")
	End If
	If sql.IsInitialized = False Then
		sql.Initialize(File.DirInternal,"test.db",False)
	End If
	
	Button1.Text = "Show"
	Button1.Enabled = False
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
	'cur = sql.ExecQuery("SELECT id FROM we")
	''hj = Rnd(1,cur.RowCount)
	''Log(hj)
	cur2 = sql.ExecQuery("SELECT * FROM we")
	For i = 0 To cur2.RowCount -1
		ListView1.AddSingleLine(cur2.GetString("Question"))
	Next
End Sub

Sub JobDone(job As HttpJob)
	If job.Success = True Then
		If job.JobName = "job" Then
			Dim out As OutputStream
			If File.Exists(File.DirInternal,"test.db") = True Then
				File.Delete(File.DirInternal,"test.db")
			End If
			out = File.OpenOutput(File.DirInternal,"test.db",False)
			File.Copy2(job.GetInputStream,out)
			out.Close
			
			Button1.Enabled = True
			Else
				Log(job.ErrorMessage)
		End If	
		job.Release
	End If
	
End Sub

 

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

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

سلام 

 

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

سلام 

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

 

#Region  Project Attributes 
	#ApplicationLabel: B4A Example
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
     Dim sql As SQL
	 Dim cur,cur2 As Cursor
End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
    
	
	Dim hj As Int
	Dim http As HttpJob
	Private Button1 As Button
	Private Label1 As Label
	Private ListView1 As ListView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("L1")
    http.Initialize("job",Me)
	http.Download("http://b4a1test.ihweb.ir/test.db")
	If File.Exists(File.DirInternal,"test.db") = False Then
		File.Copy(File.DirAssets,"test.db",File.DirInternal,"test.db")
	End If
	If sql.IsInitialized = False Then
		sql.Initialize(File.DirInternal,"test.db",False)
	End If
	
	Button1.Text = "Show"
	Button1.Enabled = False
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
	'cur = sql.ExecQuery("SELECT id FROM we")
	''hj = Rnd(1,cur.RowCount)
	''Log(hj)
	cur2 = sql.ExecQuery("SELECT * FROM we")
	For i = 0 To cur2.RowCount -1
		ListView1.AddSingleLine(cur2.GetString("Question"))
	Next
End Sub

Sub JobDone(job As HttpJob)
	If job.Success = True Then
		If job.JobName = "job" Then
			Dim out As OutputStream
			If File.Exists(File.DirInternal,"test.db") = True Then
				File.Delete(File.DirInternal,"test.db")
			End If
			out = File.OpenOutput(File.DirInternal,"test.db",False)
			File.Copy2(job.GetInputStream,out)
			out.Close
			
			Button1.Enabled = True
			Else
				Log(job.ErrorMessage)
		End If	
		job.Release
	End If
	
End Sub

 

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

لینک دانلود سورس

 

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

در 20 ساعت قبل، basic 4 android گفته است :

دانلود مشکل نداره دوست عزیز شما فقط ارگت منیفستت روی 14 بزار روی 22 که اگر از کاربر تا اندروید 7 نمیخوای دسترسی بگیری و اگر تارگت رو میخوای ببری بالا باید مجوز ها رو به کاربر نشون بدی 

سلام

درست نشد داداش

 

اون مشکل برای شما میاد چون ورژن b4a شما بالاتر هست.

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

در 3 ساعت قبل، basic 4 android گفته است :

من دانلود کردم فایل رو تو پروژه اتون مشکلی نداشت

سلام

ببینید وقتی بطور معمول و بدون دانلود روی Start کلیک می کنیم ردیف دیتا بیس 4 تا است 

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

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

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...