رفتن به مطلب

rezac

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

سلام. من کتابخانه MC7Htttp رو گرفتم و همه متغیرهایی که از  نوع httpUtils2 تعریف شده بودند
رو از نوع MC7Http کردم اما وقتی برنامه اجرا میشه اطلاعات لود نمیشه. چرا؟ این کد Sub JobDoene من هست:

If job.RSuccess Then
		Dim res As String
		res = job.GetString
		
		Dim parser As JSONParser
		parser.Initialize(res)
		
		Select job.RName
			Case "get1"
				Dim data As List
				data = parser.NextArray
				
				For i = 0 To data.Size-1
					Dim m As Map
					m = data.Get(i)
					Dim pnl As Panel
					pnl.Initialize("pnl")
					pnl.LoadLayout("items")
					QuickListView1.Add(pnl,ImageView_items.Height,m.Get("id"))
					Label_items.Text = m.Get("Title")
					aria.Load(m.Get("picture")).AsBitmap.IntoImageView(ImageView_items)
				Next

	Else
			BottomDialog.Show
			dialog_entezar.Dismiss
	End If

 

کجای کد مشکل داره؟

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

	Req1.Initialize("Reqs" , "RR1" , 8000 , Me)
	Req1.PostString("http://www.site.com/index.php" , "S=10&N=20" )

 

Sub Reqs_MC7HttpResponse(Response As MC7Http)
	Log("RName = " & Response.RName & ", Success = " & Response.RSuccess)
	If Response.RSuccess = True Then
		Select Response.RName
			Case "Req1"
				Log(Response.GetString)
				Response.Release
		End Select
	Else
		Log("Error: " & Response.RError)
		ToastMessageShow("Error: " & Response.RError, True)
	End If
	
	Req1.StopAllRequest
End Sub

به این صورت باید استفاده کنید.

 

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

بایگانی شده

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

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

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