Spanish [SOLUCIONADO]B4A-Cargar imagen desde url

Sub Process_Globals
   
End Sub

Sub Globals
End Sub

Sub Activity_Create(FirstTime As Boolean)
   For Each s As String In Array As String("save.jpg", "Button-Add-icon.png", "ruta.jpg", _
      "excel.png")
      Dim job As HttpJob
      job.Initialize(s, Me)
      job.Download("http://www..mx/uploads/" & s)
   Next
End Sub

Sub JobDone (Job As HttpJob)
   Log("JobName = " & Job.JobName &" -Image Download Name = "& ", Success = " & Job.Success)
   If Job.Success = True Then
      'is this really needed ???
       Dim out As OutputStream
       out = File.OpenOutput(File.DirDefaultExternal, Job.JobName ,False )
       File.Copy2(Job.GetInputStream, out)
       out.Close
       Activity.SetBackgroundImage(Job.GetBitmap)
   Else
      Log("Error: " & Job.ErrorMessage)
      ToastMessageShow("Error: " & Job.ErrorMessage, True)
   End If
   Job.Release
End Sub

Sub imagenesCargadas
'Con lo siguiente consultas la BD y guardas en la lista lstImagenesIconos el nombre de todas las imagenes de los comercios
lstImagenesIconos.Initialize
Dim UnaImagen As String
c=s.ExecQuery("SELECT imagen FROM comercios")
If c.RowCount>0 Then
    For i=0 To c.RowCount-1
        c.Position=i
        UnaImagen=c.GetString("imagen")
        lstImagenesIconos.Add(UnaImagen)
    Next
    End If
End Sub

Sub imagenesPendientes
    Dim UnaImagen As String
    Dim UnaImagenProvisoria As String
    lstImagenesPendientesProvisorias.Initialize
    lstImagenesPendientes.Initialize
'Con el siguiente For-next recorres la lista de imágenes y compruebas cuáles de ellas las tienes ya descargadas y creas una nueva lista con las que te falten
For Numero = 0 To lstImagenesIconos.size - 1
     UnaImagen = lstImagenesIconos.Get(Numero) 'Recupera de la Lista de imágenes el nombre de cada una
     Log(UnaImagen&" que muestra?")
     'Comprueba si existe la imagen del botón y en caso contrario manda la guarda en la lista de imágenes faltantes

    'Comprueba si el archivo existe
     If Not(File.Exists(File.DirAssets,UnaImagen)) Then
         Log(UnaImagen & " - No existe")
         lstImagenesPendientesProvisorias.Add(UnaImagen)
     End If
Next

For i = 0 To lstImagenesPendientesProvisorias.Size - 1
    UnaImagenProvisoria = lstImagenesPendientesProvisorias.Get(i)
    If Not (File.Exists(File.DirInternal,UnaImagenProvisoria)) Then
        lstImagenesPendientes.Add(UnaImagenProvisoria)
    End If
Next
End Sub

Case "GetComercios"
                Dim ListaDatos As List
                ListaDatos = parser.NextArray 'returns a list with maps
                If ListaDatos.Size == 0 Then
                   'Algun mensaje.
                Else
                  s.BeginTransaction
                  s.ExecNonQuery("DELETE FROM comercios")
                  For i = 0 To ListaDatos.Size - 1
                       Dim Datos As Map
                       Datos = ListaDatos.Get(i)
                       s.ExecNonQuery2("INSERT INTO comercios VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(Datos.Get("id_comercio"), Datos.Get("id_rubro"), Datos.Get("comercio"), Datos.Get("imagen"), Datos.Get("descuento"), Datos.Get("direccion"), Datos.Get("latitud"), Datos.Get("longitud"), Datos.Get("telefono"), Datos.Get("correo_electronico"), Datos.Get("web"), Datos.Get("orden_listado"), Datos.Get("cantidad_ingresos")))
                  Next
                          'ToastMessageShow("Comercios actualizados", False)
                          imagenesCargadas
                          imagenesPendientes
                          descargarImagenes
                          s.TransactionSuccessful
                          s.EndTransaction
                End If
        End Select

Sub descargarImagenes
    hilo.Initialize("hilo",Me)
    For Each imagenItem In lstImagenesPendientes
        hilo.Download("http://centrocomercialva.com.ar/imagenes/" & imagenItem)
        Log(imagenItem & " - Descargada")
        Dim out As OutputStream =File.OpenOutput(File.DirInternal, imagenItem, False)
        out.Close '<------ very important
    Next
End Sub

Sub listarComercios
    c=s.ExecQuery("SELECT id_comercio,descuento,comercio,direccion,imagen FROM comercios WHERE comercios.id_rubro='" & Main.rubroElegido & "'")
    ListView1.Clear
    If c.RowCount>0 Then
        For i=0 To c.RowCount-1
            c.Position=i
            imagen=c.GetString("imagen")
            If( File.Exists(File.DirAssets,imagen)) Then
                ListView1.AddTwoLinesAndBitmap2(c.GetString("comercio"), c.GetString("descuento"),LoadBitmap(File.DirAssets,c.GetString("imagen")),c.GetString("id_comercio"))
            Else
                Log(imagen)
                ListView1.AddTwoLinesAndBitmap2(c.GetString("comercio"), c.GetString("descuento"),LoadBitmap(File.DirInternal,imagen),c.GetString("id_comercio"))
            End If
        Next
    End If
End Sub