alireza zare

دیتابیس انلاین در سورس بازار

3 ارسال در این موضوع قرار دارد

سلام اطلاعات برگشتی از جیسون بنده  به شرح زیر است :

[{"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

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

Untitled.png

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


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

 

در در 5/6/2019 در 15:51، alireza zare گفته است :

سلام اطلاعات برگشتی از جیسون بنده  به شرح زیر است :

[{"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

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

 

 

 

 

سلام

 

سورستان را در خصوصی برایم ارسال نمایید تابررسی کنم

ویرایش شده در توسط sfrsfre

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


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

 

 

در این قسمت نیز 


            Dim name As String =colroot.Get("name")
                Dim pic As String =colroot.Get("pic")
                Dim gheymat As String =colroot.Get("gheymat")
             

   

__________

تعاریف اینها را به Global منتقل کنید
 

            Dim name As String 
                Dim pic As String 
                Dim gheymat As String 

 

 

درست مثل نمونه ای که گذاشته بودم کارنکردید والا به مشکل برنمیخوردید و تغییراتی داده اید....

ویرایش شده در توسط sfrsfre

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


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

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

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

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری