رفتن به مطلب
  • 0

دریافت اطلاعات از json


ilan

سوال

سلام دوستان

در b4a میخواستیم از فایل جیسون اطلاعات بگیریم و نمایش بدیم چیکار باید بکنیم؟

مثال :

آدرس فایل جیسون http://iranff.ir/1.json

خروجی اپلیکیشن  اگه فایل جیسون رو ببینید متوجه میشید یه سری اعداد و کلمات هست، میخوام توی خروجی اپ اینا رو به تفکیک نشون بده البته بصورت جدا جدا 

 نمایش اطلاعات fild1  توی یک لیبل

 نمایش اطلاعات fild2  توی یک لیبل

 نمایش اطلاعات fild3  توی یک لیبل

و....

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

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

13 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

سلام

فک کنم فایل جیسون شما کامل نباشه و [ ] رو اول و آخرش کم داره.

اینم آموزش‌هایی که در این باره تو سایت وجود داره:

 

 

 

:53::53::53::53:

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

در 9 دقیقه قبل، Salar82 گفته است :

سلام

فک کنم فایل جیسون شما کامل نباشه و [ ] رو اول و آخرش کم داره.

اینم آموزش‌هایی که در این باره تو سایت وجود داره:

 

 

 

:53::53::53::53:

ممنونم دوست من

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

ممنون میشم اگه توضیح بدین 

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

خدمت شما:

Dim j_p As JSONParser

j_p.Initialize(YourJson)

Dim list As List = j_p.NextArray
	
For i=0 To list.Size-1
	Dim map As Map = list.Get(i)
	Label1.Text = map.Get("fild1")
	Label2.Text = map.Get("fild2")
	Label3.Text = map.Get("fild3")
Next

فقط بجای YourJson فایل خودتون رو وارد کنید.

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

برای دریافت اطلاعات از سرور هم از OkHttpUtils2 استفاده کنید. آموزشش تو سایت هست.

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

در 7 دقیقه قبل، Salar82 گفته است :

برای دریافت اطلاعات از سرور هم از OkHttpUtils2 استفاده کنید. آموزشش تو سایت هست.

مرسی دوست خوبم.

 

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

در 19 دقیقه قبل، Salar82 گفته است :

برای دریافت اطلاعات از سرور هم از OkHttpUtils2 استفاده کنید. آموزشش تو سایت هست.

شرمنده دوست من

مطلبی راجع به بهش پیدا نکردم که بگه چجوری میتونم از این لینک جیسون استفاده کنم.

مضافا اینکه توی دیزاینر من چطور بگم اینا رو نمایش بده

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

اول یه متغیر از نوع httputils تعریف می‌کنین.

بعد از طریق متد Download، لینکتون رو وارد می‌کنید.

بعد یه ساب با نام JobDone می سازید:

Sub Activity_Create(FirstTime As Boolean)
	Dim Ht As HttpUtils
	Ht.Download("http://iranff.ir/1.json")
End Sub

Sub jobdone(job As HttpJob)
	If job.Success = True Then

		Dim j_p As JSONParser

		j_p.Initialize(job.GetString)
	
		Dim list As List = j_p.NextArray
	
		For i=0 To list.Size-1
			Dim map As Map = list.Get(i)
			Label1.Text = map.Get("fild1")
			Label2.Text = map.Get("fild2")
			Label3.Text = map.Get("fild3")
		Next
			
	Else

		ToastMessageShow("خطا در برقراری ارتباط با سرور",False)

	End If

	Ht.Release
End Sub

 

در ضمن از طریق دیزاینر نمی‌تونید اینا رو مشخص کنید.

 

 

:53::53::53::53:

 

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

در 13 دقیقه قبل، Salar82 گفته است :

اول یه متغیر از نوع httputils تعریف می‌کنین.

بعد از طریق متد Download، لینکتون رو وارد می‌کنید.

بعد یه ساب با نام JobDone می سازید:

Sub Activity_Create(FirstTime As Boolean)
	Dim Ht As HttpUtils
	Ht.Download("http://iranff.ir/1.json")
End Sub

Sub jobdone(job As HttpJob)
	If job.Success = True Then

		Dim j_p As JSONParser

		j_p.Initialize(job.GetString)
	
		Dim list As List = j_p.NextArray
	
		For i=0 To list.Size-1
			Dim map As Map = list.Get(i)
			Label1.Text = map.Get("fild1")
			Label2.Text = map.Get("fild2")
			Label3.Text = map.Get("fild3")
		Next
			
	Else

		ToastMessageShow("خطا در برقراری ارتباط با سرور",False)

	End If

	Ht.Release
End Sub

 

در ضمن از طریق دیزاینر نمی‌تونید اینا رو مشخص کنید.

 

 

:53::53::53::53:

 

مرسی بزرگوار 

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

در 32 دقیقه قبل، Salar82 گفته است :

اول یه متغیر از نوع httputils تعریف می‌کنین.

بعد از طریق متد Download، لینکتون رو وارد می‌کنید.

بعد یه ساب با نام JobDone می سازید:

Sub Activity_Create(FirstTime As Boolean)
	Dim Ht As HttpUtils
	Ht.Download("http://iranff.ir/1.json")
End Sub

Sub jobdone(job As HttpJob)
	If job.Success = True Then

		Dim j_p As JSONParser

		j_p.Initialize(job.GetString)
	
		Dim list As List = j_p.NextArray
	
		For i=0 To list.Size-1
			Dim map As Map = list.Get(i)
			Label1.Text = map.Get("fild1")
			Label2.Text = map.Get("fild2")
			Label3.Text = map.Get("fild3")
		Next
			
	Else

		ToastMessageShow("خطا در برقراری ارتباط با سرور",False)

	End If

	Ht.Release
End Sub

 

در ضمن از طریق دیزاینر نمی‌تونید اینا رو مشخص کنید.

 

 

:53::53::53::53:

 

سوالاتم زیاد شد ببخشید

1. کتابخانه HttpUtils2  روخطا میده درحالیکه فعال کردم .

B4A Version: 8.00
Parsing code.    Error
Error parsing program.
Error description: Unknown type: httputils
Are you missing a library reference?
Error occurred on line: 29 (Main)
Dim Ht As HttpUtils

 

2. الان این دیتاها چجوری باید نمایش داده بشه ؟

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

شرمنده

اشتباه از من بود.

متغیر رو از نوع HttpJob تعریف کنید.

البته کتابخونه HttpUtils2 طبق گفته ی سایت مرجع منسوخ شده و باید از OkHttpUtils2 استفاده کنید.

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

در 2 ساعت قبل، basic 4 android گفته است :

 

ممنونم دوست خوبم

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

الان ورژن رو تغییر دادم به جدیدترین نسخه

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

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

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

در 6 دقیقه قبل، basic 4 android گفته است :

شما آیدی تلگرامت رو خصوصی بزار فردا صبح کارت رو راه بندازم

ممنونم دوست عزیزم

خیلی خیلی بزرگوارید

پیام خصوصی نمیشه داد 

آیدی تلگرام : @smhrf

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

در در 12 فروردین 1399 در 14:07، basic 4 android گفته است :

خدمت شما تو تلگرام جواب دادم جواب ندادید گفتم اینجا برای دوستانم بزارم

QvHCXqbHmKmeQz100H1o_1585647217402.jpg (1179×1040)

 

QvHCXqbHmKmeQz100H1o_1585647217402.jpg (1179×1040)

 

دستتون درد نکنه

خیلی کمک شد

مرسی

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

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...