Android Question load image in listview from url link

DonManfred said:

dim and initialize the list before the loop. Add all urls to download to the list in your loop. After your loop: Get the first item from the list and create a job and start the download. In Jobdone you save the file, remove the first item from the list.

then

Get the first item from the list and create a job and start the download. In Jobdone you save the file, remove the first item from the list.

and for all the rest of the list do the same

Click to expand...

DonManfred said:

dim and initialize the list before the loop. Add all urls to download to the list in your loop. After your loop: Get the first item from the list and create a job and start the download. In Jobdone you save the file, remove the first item from the list.

then

Get the first item from the list and create a job and start the download. In Jobdone you save the file, remove the first item from the list.

and for all the rest of the list do the same

Click to expand...

job3.Initialize("Job3", Me)
Dim cSalonName As Int = 5
Dim cSalonAddress As Int = 8
Dim cSalonIcon As Int = 3

For i = 0 To Lsalon.RowCount - 1
        Lsalon.Position = i
    salonName = Lsalon.GetString(cSalonName)
    salonAddress = Lsalon.GetString(cSalonAddress)
        job3.Tag = Lsalon.GetString(cSalonIcon)      

job3.Download("http://67.205.112.152/~iqueue/SalonAppIcons/" & Lsalon.GetString(cSalonIcon))
      Next

Sub JobDone (Job As HttpJob)
   Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
   If Job.Success = True Then
      Select Job.JobName
         Case "Job3"
            'show the downloaded image
salon_listView.AddTwoLinesAndBitmap(salonName,salonAddress, job3.GetBitmap)
      End Select
   Else
      Log("Error: " & Job.ErrorMessage)
      ToastMessageShow("Error: " & Job.ErrorMessage, True)
   End If
  'Job.Release
End Sub

Adilson Jacinto said:

I tried to follow what you said, am I in the right direction?

Click to expand...

DonManfred said:

B4X:

Dim cSalonName As Int = 5
Dim cSalonAddress As Int = 8
Dim cSalonIcon As Int = 3

For i = 0 To Lsalon.RowCount - 1
        Lsalon.Position = i
    salonName = Lsalon.GetString(cSalonName)
    salonAddress = Lsalon.GetString(cSalonAddress)
        job3.Tag = Lsalon.GetString(cSalonIcon)   

dim job3 as httpjob
Job3.Initialize("Job3", Me)
job3.Download("http://67.205.112.152/~iqueue/SalonAppIcons/" & Lsalon.GetString(cSalonIcon))
      Next

I showed this earlier. NOTE that you are starting 100 jobs at once if your database give 100 results...

I showed a link where you should have looked in to get inspiration on how to start one job after the other. See here (again).

Click to expand...

  For i = 0 To Lsalon.RowCount - 1
            Lsalon.Position = i
            joblist.Add(Lsalon.GetString(cSalonIcon))
            salonName = Lsalon.GetString(cSalonName)
            salonAddress = Lsalon.GetString(cSalonAddress)
            ' Now we get the first item in this list and start download with ftp
            ExecuteRemoteQuery(joblist.Get(i),salonName)
      Next

Sub ExecuteRemoteQuery(Query As String, JobName As String)
    Dim job As HttpJob
    job.Initialize(JobName, Me)
    job.download("http://67.205.112.152/~iqueue/SalonAppIcons/" & Query)
End Sub

Sub JobDone(Job As HttpJob)
    ProgressDialogHide
    ' Delete the topmost job in ftpjobs
    If joblist.Size > 0 Then
        joblist.RemoveAt(0)
    End If

    If Job.Success Then
        Dim res As String
        res = Job.GetString
       
        Dim resmap As Map
        resmap.Initialize
        resmap.Put("Job",Job)
        resmap.Put("Success",Job.Success)
        resmap.Put("Result",Job.GetString)
        jobresults.Add(resmap)
        salon_listView.AddTwoLinesAndBitmap(Job.JobName, "here I need the address" , Job.GetBitmap)
        salon_listView.SetSelection(salon_listView.Size-1)   

    Else
        Dim resmap As Map
        resmap.Initialize
        resmap.Put("Job",Job)
        resmap.Put("Success",Job.Success)
        resmap.Put("Exception","Error: " & Job.ErrorMessage)
        jobresults.Add(resmap)
        salon_listView.AddTwoLines(Job.JobName, Job.ErrorMessage)
        salon_listView.SetSelection(salon_listView.Size-1)   
        'ToastMessageShow("Error: " & Job.ErrorMessage, True)
    End If
    Job.Release
End Sub

Adilson Jacinto said:

I have managed to successfully display the images with the appropriate name of the "salon", since I am using AddTwoLinesAndBitmap, for my second one I want to pass the address as second line, how do I do it so? please see image attached and code.

Click to expand...

salon_listView.AddTwoLinesAndBitmap("Line 1 text", "line 2 text" , Job.GetBitmap)

DonManfred said:

maybe i did not understand correctly what you want to archieve

B4X:

salon_listView.AddTwoLinesAndBitmap("Line 1 text", "line 2 text" , Job.GetBitmap)

Click to expand...

DonManfred said:

maybe

B4X:

Sub ExecuteRemoteQuery(Query As String, JobName As String, url as string)
    Dim job As HttpJob
    job.Initialize(JobName, Me)
    job.tag = url
    job.download("http://67.205.112.152/~iqueue/SalonAppIcons/" & Query)
End Sub

and then you can get the url from Job.Tag in jobdone...

Click to expand...

Adilson Jacinto said:

Thanks a lot for everything

Click to expand...