Spanish [SOLUCIONADO]App con Imagenes

[Jorgelcr]

Hola,

Adjunto un ejemplo de lo que quiero hacer (Mostrar Imagenes con datos).
Actualmente tengo una tabla Mysql Empresa (Nombre, Localidad, Ruta) En el campo Ruta guardo la ruta ftp del archivo logo de la empresa. Quiero como en el ejemplo que muestro mostrar el logo de la empresa, nombre y localidad.
Hago un bucle que recorre la tabla y muestro sus datos, hasta ahí ningún problema. El problema es cuando en el bucle quiero mostrar la imagen.
He mirado varios ejemplos y no consigo hacerlo, ¿alguien puede ayudarme?

 

[bgsoft]

Hola Jorge:

Ya abriste un hilo con Mostrar imagenes url (https://www.b4x.com/android/forum/threads/mostrar-imagenes-url.73023/page-2#post-468430) , por favor, no abras otro igual que no por eso te podremos dar la respuesta, cuando pueda miraré tu código y te diré algo.


Saludos

 

[bgsoft]

Hola Jorge, resolviste el problema? es para que le añadas al título [SOLUCIONADO] o si encontraste la solución y era otra la expongas.

Gracias

Saludos

 

[Jorgelcr]

Hola,
Si que lo he conseguido, cuando pasen estos días y lo tenga un poco más desarrollado lo pondré para que podais echarle un vistazo.
Miles de gracias bgsoft y miles de liks

 

[Jorgelcr]

Hola,

Lo primero de todo miles de gracias a todos los que me habeis ayudado, en especial a bgsoft.
Os detallo el código para que le pueda ayudar a otros:

Sub Activity_Create(FirstTime As Boolean)
    Activity.Title="Imagenes"
   
  
    If FirstTime Then
        links.Initialize
        Dim pageJob As HttpJob
        pageJob.Initialize("PageJob", Me)
      
        ExecuteRemoteQuery("Select * From Empresas Order By CodigoEmpresa ASC" , "EMPRESAS")
       
    End If
    ImageViews.Initialize
    clv.Initialize(Me, "clv")
  
    Activity.AddView(clv.AsView, 0, 0, 100%x, 100%y)
End Sub
Sub ExecuteRemoteQuery(Query As String, JobName As String)
  
    job1.Initialize("Job1", Me)
    job1.PostString("http://www.miweb.com/usuarios.php", Query)
  
      
End Sub
Sub Activity_Resume
    BuildItems
End Sub

Sub Activity_Pause(UserClosed As Boolean)
    CallSub(ImageDownloader, "ActivityIsPaused")
End Sub

Sub BuildItems
    If links.Size = 0 Then Return
    clv.Clear
    Dim m As Map
    m.Initialize
    Dim imagelink As String
    For Each link As String In links
        Dim p As Panel
        p.Initialize("")
        clv.Add(p, 200dip, link)
      
        p.LoadLayout("penas")
        Label1.Text = link 'Label1 now points to the last "Label1" that was added
        'the same is true for ImageView1.
      
        imagelink="http://www.miweb.com/logos/" & "nombrelogo & ".jpg"
    
        m.Put(ImageView1, imagelink)
      
      

    Next
    CallSubDelayed2(ImageDownloader, "Download", m)
End Sub

Sub JobDone(Job As HttpJob)
    Select Job.JobName
        Case "Job1"
            If Job.Success Then
                Dim res As String
                res = Job.GetString
                'Log("Response from server: " & res)
                Dim parser As JSONParser
                parser.Initialize(res)
                COUNTRIES = parser.NextArray 'returns a list with maps  
                result.Initialize
                For i = 0 To COUNTRIES.Size - 1
                    m = COUNTRIES.Get(i)                      
                    If m.Get("logo")=Null Then
                        img="http://www.miweb.com/logos/nofoto.jpg"
                      
                        texto=m.Get("Nombre")

                    Else
                        img = "http://www.miweb.com/logos/" & m.Get("logo")
                        texto=m.Get("Nombre")

                    End If
                    links.Add(texto)
                  
                Next
                BuildItems
            End If 
    End Select
  
  
  
    Job.Release
End Sub

Admito mejoras