B4J Question snapshot.writetostream halt

PaulMeuris said:

The filename contains a formatted date as in: filename_10/04/2023.jpg

B4X:

Pane2.Snapshot.WriteToStream(Out)

This code expects a "PNG" format.
Here's how i would do it:

B4X:

    xui.SetDataFolder("testenvironment42")
    Dim bmp As B4XBitmap = Pane2.Snapshot
    Dim fn As String =  "filename" & "_" & DateTime.Now & ".jpg"
    Dim Out As OutputStream
    Out = File.OpenOutput(xui.DefaultFolder, fn, False)
    bmp.WriteToStream(Out, 100, "JPEG")
    Out.Flush
    Out.Close

The Button1 on Pane1 remains clickable.

Click to expand...

Outstanding resource locks detected:
J2D Texture Pool: 9,180,566 used (14.1%), 32,440,320 target (50.0%), 64,880,640 max
10 total resources being managed
average resource age is 2.2 frames
0 resources at maximum supported age (0.0%)
1 resources marked permanent (10.0%)
1 resources have had mismatched locks (10.0%)
1 resources locked (10.0%)
4 resources contain interesting data (40.0%)
0 resources disappeared (0.0%)
Outstanding resource locks detected:
J2D Texture Pool: 9,303,446 used (14.3%), 32,440,320 target (50.0%), 64,880,640 max
13 total resources being managed
average resource age is 1.5 frames
0 resources at maximum supported age (0.0%)
1 resources marked permanent (7.7%)
4 resources have had mismatched locks (30.8%)
3 resources locked (23.1%)
4 resources contain interesting data (30.8%)
0 resources disappeared (0.0%)

teddybear said:

Which views are there on the pane2?perhaps you can remove someone to try finding the error.

Click to expand...

PaulMeuris said:

resource locks detected... resources have mismatched locks...
Now it's up to you to find those locked resources and unlock them...

Click to expand...

le_toubib said:

Is there a way to find the resource among hundreds of them?

Click to expand...

Which views are there on the pane2?

Click to expand...

PaulMeuris said:

Difficult to say without seeing the project code. There are more than 1 resource lock according to the log.

Can you answer the question from @teddybear ?
Can you make a small testproject with the panes like i did in message #3?

Click to expand...

PaulMeuris said:

So now there are 3 panes! In your first message you stated that there are 2 panes.
Show some code with the 3 panes, the timer and the snapshot subroutine and then maybe we can find a solution!

Click to expand...

Private Sub btnPrint_Click
    Timer2Counter=0
    If File.Exists(File.DirData("appname") & "\PDFs\" , "" )=False Then File.MakeDir(File.DirData("appname") , "PDFs")
    If lblDate.IsInitialized Then    lblDate.RequestFocus
    Timer2.Enabled=True
   
End Sub

Private Sub Timer2_Tick
    'upload and print
    Timer2Counter=Timer2Counter+1
    If Timer2Counter=lo.Size Then Timer2.Enabled=False
    Dim x As Int =Timer2Counter-1
    Prints(x)
   
  
End Sub

Public Sub Prints(i As Int)
    For Each n As Node In PanelsforPages(i).GetAllViewsRecursive
        If n Is TextArea Then
            Dim ta As TextArea = n
            CSSUtils.SetBackgroundColor(ta, fx.Colors.white)
            Dim Content As Node = n.As(JavaObject).RunMethod("lookup",Array(".content"))
            CSSUtils.SetBackgroundColor(Content, fx.Colors.White)
            Dim Content1 As Node = n.As(JavaObject).RunMethod("lookup",Array(".viewport"))
            CSSUtils.SetBackgroundColor(Content1, fx.Colors.White)
            CSSUtils.SetStyleProperty(ta, "-fx-control-inner-background", "white")
            CSSUtils.SetStyleProperty(ta, "-fx-focus-color", "white")
        else If n Is TextField Then
            Dim tf As TextField = n
            CSSUtils.SetBackgroundColor(tf, fx.Colors.White)
        End If
    Next
  
    '''''''''''''''''''''''''''''''''''''''''''take snapshot
    Dim tdt As String = DateTime.Date(DateTime.Now) & "_" & DateTime.Time(DateTime.now)
    tdt=tdt.Replace("-","_").Replace(":","")
    Dim fn As String =  person.Get("CivilID")& "_"  & tdt & "_" & i & ".png"
    Dim Out As OutputStream = File.OpenOutput(File.Dirdata("appname") & "\PDFs\"  , fn ,False)

    PanelsforPages(i).Snapshot.WriteToStream(Out)

    Out.Flush
    Out.Close
return null
End Sub

PaulMeuris said:

To make your code work i had to add a few things to my testproject:

B4X:

    Private Pane1 As Pane
    Private Pane2 As Pane
    Private Pane3 As Pane
    Private PanelsforPages(3) As Pane
    Private Timer2Counter As Int
    Private    Timer2 As Timer
    Private btnPrint As Button

And some initializations in B4XPage_Created:

B4X:

    Pane1.As(B4XView).BringToFront
    Timer2.Initialize("Timer2",1000)
    PanelsforPages(0) = Pane1
    PanelsforPages(1) = Pane2
    PanelsforPages(2) = Pane3

In the Timer2_Tick subroutine i used this code:

B4X:

    'upload and print
    Timer2Counter=Timer2Counter+1
    'If Timer2Counter=lo.Size Then Timer2.Enabled=False
    If Timer2Counter > 2 Then Timer2.Enabled = False
    Dim x As Int =Timer2Counter-1
    Log("Timer2Counter: " & x)
    Prints(x)

The highlighted line 3 might not stop the Timer2. What is the value of lo.Size ?
The rest of the code runs if you use a good filename (and the person object is set) :

B4X:

    'Dim fn As String =  person.Get("CivilID")& "_"  & tdt & "_" & i & ".png"
    Dim fn As String =  "CivilID_"  & DateTime.Now & "_" & i & ".png"

The ticks can be converted to datetime value using the datetime/dateutils methods.
Conclusion: is the timer stopped or does it tick endlessly?

Click to expand...

PaulMeuris said:

The code you shared so far is working fine. So the cause of the error is in some other code from your project.
Can you post your project that produces the error?
The log mentions "J2D Texture Pool:". Does this mean that you are using a special library?

Click to expand...

PaulMeuris said:

The cause of the error is in your code or in the code of a third party library or program...
My contribution ends here.

Click to expand...