Gambas Documentation
Como se hace...
Compilación e instalación
Componentes
Controls pictures
Descripciones del Lenguaje
Developer Documentation
Documentacion y Recetas
Documentación del Entorno de Desarrollo
Fragmentos de código
Glosario
Índice del Lenguaje
Abs
Access
ACos
ACosh
Alloc
AND
Ang
APPEND
Array
AS
Asc
Asignación
ASin
ASinh
ATan
ATan2
ATanh
BChg
BClr
BEGINS
Bin$
BREAK
BSet
BTst
BYREF
CASE
CATCH
CBool
Cbr
CByte
CDate
CFloat
Choose
Chr$
CInt
CLASS
CLong
CLOSE
Comp
CONST
Constantes del Lenguaje
CONTINUE
Conv$
COPY
Cos
Cosh
CREATE
CREATE STATIC
CShort
CSng
CStr
Date
DateAdd
DateDiff
Day
DConv$
DEBUG
DEC
Declaracion de Arreglos
Declaración de Constantes
Declaración de Eventos
Declaración de Funciones Externas
Declaración de Métodos
Declaración de Propiedades
Declaración de Variables
Declaración de Variables Locales
DEFAULT
Deg
DFree
DIM
Dir
DIV
DO
ELSE
END
ENDIF
ENDS
END SELECT
END WITH
ENUM
Enumeration declaration
Eof
ERROR
Etiquetas
EVENT
EXEC
Exp
Exp2
Exp10
Expm
EXPORT
Expresión Constante
EXTERN
FALSE
FINALLY
FLUSH
FOR
FOR EACH
Format$
Frac
Free
FUNCTION
GOTO
Hex$
Hour
Html$
Hyp
IF
IN
INC
INPUT
INPUT FROM
InStr
Int
IsAscii
IsBlank
IsBoolean
IsByte
IsDate
IsDigit
IsDir
IsFloat
IsHexa
IsInteger
IsLCase
IsLetter
IsLong
IsNull
IsNumber
IsObject
IsPunct
IsShort
IsSingle
IsSpace
IsString
IsUCase
KILL
LAST
LCase$
Left$
Len
LIBRARY
LIKE
LINE INPUT
LINK
LOCK
Lof
Log
Log2
Log10
Logp
LOOP
LTrim$
Max
ME
Métodos especiales
_unknown
Mid$
Min
Minute
MKDIR
MOD
Month
MOVE
New
NEXT
NOT
Now
NULL
OPEN
Operadores Aritméticos
Operadores de Asignación
Operadores de Cadena
Operadores Lógicos
OPTIONAL
OR
OUTPUT
OUTPUT TO
Pi
PRINT
PRIVATE
PROCEDURE
PROPERTY
PUBLIC
QUIT
Quote$
Rad
RAISE
Randomize
READ[../../def/stream] _\Stream_
Realloc
REPEAT
Replace$
RETURN
Right$
RInStr
RMDIR
Rnd
Rol
Ror
Round
RTrim$
SConv$
Second
Seek
SELECT
Sgn
Shell$
Shl
Shr
Sin
Sinh
SLEEP
Space$
Split
Sqr
Stat
STATIC
STEP
STOP
STOP EVENT
Str$
String$
StrPtr
SUB
Subst$
SUPER
SWAP
Tan
Tanh
Temp$
THEN
Time
Timer
Tipos de Datos
TO
Trim$
TRUE
TRY
TypeOf
UCase$
UNLOCK
UNTIL
Val
WAIT
WATCH
Week
WeekDay
WEND
WHILE
WITH
WRITE
XOR
Year
LÉEME
Licencia del Wiki
Manual del Wiki
Mensajes de Error
Pendiente de traducción
Registrarse
Repositorio de Aplicaciones
Tutoriales
Últimos cambios

_read

Public Sub _read ( Stream As Stream )

The _read method is called by READ instruction to unserialize an object.

The READ instruction will first instanciate the object, and then call the _read method on it.

This will work only if the _new constructor can be called with no argument.

The method takes the target stream as argument, and must read the stream to initialize the newly created object.

This method returns nothing.

Examples


Dim Item1 As New MyClass
Item1.abc = 123
Item1.def = "456"
Print "In:  " & Item1.abc & "-" & Item1.def

Dim f1 As File
f1 = Open "~/item.bin" For Write Create
Write #f1, Item1 As Object 'MyClass
Close f1

Shell "hexdump -C ~/item.bin"

Dim f2 As File
f2 = Open "~/item.bin" For Read
Dim Item2 As MyClass = Read #f2 As MyClass
Close f2

Print "Out: " & Item2.abc & "-" & Item2.def

Class MyClass
  Public abc As Integer
  Public def As String
  Public Sub _read(As Stream)
    abc = Read #As Integer
    def = Read #As String
  End
  Public Sub _write(As Stream)
    Write #f, abc As Integer
    Write #f, def As String
  End
End Class
00000000  6f 07 4d 79 43 6c 61 73  73 7b 00 00 00 03 34 35  |o.MyClass{....45|
00000010  36                                                |6|
00000011
In:  123-456
Out: 123-456

See also