من توی کدهای سرویسم دارم یه سری جیسون با پوشه به برنامه ارسال میکنم.
ولی پیام های جیسون خالی ارسال میشه.
یعنی ارسال میشه ولی خالیه
اگه راهنماییم کنید ممنون میشم.
این کدهای سرویسم
#Region Module Attributes
#StartAtBoot: True
#StartCommandReturnValue: android.app.Service.START_STICKY
#ExcludeFromLibrary: True
#End Region
'Service module
Sub Process_Globals
Dim PusheUtil As PusheB4AUtil
Dim sql As SQL
End Sub
Sub Service_Create
End Sub
Sub Service_Start (StartingIntent As Intent)
StartServiceAt("",DateTime.Now + 0.1*DateTime.TicksPerMinute,False)
Log("sevise start shod")
' If File.Exists(File.DirInternal,"glxdb.db") = False Then
File.Copy(File.DirAssets,"glxdb.db",File.DirInternal,"glxdb.db")
' End If
sql.Initialize(File.DirInternal,"glxdb.db",False)
Select StartingIntent.Action
Case "com.google.android.c2dm.intent.RECEIVE"
MessageArrived(StartingIntent)
End Select
End Sub
Sub MessageArrived (pIntent As Intent)
Log("MessageArrived")
Dim JsonMsg As String
JsonMsg = PusheUtil.getPusheJsonMsg(pIntent)
' If JsonMsg <> "" Then
Log("Json message received: " & JsonMsg)
ToastMessageShow("push",True)
processJson(JsonMsg)
' End If
End Sub
Sub processJson(jsonStr As String)
Dim json1 As JSONParser
Dim data As Map
Dim s1 As String
Dim s2 As String
Dim s3 As String
json1.Initialize(jsonStr)
Try
data = json1.NextObject
s1 = data.Get("titr")
s2 = data.Get("matn")
s3 = data.Get("link")
ToastMessageShow(s1,True)
' sql.ExecNonQuery("insert into glxtb(titr,matn,link) values ('"&s1&"','"&s2&"','"&s3&"')")
sql.ExecNonQuery("insert into glxtb(titr,matn,link) values ('ali','hasan','link')")
Log("push in sql")
Catch
Log(LastException)
End Try
End Sub
Sub Service_Destroy
StartService("")
End Sub
سوال
mahdi0000 27
سلام دوستان
من توی کدهای سرویسم دارم یه سری جیسون با پوشه به برنامه ارسال میکنم.
ولی پیام های جیسون خالی ارسال میشه.
یعنی ارسال میشه ولی خالیه
اگه راهنماییم کنید ممنون میشم.
این کدهای سرویسم
#Region Module Attributes #StartAtBoot: True #StartCommandReturnValue: android.app.Service.START_STICKY #ExcludeFromLibrary: True #End Region 'Service module Sub Process_Globals Dim PusheUtil As PusheB4AUtil Dim sql As SQL End Sub Sub Service_Create End Sub Sub Service_Start (StartingIntent As Intent) StartServiceAt("",DateTime.Now + 0.1*DateTime.TicksPerMinute,False) Log("sevise start shod") ' If File.Exists(File.DirInternal,"glxdb.db") = False Then File.Copy(File.DirAssets,"glxdb.db",File.DirInternal,"glxdb.db") ' End If sql.Initialize(File.DirInternal,"glxdb.db",False) Select StartingIntent.Action Case "com.google.android.c2dm.intent.RECEIVE" MessageArrived(StartingIntent) End Select End Sub Sub MessageArrived (pIntent As Intent) Log("MessageArrived") Dim JsonMsg As String JsonMsg = PusheUtil.getPusheJsonMsg(pIntent) ' If JsonMsg <> "" Then Log("Json message received: " & JsonMsg) ToastMessageShow("push",True) processJson(JsonMsg) ' End If End Sub Sub processJson(jsonStr As String) Dim json1 As JSONParser Dim data As Map Dim s1 As String Dim s2 As String Dim s3 As String json1.Initialize(jsonStr) Try data = json1.NextObject s1 = data.Get("titr") s2 = data.Get("matn") s3 = data.Get("link") ToastMessageShow(s1,True) ' sql.ExecNonQuery("insert into glxtb(titr,matn,link) values ('"&s1&"','"&s2&"','"&s3&"')") sql.ExecNonQuery("insert into glxtb(titr,matn,link) values ('ali','hasan','link')") Log("push in sql") Catch Log(LastException) End Try End Sub Sub Service_Destroy StartService("") End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر
9 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.