تغییر api json در سورس

[88888880 0]

سلام خدمت همه  کد زیر سورس اپارت هست میخام ی api دیگه جایگزیین کنم هر کار کردم نشد چون بلد نیستم ! عزیزانی ک وقت دارن برام مشکلمو حل کنن تازه کارم

 

 

#Region  Project Attributes 
	#ApplicationLabel: Aparat
	#VersionCode: 1
	#VersionName: 1.0
	#SupportedOrientations: portrait
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: false
#End Region

Sub Process_Globals
	
     Private httpjob1 As HttpJob
	 
End Sub

Sub Globals

	Private Panel1 As Panel
	Private ScrollView1 As ScrollView
	Private Button1 As Button
	Dim list1,list2,list3,list4,list5,list6 As List
	Dim lb As Label
	Dim st As String
	Dim links As Map
	Private Panel11 As Panel
	Private vid_img As ImageView
	Private vid_time As Label
	Private vid_title As Label
	Private vid_date As Label
	
End Sub

Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("1")
	Dim aparat_un As String = "aparat"'  <----  آی دی کانال آپارات شما
	httpjob1.Initialize("httpjob1",Me) 
    httpjob1.Download("http://www.aparat.com/etc/api/videobyuser/username/"&aparat_un)
	ProgressDialogShow2("کمی صبر کنید ...",False)
	list1.Initialize
	list2.Initialize
	list3.Initialize
	list4.Initialize
	list5.Initialize
	list6.Initialize
	links.Initialize
	
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub jobdone(job1 As HttpJob)
	
	If job1.Success Then
		ProgressDialogHide
		Dim json As JSONParser
		json.Initialize(job1.GetString)
		Dim m As Map = json.NextObject
		Dim list As List
		list= m.Get("videobyuser")
		For i=0 To list.Size - 1
			m=list.Get(i)

			list1.Add(m.Get("title"))
			list2.Add(m.Get("sender_name"))
			list3.Add(m.Get("duration"))
			list4.Add(m.Get("sdate"))
			list5.Add(m.Get("big_poster"))
			list6.Add(m.Get("frame"))
		Next

		Dim stop As Int = 2%y
		For ii = 0 To list1.Size -1
			Dim p As Panel
			p.Initialize("p")
			ScrollView1.Panel.AddView(p,0,stop,100%x,100%Y)
			p.LoadLayout("2")
			stop = stop + 72%y
			vid_title.Text = list1.Get(ii)
			vid_date.Text = list4.Get(ii)
			vid_time.Text = list3.Get(ii)
			vid_time.Text = tabdil(vid_time.Text)
			st = list6.Get(ii)
			lb.Initialize("lb")
			lb.Text = list6.Get(ii)
			Button1.Tag = lb.Text
			ScrollView1.Panel.Height = stop

			links.Put(vid_img,list5.Get(ii))
			CallSubDelayed2(ImageDownloader, "Download",links )
		Next
	
	Else
	End If

End Sub

Sub tabdil(ms As Int) As String
	Dim seconds, minutes As Int
	seconds = Round(ms / 1)
	minutes = Floor(seconds / 60)
	seconds = seconds Mod 60
	Return NumberFormat(minutes, 1, 0) & ":" & NumberFormat(seconds, 2, 0)
End Sub

Sub button1_click

	Dim btn As Button
	btn.Initialize("btn")
	btn=Sender

	Private in As Intent
	in.Initialize(in.ACTION_VIEW, btn.Tag)
	StartActivity(in)

End Sub

' www.chara.ir

میخام از api زیر استفاده کنم یعنی نتایج کلمه eshgh رو میخام تو برنامه بهم نشون بده ممنون میشم برام حل کنید مشکلمو

http://telegrambots.cf/api/behmusic/index.php?q=eshgh

 

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

New zip Archive

 

[محمدرضا شاهپیری 5,561]

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

و اما جیسون رو میتونید به صورت زیر با کتابخونه های پیشفرض دریافت و پارس کنید. من فقط نحوه نمایشش رو میگم خدمتتون بقیش رو خودتون انجام بدید که ساده هم هست

	Dim pp As HttpJob
    pp.Initialize("mm",Me)
	pp.Download("http://telegrambots.cf/api/behmusic/index.php?q=eshgh")
	Wait For jobdone (job As HttpJob)
	If job.Success Then
		Dim str As String=job.GetString
		Dim parser As JSONParser
		parser.Initialize(str)
		Dim root As Map = parser.NextObject
		Dim count As Int = root.Get("count")
		Dim results As List = root.Get("results")
		For Each colresults As Map In results
			Dim cover As String = colresults.Get("cover")
			Log(cover)
			Dim id As String = colresults.Get("id")
			Log(id)
			Dim title As String = colresults.Get("title")
			Log(title)
		Next
	End If

 

[88888880 0]

در 7 دقیقه قبل، محمدرضا شاهپیری گفته است :

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

و اما جیسون رو میتونید به صورت زیر با کتابخونه های پیشفرض دریافت و پارس کنید. من فقط نحوه نمایشش رو میگم خدمتتون بقیش رو خودتون انجام بدید که ساده هم هست

	Dim pp As HttpJob
    pp.Initialize("mm",Me)
	pp.Download("http://telegrambots.cf/api/behmusic/index.php?q=eshgh")
	Wait For jobdone (job As HttpJob)
	If job.Success Then
		Dim str As String=job.GetString
		Dim parser As JSONParser
		parser.Initialize(str)
		Dim root As Map = parser.NextObject
		Dim count As Int = root.Get("count")
		Dim results As List = root.Get("results")
		For Each colresults As Map In results
			Dim cover As String = colresults.Get("cover")
			Log(cover)
			Dim id As String = colresults.Get("id")
			Log(id)
			Dim title As String = colresults.Get("title")
			Log(title)
		Next
	End If

 

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