دیر لود کردن اطلاعات از دیتابیس انلاین

[alibaghods908 4]

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

درضمن من از کتابخونهokhttputils2 استفاده میکنم

[siyavash441 14]

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

[alibaghods908 4]

در 8 ساعت قبل، siyavash441 گفته است :

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

Sub JobDone(Job As HttpJob)
	
	
	sp1.DisMissDialog
	If Job.Success Then
		
		js.Initialize(Job.GetString)
		
		Dim l1 As List = js.NextArray
		
		For i = 0 To l1.Size - 1
		Dim	m1 As Map = l1.Get(i)
'		
			 
			Dim hame As Panel
			hame.Initialize("hame")
			hame.LoadLayout("aghahi")
			hame.Color = Colors.rgb(238, 238, 238)
			s3.Panel.AddView(hame,0%x,addad,100%x,100%y)
			addad = addad + 20%y
			label2onvan.Text = m1.Get("title")
			Label1shahr.Text = m1.Get("shahr")
			Label1mantaghe.Text = m1.Get("mantaghe")
			
			
			
			
			Dim data As Map
			data.Initialize
			data.Put("id",m1.Get("id"))
			data.Put("de",m1.Get("de"))
			data.Put("title",m1.Get("title"))
			data.Put("shomare",m1.Get("shomare"))
			data.Put("address",m1.Get("address"))
			
			
			Panel1.Tag = data
			
			
		
		Next
     
		s3.Panel.Height = addad + 20%y
	Else
			
		
		MT.Initialize2("خطا در برقراری ارتباط با سرور",MT.LENGTH_LONG,MT.TYPE_ERROR,Typeface.LoadFromAssets("byekan.ttf"))
			
	End If
	
	Job.Release
	
End Sub

این از کد های jobdone

یه ساب رفرش هم داریم که میاد همه پست ها رو از اول میگیره میاره

Public Sub Refresh
	s3.Panel.RemoveAllViews
	addad = s3.Height - s3.Height
	s3.ScrollPosition = addad
	sp1.Initialize1("در حال بارگذاری اطلاعات لطفا شکیبا باشید..",Colors.DarkGray,12,Typeface.LoadFromAssets("iransans.ttf"),8,0xFFF84040,True)
	sp1.ShowDialog
	ht_show.Download("http://www.sakhtbuy.ir/ali/b.php")
	'ht_show1.Download("http://www.sakhtbuy.ir/ali/show1.php")
End Sub

 

[mahdi0000 27]

از لیمیت استفاده کنید

و اطلاعات رو 10 تا 10 مثلا لود کنید

[mohammad3250 206]

داداش دلیل این که بعد 1 دقیقه میاد کش کردن اطلاعات توسط کتابخونه httpهستش شما

Public Sub Refresh
	s3.Panel.RemoveAllViews
	addad = s3.Height - s3.Height
	s3.ScrollPosition = addad
	sp1.Initialize1("در حال بارگذاری اطلاعات لطفا شکیبا باشید..",Colors.DarkGray,12,Typeface.LoadFromAssets("iransans.ttf"),8,0xFFF84040,True)
	sp1.ShowDialog
 			 ht_show.release
	ht_show.Download("http://www.sakhtbuy.ir/ali/b.php")
	'ht_show1.Download("http://www.sakhtbuy.ir/ali/show1.php")
End Sub

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

[alibaghods908 4]

در 5 ساعت قبل، mohammad3250 گفته است :

داداش دلیل این که بعد 1 دقیقه میاد کش کردن اطلاعات توسط کتابخونه httpهستش شما

Public Sub Refresh
	s3.Panel.RemoveAllViews
	addad = s3.Height - s3.Height
	s3.ScrollPosition = addad
	sp1.Initialize1("در حال بارگذاری اطلاعات لطفا شکیبا باشید..",Colors.DarkGray,12,Typeface.LoadFromAssets("iransans.ttf"),8,0xFFF84040,True)
	sp1.ShowDialog
 			 ht_show.replace
	ht_show.Download("http://www.sakhtbuy.ir/ali/b.php")
	'ht_show1.Download("http://www.sakhtbuy.ir/ali/show1.php")
End Sub

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

ممنون بابت کمکتون ولی ht_show من از نوع httpjob.متد replace نداره

فک کنم منظوره شما release. درسته؟؟

 

[alibaghods908 4]

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

[alibaghods908 4]

در 5 ساعت قبل، mohammad3250 گفته است :

داداش دلیل این که بعد 1 دقیقه میاد کش کردن اطلاعات توسط کتابخونه httpهستش شما

Public Sub Refresh
	s3.Panel.RemoveAllViews
	addad = s3.Height - s3.Height
	s3.ScrollPosition = addad
	sp1.Initialize1("در حال بارگذاری اطلاعات لطفا شکیبا باشید..",Colors.DarkGray,12,Typeface.LoadFromAssets("iransans.ttf"),8,0xFFF84040,True)
	sp1.ShowDialog
 			 ht_show.replace
	ht_show.Download("http://www.sakhtbuy.ir/ali/b.php")
	'ht_show1.Download("http://www.sakhtbuy.ir/ali/show1.php")
End Sub

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

رفیق دم شما گرم حل شد.

ht_show.release زدم

ممنون