Android Question Snapshot with multiple images with SimpleMediaManager

[angel_]

I'm trying to capture an image loaded with multiple views loaded with SimpleMediaManager but I can't get all the images to display. I've tried adding a sleep but it doesn't work either.

Private Sub Button1_Click
    pnlSnapshot.Color = xui.Color_Cyan
   
    If pnl1.NumberOfViews > 0 Then pnl1.RemoveAllViews
    If pnl2.NumberOfViews > 0 Then pnl2.RemoveAllViews
    If pnl3.NumberOfViews > 0 Then pnl3.RemoveAllViews
    If pnl4.NumberOfViews > 0 Then pnl4.RemoveAllViews
   
    LoadImages

    Sleep(300)
   
    pnlSnapshot.SetBitmap(pnlImages.Snapshot)
End Sub

Private Sub LoadImages
    Dim ListPanels As List = Array As B4XView(pnl1, pnl2, pnl3, pnl4)
   
    For Each pnl As B4XView In ListPanels
        MediaManager.SetMediaFromFile(pnl, File.DirAssets, "img.png", "image/*", CreateMap(MediaManager.REQUEST_BACKGROUND: xui.Color_Transparent, MediaManager.REQUEST_CALLBACK: Me))
        Wait For (pnl) SMM_MediaReady (Success As Boolean, Media As SMMedia)
    Next
End Sub

 

[josejad]

Hi Angel:

Based on this sample, try this

Private Sub Button1_Click
    pnlSnapshot.Color = xui.Color_Cyan
  
    If pnl1.NumberOfViews > 0 Then pnl1.RemoveAllViews
    If pnl2.NumberOfViews > 0 Then pnl2.RemoveAllViews
    If pnl3.NumberOfViews > 0 Then pnl3.RemoveAllViews
    If pnl4.NumberOfViews > 0 Then pnl4.RemoveAllViews
  
    LoadImages
    wait for LoadImages_Complete 'Added line
    pnlSnapshot.SetBitmap(pnlImages.Snapshot)
End Sub

Private Sub LoadImages
    Dim ListPanels As List = Array As B4XView(pnl1, pnl2, pnl3, pnl4)
  
    For Each pnl As B4XView In ListPanels
        MediaManager.SetMediaFromFile(pnl, File.DirAssets, "img.png", "image/*", CreateMap(MediaManager.REQUEST_BACKGROUND: xui.Color_Transparent, MediaManager.REQUEST_CALLBACK: Me))
        Wait For (pnl) SMM_MediaReady (Success As Boolean, Media As SMMedia)
    Next
    CallSubDelayed(Me, "LoadImages_Complete") 'Added line
End Sub

 

[Erel]

First step is to properly wait for the images to be loaded.

[B4X] Resumable subs that return values (ResumableSub)

Remember that that a call to Sleep or Wait For in a resumable sub causes the code flow to return to the parent. Example: Sub Button1_Click Sum(1, 2) Log("after sum") End Sub Sub Sum(a As Int, b As Int) Sleep(100) 'this will cause the code flow to return to the parent Log(a + b) End Sub...

www.b4x.com

This is better than using CallSubDelayed.

 

[josejad]

This is better than using CallSubDelayed.

Ah, ok¡¡

Then, it should be something like:

Private Sub Button1_Click
    pnlSnapshot.Color = xui.Color_Cyan
    
    If pnl1.NumberOfViews > 0 Then pnl1.RemoveAllViews
    If pnl2.NumberOfViews > 0 Then pnl2.RemoveAllViews
    If pnl3.NumberOfViews > 0 Then pnl3.RemoveAllViews
    If pnl4.NumberOfViews > 0 Then pnl4.RemoveAllViews
    
    Wait For(LoadImages) Complete (Success As Boolean)
    
    If Success Then
        pnlSnapshot.SetBitmap(pnlImages.Snapshot)
    Else
        xui.MsgboxAsync("There was an error loading the bitmaps", "Error")
    End If
    
End Sub

Private Sub LoadImages As ResumableSub
    Dim SuccessImage As Boolean = True
    Dim ListPanels As List = Array As B4XView(pnl1, pnl2, pnl3, pnl4)
    
    For Each pnl As B4XView In ListPanels
        MediaManager.SetMediaFromFile(pnl, File.DirAssets, "img.png", "image/*", CreateMap(MediaManager.REQUEST_BACKGROUND: xui.Color_Transparent, MediaManager.REQUEST_CALLBACK: Me))
        Wait For (pnl) SMM_MediaReady (Success As Boolean, Media As SMMedia)
        SuccessImage = SuccessImage And Success
    Next
    Return SuccessImage
End Sub

 

[Erel]

Exactly!