عدم دریافت جیسون پوشه

[mahdi tahan 723]

با سلام 

من ی مشکل خیلی حاد دارم که هر کار کردم درست نشد

جیسونی از پوشه ارسال میشه ولی به صورت خالی دریافت میشه

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

طبق آموزش خود پوشه رفتم هیچ کار اضافی هم نکردم ولی دریافت نمیشه

نمدونم مشکل از گوشی هواویه منه؟توی شبیه سازم ج نداد

یا ممکنه از b4a  من باشه؟؟ورژن8

کدهای منیفست

'''pushe
   کدایه پوشه که زیادن و نمیزارم
''-----------------------------JASON
AddManifestText(
<permission android:name="$PACKAGE$.permission.C2D_MESSAGE" android:protectionLevel="signature" />)
AddPermission($PACKAGE$.permission.C2D_MESSAGE)
AddPermission(com.google.android.c2dm.permission.RECEIVE)
' Push Service Receiver Attribute
SetReceiverAttribute(PusheJsonService, android:permission, "com.google.android.c2dm.permission.SEND")
' Service Receiver Text
AddReceiverText(PusheJsonService,
<intent-filter>
<action android:name="com.google.android.c2dm.intent.RECEIVE" />
<category android:name="$PACKAGE$" />
</intent-filter>
<intent-filter>
<action android:name="com.google.android.c2dm.intent.REGISTRATION" />
<category android:name="$PACKAGE$" />
</intent-filter>)
'----------------------------

کدهای سرویس خود پوشه

#Region Module Attributes
	#StartAtBoot: False
	#ExcludeFromLibrary: True
#End Region

'Service module

Sub Process_Globals
	Dim PusheUtil As PusheB4AUtil
	Dim json1 As JSONParser
	Dim data As Map

	
End Sub
Sub Service_Create
	
End Sub

Sub Service_Start (StartingIntent As Intent)
	Select StartingIntent.Action
		Case "com.google.android.c2dm.intent.RECEIVE" 
			MessageArrived(StartingIntent)
	End Select
End Sub
Sub MessageArrived (pIntent As Intent)
	Dim JsonMsg As String

	JsonMsg = PusheUtil.getPusheJsonMsg(pIntent)
	If JsonMsg <> "" Then
		'add your code here to deal with JsonMsg
		Log("Json message received: " & JsonMsg)
		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

	json1.Initialize(jsonStr)
	Try
		data = json1.NextObject
		s1 = data.Get("titr")
		s2 = data.Get("matn")
		ToastMessageShow(s1 & ":" & s2 , True)
	Catch
		Log(LastException)

	End Try
End Sub

ممنون میشم کمک کنید خیلی درگیرشم

 

یا حداقل کسی که با پوشه کار کرده و جیسونو میگیره یک نمونه کد بده

[نورنما 613]

پست زیر رو  یه نگاهی بیاندازید

 

[mahdi0000 27]

منم این مشکلا داشتم

حل نشد که نشد

[نورنما 613]

در 18 ساعت قبل، mahdi0000 گفته است :

منم این مشکلا داشتم

حل نشد که نشد

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