devi aprire uno spazio web tutto tuo (ce ne sono tanti di gratuiti) e ci copi dentro le immagini
nel programma B4A devi aggiungere la libreria HttpUtils2 e poi richiami l'immagine dallo spazio web e la mostri dove vuoi
Ok facciamo un esempio, diciamo che vuoi scaricare e visualizzare l'immagine che sta su
http://www.androidblog.it/wp-content/uploads/2014/07/71S6N9Kf5PL._SL1500_.jpg
(è un banale file JPG ma potrebbe essere anche PNG, eccetera)
crea un nuovo progetto, includi la libreria HttpUtils2 e copia questo codice:
Sub Globals
Dim img As ImageView
Dim JobbImage As HttpJob
End Sub
Sub Activity_Create(FirstTime As Boolean)
img.Initialize("")
img.Gravity = Gravity.FILL
Activity.AddView(img, 0, 0, 100%x, 100%y)
JobbImage.Initialize("JobbImage", Me)
JobbImage.Download("http://www.androidblog.it/wp-content/uploads/2014/07/71S6N9Kf5PL._SL1500_.jpg")
End Sub
Sub JobDone (Job As HttpJob)
If Job.Success = True Then
Dim bmp As Bitmap = Job.GetBitmap
Job.Release
img.Bitmap = bmp
Return
End If
End Sub
mandalo in esecuzione e vedrai che ti visualizza l'immagine
per qualsiasi cosa non capisci chiedi pure
Sergio
(....... evvvvvai con i Like
devi aprire uno spazio web tutto tuo (ce ne sono tanti di gratuiti) e ci copi dentro le immagini
nel programma B4A devi aggiungere la libreria HttpUtils2 e poi richiami l'immagine dallo spazio web e la mostri dove vuoi
Ok facciamo un esempio, diciamo che vuoi scaricare e visualizzare l'immagine che sta su
http://www.androidblog.it/wp-content/uploads/2014/07/71S6N9Kf5PL._SL1500_.jpg
(è un banale file JPG ma potrebbe essere anche PNG, eccetera)
crea un nuovo progetto, includi la libreria HttpUtils2 e copia questo codice:
Sub Globals
Dim img As ImageView
Dim JobbImage As HttpJob
End Sub
Sub Activity_Create(FirstTime As Boolean)
img.Initialize("")
img.Gravity = Gravity.FILL
Activity.AddView(img, 0, 0, 100%x, 100%y)
JobbImage.Initialize("JobbImage", Me)
JobbImage.Download("http://www.androidblog.it/wp-content/uploads/2014/07/71S6N9Kf5PL._SL1500_.jpg")
End Sub
Sub JobDone (Job As HttpJob)
If Job.Success = True Then
Dim bmp As Bitmap = Job.GetBitmap
Job.Release
img.Bitmap = bmp
Return
End If
End Sub
mandalo in esecuzione e vedrai che ti visualizza l'immagine
per qualsiasi cosa non capisci chiedi pure
Sergio
(....... evvvvvai con i Like

)
Ottima idea

però le immagini dove la salva un volta fatto il download? Volendo posso.creare un vettore di bitmap e ci carico su inizialmente 5 immagini, ad ogni livello elimino quella utilizzata e ne carico un'altra, che ne dici?