اطلاعیه

کاربر گرامی

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

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


مجید آرتا

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

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

سلام

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

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

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

موفق باشید.

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


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

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

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

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

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


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

مطالب شما نیاز است به تایید مدیران برسد

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

×   شما در حال چسباندن محتوایی با قالب بندی هستید.   حذف قالب بندی

  تنها استفاده از ۷۵ اموجی مجاز می باشد.

×   لینک شما به صورت اتوماتیک جای گذاری شد.   نمایش به عنوان یک لینک به جای

×   محتوای قبلی شما بازگردانی شد.   پاک کردن محتوای ویرایشگر

×   شما مستقیما نمی توانید تصویر خود را قرار دهید. یا آن را اینجا بارگذاری کنید یا از یک URL قرار دهید.