Android Question Send objects via web socket

Sub Process_Globals
   Private su As StringUtils
   Private serializator As B4XSerializator
End Sub

Public Sub ConvertObjectToString(obj As Object) As String
    Return su.EncodeBase64(serializator.ConvertObjectToBytes(obj))
End Sub

Public Sub CovertStringToObject(str As String) As Object
   Return serializator.ConvertBytesToObject(su.DecodeBase64(str))
End Sub

Sub SendObject (Obj As Object, aTag As String)
 
   raf.WriteObject(Obj, True, 0)
   Dim size As Int = raf.CurrentPosition
    ' Log("Dimensione: " & size)
   Dim data(size) As Byte
   raf.CurrentPosition = 0
   
   Do While raf.CurrentPosition < size
     raf.ReadBytes(data, raf.CurrentPosition, size - raf.CurrentPosition, raf.CurrentPosition)
   Loop

   Dim j As HttpJob
   j.Initialize("send_data", Me)
 
   j.PostBytes(link & "/Sync", data)

  
End Sub

raf.WriteObject(Obj, True, 0)
Dim size As Int = raf.CurrentPosition' 
Log("Dimensione: " & size
)Dim data(size) As Byte
 raf.CurrentPosition = 0
 Do While raf.CurrentPosition < size
 raf.ReadBytes(data, raf.CurrentPosition, size - raf.CurrentPosition, raf.CurrentPosition)
Loop

Dim data() As Byte = serializator.ConvertObjectToBytes(Obj)

'helper sub to read objects from the input stream
Public Sub ReadObject (In As InputStream) As Object
    Dim out As OutputStream
    out.InitializeToBytesArray(0)
    File.Copy2(In, out)
    Dim raf2 As RandomAccessFile
    raf2.Initialize3(out.ToBytesArray, False)
    Dim res As Object = raf2.ReadObject(0)
    raf2.Close
    Return res
End Sub

public Sub ReadObjectSerialized(Input As InputStream) As Object
 
    Dim serializator As B4XSerializator
 
    Try
     
        Dim out As OutputStream
        out.InitializeToBytesArray(0)
        File.Copy2(Input, out)
     
        Return  serializator.ConvertBytesToObject(out.ToBytesArray)
     
    Catch
        Log(LastException)
    End Try
 
 
End Sub