ارسال اطلاعات به فرمت JSON

[مجید آرتا 5,874]

سلام

امیدوارم حالتون خوب باشه

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

مختصرا اینجا آموزش میدم

بر فرض بنده میخوام اسم و فامیل و اسم شهر رو به سرور بفرستمُ‌حالا احتمال داره این اطلاعات به صورت GET یا POST  باشه.

خب کد PHP  به این شکل هستش که توی سایت اصلی بود »

<?
$json = $_REQUEST["MyJSON"];
$jsonArray = array();
$jsonObject = array();
$jsonArray=json_decode($json, true);
$x = 0;
while($x < count($jsonArray)) {
 $jsonObject=$jsonArray[$x];

 $name = $jsonObject["name"];
 $family=$jsonObject["family"];
 $city=$jsonObject["city"];
 $x++;
 echo $name . " " . $family . " ". $city;
}
?>

و به این شکل یک تابع نوشتیم که اطلاعات رو به سرور به فرمت جیسون میفرسته که با دو متد GET و POST  میشه انجام داد »

Private Sub Send(IsPost As Boolean)
	Private data As Map
	data.Initialize
	data.Put("name","Majid")
	data.Put("family","Arta")
	data.Put("city","Iranshahr")
	Private list As List
	list.Initialize
	list.Add(data)
	Private gen As JSONGenerator
	gen.Initialize2(list)
	If IsPost Then
			http.PostString("http://site.com/service/index.php","MyJSON=" & gen.ToString)
		Else
			http.Download2("http://site.com/service/index.php",Array As String("MyJSON",gen.ToString))
	End If
	
End Sub

 

نمونه کد »

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("activity_main")
	http.Initialize("sendJson",Me)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub btnSend_Click
	Send(True)
	 'Or
	Send(False)
End Sub
Sub JobDone(job1 As HttpJob)
	If job1.Success Then
		If job1.JobName = "sendJson" Then
			Msgbox(job1.GetString,"")
		End If
	End If
End Sub
Private Sub Send(IsPost As Boolean)
	Private data As Map
	data.Initialize
	data.Put("name","Majid")
	data.Put("family","Arta")
	data.Put("city","Iranshahr")
	Private list As List
	list.Initialize
	list.Add(data)
	Private gen As JSONGenerator
	gen.Initialize2(list)
	If IsPost Then
			http.PostString("http://site.com/service/index.php","MyJSON=" & gen.ToString)
		Else
			http.Download2("http://site.com/service/index.php",Array As String("MyJSON",gen.ToString))
	End If
	
End Sub

مشکلی یا سوالی بود در خدمتم

موفق باشید.

[bayan 0]

سلام 
ببخشید من جیسنونی که می خوام به php ارسال کنم یه خورده فرق داره و به این شکله:

{
  "Message": "Text",
  "MobileNumbers": [
    Mobile
  ],
  "CanContinueInCaseOfError": true
}

برای این باید چجوری بنویسمش؟

[mohammad3250 206]

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

[msd313 62]

کد رو بذار ببینیم منظورت چیه از سمت سرور دیکد نمیشه