ارسال اطلاعات از طریق json

[peiman3d 4]

سلام دوستان 

من در برنامم کدی به شکل زیر دارم که در واقع تاریخ انقضای برنامه هست

آیا میتونم  قسمت تاریخ رو "9/21/2016" رو به صورت json بفرستم

در واقع میخوام تاریخ رو خودم ارسال خودم و هر بار نیاز نباشه که برنامه رو تغییر بدم و مخاطبا مجبور به دانلود نباشن
اگه میشه لطفا کد b4a  و json  هم  بگید
فکر میکنم کد پیچیده ای نباشه

 

 

Dim now1,now2 As Long
now1 = DateTime.DateParse("9/21/2015")
now2 = DateTime.Now
If (now1<now2) Then
	StartActivity(exp)
End If

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

سلام

خب برای اینکه به فرمت json  در بیاد میتونید از JSONGenerator  که توی خود کتابخونه JSON  هستش استفاده کنید

به این شکل که دو حالت داره، یکی آبجکت که باید map  تعریف کنید و یکی هم آرایه که باید list  تعریف کنید.

[peiman3d 4]

سلام

خب برای اینکه به فرمت json  در بیاد میتونید از JSONGenerator  که توی خود کتابخونه JSON  هستش استفاده کنید

به این شکل که دو حالت داره، یکی آبجکت که باید map  تعریف کنید و یکی هم آرایه که باید list  تعریف کنید.

ممنون از توضیحتون

ولی راستش چیزی متوجه نشدم

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

 این تیکه کد رو بینید »

Private data As Map
data.Initialize
data.Put("name","Majid")
data.Put("family","Arta")

Private gen As JSONGenerator
gen.Initialize(data)
Msgbox(gen.ToString,"")

یک مثال سادست

شما باید اون کلید هایی که در وب سرویستون دارید رواینجا وارد کنید.name  یک کلید هستش که مقدار اون ( Value )  اسم Majid  هستش.

کمی کار کنید متوجه میشید.