اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

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


مجید آرتا

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

1 ارسال در این موضوع قرار دارد

سلام

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

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

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

موفق باشید.

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


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

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

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

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری