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

[ilan 1]

سلام دوستان

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

مثال :

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

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

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

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

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

و....

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

[Salar82 901]

سلام

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

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

 

 

 

[ilan 1]

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

سلام

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

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

 

 

 

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

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

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

[Salar82 901]

خدمت شما:

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 فایل خودتون رو وارد کنید.

[Salar82 901]

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

[ilan 1]

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

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

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

 

[ilan 1]

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

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

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

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

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

[Salar82 901]

اول یه متغیر از نوع 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

 

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

 

 

 

[ilan 1]

در 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

 

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

 

 

 

مرسی بزرگوار 

[ilan 1]

در 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

 

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

 

 

 

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

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. الان این دیتاها چجوری باید نمایش داده بشه ؟

[Salar82 901]

شرمنده

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

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

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

[ilan 1]

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

 

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

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

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

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

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

[ilan 1]

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

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

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

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

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

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

[ilan 1]

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

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

 

 

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

خیلی کمک شد

مرسی