B4A Library [B4X][XUI] ImageSlider

You are really GREAT

 

Very nice, but can we use it with images remotely ?

 

"You can either download the images in the GetImage event "
Pls, can you write a little example

 

Great example as usual

 

Here in Android (B4A) / iOS ( B4i). These are images read from a remote server. They run very well, in this case the code change is = 0
Great B4X

 

Hi @Erel,

I use this code for in B4A on Main Activity,
But why when open a new activity, sometimes closed and replaced with main activity again?
Is it because waiting to finish download its image, after that can open new activity?

And how the code if in collaboration with this (Download With Service)? I don't understand collaborating

Code:

Sub TimerSlider_Tick
    ImageSlider1.NextImage
End Sub

Sub ImageSlider1_GetImage (Index As Int) As ResumableSub
    Dim j As HttpJob
    j.Initialize("", Me)
    j.Download(Urls.Get(Index))
    Log("Downloading: " & Urls.Get(Index))
    Wait For (j) JobDone(j As HttpJob)
    Dim x As B4XBitmap
    If j.Success Then
        x = j.GetBitmap
        x = x.Resize(ImageSlider1.WindowBase.Width, ImageSlider1.WindowBase.Height, True)
    End If
    j.Release
    Return x
End Sub

Sub TampilkanImageSlider   
    TimerSlider.Initialize("TimerSlider", 3000)
    Urls.Initialize
    Cursor = SQL.ExecQuery("SELECT NAMA_FILE FROM TB_IMAGE_SLIDER")
    For i = 0 To Cursor.RowCount - 1
        Cursor.Position = i
        If Cursor.GetString("NAMA_FILE") <> "" Then
            Urls.Add("http://" & SESSION_IP_SERVER & "/media/image_slider/" & Cursor.GetString("NAMA_FILE"))
        End If
    Next
    Cursor.Close
    ImageSlider1.NumberOfImages = Urls.Size
    TimerSlider.Enabled = True
End Sub

Download With Service

Code:

#Region  Service Attributes
    #StartAtBoot: False
#End Region

Sub Process_Globals
    Private cache As Map
    Private tasks As Map
    Private ongoingTasks As Map
End Sub

Sub Service_Create
    tasks.Initialize
    cache.Initialize
    ongoingTasks.Initialize
End Sub

Sub Service_Start (StartingIntent As Intent)

End Sub

Sub Service_Destroy

End Sub

Sub Download (ImageViewsMap As Map)
    For i = 0 To ImageViewsMap.Size - 1
        tasks.Put(ImageViewsMap.GetKeyAt(i), ImageViewsMap.GetValueAt(i))
        Dim link As String = ImageViewsMap.GetValueAt(i)
        If cache.ContainsKey(link) Then
            Dim iv As ImageView = ImageViewsMap.GetKeyAt(i)
            iv.SetBackgroundImage(cache.Get(link))
        Else If ongoingTasks.ContainsKey(link) = False Then
            ongoingTasks.Put(link, "")
            Dim j As HttpJob
            j.Initialize(link, Me)
            j.Download(link)
        End If
    Next
End Sub

Sub JobDone(Job As HttpJob)
    ongoingTasks.Remove(Job.JobName)
    If Job.Success Then
        Dim bmp As Bitmap = Job.GetBitmap
        cache.Put(Job.JobName, bmp)
        If tasks.IsInitialized Then
            For i = 0 To tasks.Size - 1
                Dim link As String = tasks.GetValueAt(i)
                If link = Job.JobName Then
                    Dim iv As ImageView = tasks.GetKeyAt(i)
                    iv.SetBackgroundImage(bmp)
                End If
            Next
        End If
    End If
    Job.Release
End Sub

Sub ActivityIsPaused
    tasks.Clear
End Sub

 

It's posible to use FillImageToView to adjust the image with imageslider?

 

There is no small example for B4A?

 

I would like to report a problem in the control slider used in B4A.
If when you open the application and you do not have access to the internet and slide your finger on the control the application falls down.
Apparently the error in the PrevImage Module and in the line CurrentIndex = (CurrentIndex - 1 + NumberOfImages) Mod NumberOfImages

Why NumberOfImages = 0

 

Is it possible to see an example of how to read from a list based on this example?
Because otherwise the images are downloading again and again and is not efficient.

 

Erel apology but I see in the Log window that they are downloaded again and again as the image attached.
This happens to me with the example you sent me in post #2

https://www.b4x.com/android/forum/t...sing-when-the-slider-is-on.95779/#post-604705

 

Wow, that was simple!
sorry for being so stupid