B4J Question IP-camera reading frames

Sub timer1_tick
timer1.Enabled=False
    Dim Rect1 As JavaObject
    Rect1.InitializeNewInstance("java.awt.Rectangle",Array(0,0,1920,1080))  'you can give only the rectangle you want !

    Dim Jo As JavaObject = Me
    Dim bbi() As Byte
    bbi=Jo.RunMethod("capturess",Array(Rect1))
timer1.Enabled=true
end sub

#if java

import java.awt.AWTException;
import java.awt.Dimension;
import java.awt.Rectangle;
import java.awt.Robot;
import java.awt.Toolkit;
import java.awt.image.BufferedImage;
import java.io.File;
import java.io.IOException;
import java.util.Objects;
import java.io.*;
import javax.imageio.ImageIO;
import org.apache.commons.codec.binary.Base64;
import com.github.zakgof:webp4j:0.0.2;

   public static byte[] capturess(final Rectangle rect) throws AWTException,
         IOException {
    Robot robot = new Robot();
    BufferedImage screenFullImage = robot.createScreenCapture(rect);
    ByteArrayOutputStream baos = new ByteArrayOutputStream();
      ImageIO.write(screenFullImage, "jpg", baos);
      byte[] bytes = baos.toByteArray();
    //String bytesBase64 = Base64.encodeBase64String(bytes);
    return bytes;
   }

    // convert BufferedImage to byte[]
    public static byte[] toByteArray(BufferedImage bi, String format)
        throws IOException {

        ByteArrayOutputStream baos = new ByteArrayOutputStream();
        ImageIO.write(bi, format, baos);
        byte[] bytes = baos.toByteArray();
        return bytes;

    }

#End If

Sub Process_Globals

    Dim mCore As OCVCore    'must be first declared !
    Dim mImgProc As OCVImgproc        ' Image processing class
    Dim mVideoCapture As OCVVideoCapture
    Dim mHighGui As OCVHighGui
    Dim OCV As OCVHelper
    Dim imcodecs As OCVImgcodecs
    Dim vio As OCVVideoio
    Dim vcMat As OCVMat    'current frame grabbed
    Public doProcessStream, isProcessingStream As Boolean
'-------------------------------------------------------------------
End Sub


Sub processStream(streamPath As String)
    If streamPath = "" Then
        mVideoCapture.Initialize2(0)    'default web-cam
    Else
        mVideoCapture.Initialize1(streamPath)    ' -1: capture from video file or URL
    End If
 
    If mVideoCapture.isOpened Then
        others.AddToLog("Frame size: " & mVideoCapture.get(vio.CAP_PROP_FRAME_WIDTH) & " x " & mVideoCapture.get(vio.CAP_PROP_FRAME_HEIGHT))
    Else
        others.AddToLog("Video stream capture trouble...")
        Sleep(0)
    End If
 
    doProcessStream = True
    mVideoCapture.set(vio.CV_CAP_PROP_BUFFERSIZE, 3) 'small frame buffer
 
    Do While doProcessStream
        Captured = False    'reset
        isProcessingStream = True
            For i = 0 To 3
                mVideoCapture.grab    'clear the buffer, skip 3 frames
            Next
            Captured = mVideoCapture.retrieve1(vcMat)    ' get the latest fresh frame only

        If Captured Then
            Dim img As Image = OpenCVutils.MatToBitmap(vcMat)
            others.Save_Picture_JPG(GrabbingFolder, GrabbingFile, img)
            others.AddToLog("Saved")
            Sleep(0)
        Else
            Log("Capture error: " & streamPath)
            isProcessingStream = False
            doProcessStream = False    'interrupt processing
            mVideoCapture.release
            Run_NN    'restart
            Return
        End If
    Loop
 
    mVideoCapture.release
    isProcessingStream = False
    Log("CAM released")
End Sub

Sub Run_NN
    doProcessStream = False    'interrupt processing
    CallSub2(Me, "processStream", SourceURL)
End Sub