Getting Object size?

[corwin42]

I use the following sub to clone objects of user defined types.

Sub CloneObject(source As Object) As Object
   Dim raf As RandomAccessFile
   Dim buf(1024) As Byte
   Dim dest As Object
   
   raf.Initialize3(buf, False)
   raf.WriteObject( source, False, 0)
   dest = raf.ReadObject(0)
   
   Return dest
End Sub

Is there any chance to get the size of the object so that the buffer can properly sized?

 

[Erel]

Yes. Check raf.CurrentPosition after reading the object. Note that if your object includes any non-primitive field then its size may not be constant.

 

[Roberto P.]

how do I determine the size of the object in order to send?

Sub SendObject (Obj As Object, Out As OutputStream)
Dim raf As RandomAccessFile
Dim buffer( ? ) As Byte
raf.Initialize3(buffer, False)
raf.WriteObject(Obj, True, 0)
Out.WriteBytes(buffer, 0, raf.CurrentPosition)
End Sub

thanks

 

[Erel]

This is a thread from 2011. Please start a new one instead.