Hi I need to accelerate fills data on a list view.
because its to slow downloading and have to wait to complete de download to start working with it.
listview it's slow.
I should try ultimate listview
I have this
because its to slow downloading and have to wait to complete de download to start working with it.
listview it's slow.
I should try ultimate listview
I have this
B4X:
job1.Download("http://ibsj.org/app/index.php")
Sub JobDone (Job As HttpJob)
Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
If Job.Success = True Then
Select Job.JobName
Case "Job1"
Log("JOB 1")
Dim parser As JSONParser
parser.Initialize(Job.GetString)
Dim root As List = parser.NextArray
For Each colroot As Map In root
'Dim date As String = colroot.Get("date")
Dim thumb_url As String = colroot.Get("thumb_url")
Dim video_url As String = colroot.Get("video_url")
Dim author As String = colroot.Get("author")
Dim audio_url As String = colroot.Get("audio_url")
Dim title As String = colroot.Get("title")
display_data(title,author,trim_string2(RemoveAccents(thumb_url)),audio_url,video_url)
ListView1.Invalidate
Next
End Select
Else
Log("Error: " & Job.ErrorMessage)
ToastMessageShow("Error: " & Job.ErrorMessage, True)
Return
End If
Job.Release
job_complete = 1
WebView1.Visible = False
End Sub
Sub display_data (data1 As String, data2 As String, data3 As String ,data4 As String, data5 As String )
If data3.Length = 0 Then
ListView1.AddTwoLinesAndBitmap( trim_string(data1) , data2,LoadBitmapSample(File.DirAssets,"play2.png",15dip,15dip))
Else
ListView1.AddTwoLinesAndBitmap( trim_string(data1) , data2,LoadBitmapSample(File.DirAssets,data3,15dip,15dip))
ListView1.Invalidate
End If
'DoEvents
Sleep(1000)
List1.Add(data1)
List2.Add(data2)
List3.Add(data3)
List4.Add(data4)
List5.Add(data5)
End Sub