' Definition
Dim Obj1 As Test1
Obj1.initialize
Obj1.Field1 = "text1"
Obj1.Field2 = "text2"
Obj1.Field3 = "text3"
' Write to disc
Dim ser As B4XSerializator ' RANDOMCCESSFILE
Dim typebytes() As Byte = ser.ConvertObjectToBytes(Obj1)
File.WriteBytes(File.DirInternal,"test.obj",typebytes)
' Read from Disc
Dim bytesread() As Byte = File.ReadBytes(File.DirInternal,"test.obj")
Dim Obj1Read As Test1 = ser.ConvertBytesToObject(bytesread)
Log($"Test1.Field1 = ${Obj1Read.Field1}"$)
Log($"Test1.Field2 = ${Obj1Read.Field2}"$)
Log($"Test1.Field3 = ${Obj1Read.Field3}"$)