alireza zare

کاربر انجمن
  • تعداد ارسال ها

    3
  • تاریخ عضویت

  • آخرین بازدید

تمامی ارسال های alireza zare

  1. سلام راهنمای میخواستم درمورد ایجاد ریسایکلر در بقیه پیج ها در سورس کافه بازار
  2. سلام اطلاعات برگشتی از جیسون بنده به شرح زیر است : [{"name":"\u0627\u06a9\u0648\u0631 \u0627\u0648\u0644","pic":"http:\/\/ozvbeg.ir\/app\/guitar\/pic\/0.jpg","gheymat":"1000"},{"name":"\u0627\u06a9\u0648\u0631\u062f \u062f\u0648\u0645","pic":"http:\/\/ozvbeg.ir\/app\/guitar\/pic\/1.jpg","gheymat":"2000"},{"name":"\u0627\u06a9\u0648\u0631 \u0627\u0648\u0644","pic":"http:\/\/ozvbeg.ir\/app\/guitar\/pic\/0.jpg","gheymat":"1000"},{"name":"\u0627\u06a9\u0648\u0631 \u0627\u0648\u0644","pic":"http:\/\/ozvbeg.ir\/app\/guitar\/pic\/0.jpg","gheymat":"1000"}] طبق تاپیک طبق کد بنده Sub LinkAndNam Dim read As HttpJob read.Initialize("read", Me) read.PostString("http://4rd.ir/app/guitar/akords.php","") Wait For (read) JobDone(read As HttpJob) If read.Success Then If read.JobName = "read" Then Dim parser As JSONParser parser.Initialize(read.GetString) Dim root As List = parser.NextArray For Each colroot As Map In root Dim name As String =colroot.Get("name") Dim pic As String =colroot.Get("pic") Dim gheymat As String =colroot.Get("gheymat") ImageLinks.Initialize AppsLinks1.Initialize AppsNames2.Initialize AppsLinks3.Initialize AppsNames1.Initialize ImageLinks.Addall(Array As String(pic)) AppsLinks1.AddAll(Array As String(pic)) AppsNames1.Addall(Array As String(gheymat&" - "&name )) AppsNames2.Addall(Array As String(gheymat)) AppsLinks3.Addall(Array As String(pic)) Next ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ImageSlider.notifyDataSetChanged Recycler1.notifyDataSetChanged Recycler2.notifyDataSetChanged Recycler3.notifyDataSetChanged End If Else ToastMessageShow("اتصال با شکست مواجه شد", True) read.Release End If read.Release End Sub طبق این کد باید تمامی اطلاعات برگشت از سرور نمایش داده شود ولی فقط یک آیتم درست میشه