اپلیکیشن سایت نکس وان موزیک

[محمدی 95]

سلام

بعد از یه غیاب طولانی باز اومدم و مرسی برای رنک

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

خب مشکلی ا اینجا نیست

اما فقط پیج 1 این صفحه رو میتونم دانلود کنم و نمایش بدم برای پیج دوم و پیج سوم.... چیکار کنم.

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

و در آخر به نظرتون مطالب رو با چی دانلود کنم و نمایش بدم بهتره پیکاسو چطوریه؟

یه توضیح کلی بدید لطفا

[محمدی 95]

Up

[محمدی 95]

کسی نیست کمک کنه. ؟

[solmos36 69]

سلام

بعد از یه غیاب طولانی باز اومدم و مرسی برای رنک

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

خب مشکلی ا اینجا نیست

اما فقط پیج 1 این صفحه رو میتونم دانلود کنم و نمایش بدم برای پیج دوم و پیج سوم.... چیکار کنم.

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

و در آخر به نظرتون مطالب رو با چی دانلود کنم و نمایش بدم بهتره پیکاسو چطوریه؟

یه توضیح کلی بدید لطفا

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

[Elyas Erfani 3,582]

دقیقا مال نکس وان موزیک هست که نوشتم

 

لذت ببرید

 

مشکلی هم تداره

Sub Process_Globals

End Sub

Sub Globals

Dim Job1 As HttpJob
Dim map1 As Map
Dim scr As ScrollView
Dim p As Panel
Dim lbl As Label
Dim img As ImageView
Dim ist As Int
ist = 0%y
Dim farman As String
Dim n As Int
n = 1
	Dim a As ICOSSlideAnimation
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	'Activity.LoadLayout("Layout1")
Job1.Initialize("Job1",Me)
Job1.Download("http://nex1music.ir/")
map1.Initialize
scr.Initialize2(100%y,"scr")
Activity.AddView(scr,0%x,0%y,100%x,100%y)
scr.Color = Colors.DarkGray
Activity.Title="Elyas Erfani"
End Sub
Sub jobdone (job As HttpJob)
	Try
	If job.Success= True Then
		Dim get As String
		get = job.GetString

		get = get.Replace("""","'")
		Dim k() As String = Regex.Split("<img",get)
 'src='http://nex1music.ir/upload/144310430558942400144303365010092618afshin-azari-to-ya-man-ft-mehdi-goodarzi.jpg' width='480' height='480' alt='دانلود آهنگ افشین آذری و مهدی گودرزی به نام تو یا من' /></p>
		For i =0 To k.Length - 1
			If k(i).Contains("width='480'") Then
				If k(i).Contains("src='http://nex1music.ir/upload/") Then
				p.Initialize("p")
				scr.Panel.AddView(p,2%x,ist,95%x,50%y)
								  a.SlideFromBottom("a",300,300)
	 a.StartAnim(p)
				p.Color=Colors.RGB(37,35,37)
				ist = ist +51%y
				scr.Panel.Height = ist+10%y
				lbl.Initialize("lbl")
							Dim str2 As String =k(i)
				str2=str2.SubString(str2.IndexOf("alt='") + 5)
				str2=str2.SubString2(0,str2.IndexOf("' />") -0)
				lbl.Text=str2
				
					p.AddView(lbl,1%x,1%y,90%x,8%y)
		a.SlideFromRight("a",300,300)
	 a.StartAnim(lbl)
					lbl.TextSize=15
					lbl.TextColor = Colors.White
				img.Initialize("img")
				p.AddView(img,20%x,10%y,80%x,40%y)
						a.SlideFadeFromTop("a",300,300)
	 a.StartAnim(lbl)
				Dim str As String =k(i)
				str=str.SubString(str.IndexOf("src='") + 5)
				str=str.SubString2(0,str.IndexOf("' width='480'") -0)
				
	farman = "elyas"
			
				
					 map1.Put(img, str)
CallSubDelayed2(imgdown, "Download", map1)
			End If
	End If
		Next
		Else
		Job1.Download("http://nex1music.ir/")
	End If
	Catch
		Log("akhi")
		End Try
End Sub
Sub scr_ScrollChanged(position As Int)
Try 
If position = scr.Panel.Height - scr.Height Then
If farman = "elyas" Then
n = n + 1 
Job1.Download("http://nex1music.ir/page/"&n&"/")
farman = "sss"
Else
End If
End If
	Catch
		Log("akhi")
		End Try
End Sub
Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

[محمدی 95]

خیلی ممنون از لطفتون

فقط یه چندتا نکته

ببینید با HttpJob دانلود میکنید

آیا باید همه رو دانلود کنه بعد صفحه ساخته شه؟ یعنی نمیشه کاری کرد که وقتی حتی دو سه تا عکس و متن اول هم دانلود شده نمایش داده بشه؟

راهی برای بالا بردن سرعت دانلود و در کل سرعت دریافت داده ها هست؟