بروز رسانی دیتابیس از طریق وب با روشن شدنwifi

[کامکار 20]

سلام

ببینید من دیتابیس دارم الان توی برنامه ام که الان با یک دکمه و بصورت دستی عملیات بروز رسانی اون فایل دیتابیس از طریق وب انجام میشه(کل فایل دیتابیس جدید دانلود و جایگزین فایل دیتابیس پیشین میشه)

حالا من میخوام این عمل (بروزرسانی دیتابیس از طریق دب)اینطوری بشه که هروقت کاربر وصل اینترنت میشه یا wifi گوشی روشن میشه بصورت اتوماتیک انجام بشه>

ممنون میم اگر راهی به نظر تونمیرسه را بهم بگیدو یا نمونه کد برام بذارید

[کامکار 20]

تشکر حل شد یه موضوع دیگه هست که تایپیک می زنم

[پژمان نیکروان 6,055]

سلام.

همچین با رویداد ConnectivityChanged کلاس phoneEvent میتونید بفهمید که نت روشن شد یا خاموش شد.

یعنی به محض خاموش یا روشن شدن نت این رویداد اجرا میشه.

Sub Globals
Dim pe As PhoneEvents
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("main")
pe.Initialize("pe")
End Sub
Sub pe_ConnectivityChanged (NetworkType As String, State As String, Intent As Intent)
	If State="CONNECTED" Then
		ToastMessageShow("اینترنت روشن شد",False)
		Else
			ToastMessageShow("اینترنت خاموش شد",False)
	End If
End Sub

[shahab.es 5,429]

دوست خوبم، تو دوتا تاپیک فقط میگید حل شد، 

بهتره که بگید به چه روشی تا تاپیک بی جواب نمونه و بره به یه سمتی

پاسخ خودتون در این تاپیک هم "تشکر حل شد یه موضوع دیگه هست که تایپیک می زنم" 

مسلما بیشترین کمک رو بهتون نکرده، پاسخی رو علامت بزنید که باهاش به جواب رسیدید

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

اما تاپیک رو به سمتی ببرید که واقعا حل بشه

 

موفق باشید

[کامکار 20]

چشن از این به بعد

ببخشد حواسم  نبود

[مهدی ایزدی 9,203]

درود

از طریق کتابخانه Network میتونید وصل بودن Wifi رو بررسی کنید :

Dim server As ServerSocket
If server.GetMyWifiIP = "127.0.0.1" Then Log("اینترنت وای فای وصل نیست")

[کامکار 20]

 

سلام.

همچین با رویداد ConnectivityChanged کلاس phoneEvent میتونید بفهمید که نت روشن شد یا خاموش شد.

یعنی به محض خاموش یا روشن شدن نت این رویداد اجرا میشه.

Sub Globals
Dim pe As PhoneEvents
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("main")
pe.Initialize("pe")
End Sub
Sub pe_ConnectivityChanged (NetworkType As String, State As String, Intent As Intent)
	If State="CONNECTED" Then
		ToastMessageShow("اینترنت روشن شد",False)
		Else
			ToastMessageShow("اینترنت خاموش شد",False)
	End If
End Sub

 

سلام ببخشید ببینید این کدهای مربوط به بروز رسانی فایل دیتابیس من هست که برای یک دکمه تعریف شده است(این کدهای  برای یک دکمه در اکتیوتی که لیست ویو برای داده های دیتابیس تعریف شده وجود دارد.

Sub Button1_Click
	Dim ht As HttpJob
ht.Initialize("update",Me)
ProgressDialogShow("در حال بروز رسانی.بعد از بروز رسانی برنامه بسته می شود.لطفا منتظر بمانید")
ht.Download("http://bayanbox.ir/download/5616858746303122179/news.db")

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,"news.db")
                        ou = File.OpenOutput(File.DirInternal,"news.db",False)
                            File.Copy2(Job.GetInputStream,ou)
                              ou.Close
			     	    End If
 End If
Activity_Create(True) 
End Sub

حالا این کد های را چطوری به کد های بالا شما متصل کنم

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

ممنونمیشم اگر راهنمایی کنید

اگر هم نیاز هست سورس را بذارم

[پژمان نیکروان 6,055]

فقط کافیه اون کدهارو از توی باتن وردارید و به جای toast بذارید.

Sub Globals
Dim pe As PhoneEvents
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("main")
pe.Initialize("pe")
End Sub
Sub pe_ConnectivityChanged (NetworkType As String, State As String, Intent As Intent)
	If State="CONNECTED" Then
		Dim ht As HttpJob
ht.Initialize("update",Me)
ProgressDialogShow("در حال بروز رسانی.بعد از بروز رسانی برنامه بسته می شود.لطفا منتظر بمانید")
ht.Download("http://bayanbox.ir/download/5616858746303122179/news.db")

		Else
			'ToastMessageShow("اینترنت خاموش شد",False)
	End If
End Sub

[کامکار 20]

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