رفتن به مطلب
برای استفاده از انجمن و عضـویت کلیک کنید.

AnswerCenter

مرکز پاسخگویی به سوالات برنامه نویسی

  • مرجع پاسخگویی
  • تولید آموزش
  • سفارش پروژه

درخواست سفارش پروژه

بایگانی شده

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

مجید آرتا

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

پست های پیشنهاد شده

مجید آرتا    5,760

مدیر کل سایت

سلام

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

بنده اموزش دریافت اطلاعات  رو به فرمت 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
}

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

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


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

کاربر رو به رشد

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

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


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

×
×
  • جدید...