B4J Question Write image data from buffer to a bitmap

Public Sub ImageToBytes(Image As B4XBitmap) As Byte()
   Dim out As OutputStream
   out.InitializeToBytesArray(0)
   Image.WriteToStream(out, 100, "JPEG")
   out.Close
   Return out.ToBytesArray
End Sub

Public Sub BytesToImage(bytes() As Byte) As B4XBitmap
   Dim In As InputStream
   In.InitializeFromBytesArray(bytes, 0, bytes.Length)
#if B4A or B4i
   Dim bmp As Bitmap
   bmp.Initialize2(In)
#else
   Dim bmp As Image
   bmp.Initialize2(In)
#end if
   Return bmp
End Sub

Dim In As InputStream
In.InitializeFromBytesArray(bytebuffer, 0, bytebuffer.RunMethod("capacity",Null))
Dim bmp As Image
bmp.Initialize2(In)
ivMain.SetImage(bmp)

ByteBuffer bb =..

byte[] b = new byte[bb.remaining()]
bb.get(b, 0, b.length);

If bytebuffer.RunMethod("hasArray",null) Then
     Dim bytearray() As Byte = bytebuffer.RunMethod("array",Null)
...' use bytearray for image etc
End If

bytebuffer.RunMethod("hasArray",null)

For i = 0 To bytebuffer.RunMethod("capacity",Null) - 1 Step 4
      Log((i/4) & " | " & bytebuffer.RunMethod("get", Array(i)) & " | " & bytebuffer.RunMethod("get", Array(i+1)) & " | " & bytebuffer.RunMethod("get", Array(i+2)) & " | " & bytebuffer.RunMethod("get", Array(i+3)))
Next

Sub Process_Globals

    Private bytebuffer, WriteableImage As JavaObject
    Private PixelFormat As JavaObject
    
End Sub

Sub btnRecvFrames_Click

    ' Initialise bytebuffer and load video frame data from NDI
    bytebuffer.InitializeStatic("java.nio.ByteBuffer")
    bytebuffer = bytebuffer.RunMethod("allocateDirect",Array(videoFrame.XResolution * videoFrame.YResolution * 4))
    bytebuffer = videoFrame.Data

    ' Create byte array and iteratively load data read from bytebuffer
    Dim bytearray(bytebuffer.RunMethod("capacity",Null)) As Byte
    For i = 0 To bytebuffer.RunMethod("capacity",Null) - 1
        bytearray(i) = bytebuffer.RunMethod("get", Null)
    Next

    ' Code from BitmapCreator to convert the bytes array (buffer) to a bitmap
    If WriteableImage.IsInitialized = False Then
        WriteableImage.InitializeNewInstance("javafx.scene.image.WritableImage", Array(videoFrame.XResolution, videoFrame.YResolution))
    End If
    Dim writer As JavaObject = WriteableImage.RunMethod("getPixelWriter", Null)
    If PixelFormat.IsInitialized = False Then
        PixelFormat.InitializeStatic("javafx.scene.image.PixelFormat")
    End If
    writer.RunMethod("setPixels", Array(0, 0, videoFrame.XResolution, videoFrame.YResolution, PixelFormat.RunMethod("getByteBgraPreInstance", Null), bytearray, 0, videoFrame.XResolution * 4))
    ivMain.SetImage(WriteableImage)

    ' Allow UI to update with image
    Sleep(0)                   

End Sub