Visualizza wikitesto di Creare con i Memory Stream un'area di memoria simile ad una Struttura avente come membro un'altra Struttura

Come si sa, una ''Struttura'' non è altro, in fin dei conti, che un'area riservata di memoria, avente una dimensione pari al tipo di dati al quale appartiene ciascun membro della ''Struttura'' medesima compresi gli eventuali ''allineamenti'' dei membri.

E' dunque possibile creare mediante i ''[[Definizione_ed_uso_dei_Memory_Stream|Memory Stream]]'' un'area di memoria analoga ad una Struttura. In questa pagina vederemo come realizzare una semplice Struttura ''innestata'', ossia una ''Struttura'' in cui almeno un suo membro è un'altra Struttura.

Va precisato che in Gambas, in via generale, il membro di una Struttura (''innestata''), contenente il riferimento ad un'altra Struttura (''innesto''), non contiene altro che l'indirizzo di memoria (e pertanto sarà un dato di tipo ''Puntatore'') di detta sub-Struttura ''innesto''. Bisognerà ricordare, dunque, che nell'area di memoria della "simil-Struttura", che andiamo a costruire con i ''[[Definizione_ed_uso_dei_Memory_Stream|Memory Stream]]'', ove inserire il riferimento alla sub-Struttura (cioè della Struttura ''innesto'' che è membro della Struttura principale ''innestata''), dovremo scrivere l'indirizzo di memoria di questa sub-Struttura ''innesto''.

Dunque, come esempio, l'obiettivo è quello di costruire una Struttura (''innestata''), comprensiva di sub-Struttura "''innesto''", come quella che di seguito avremmo in Gambas:
 Public Struct <FONT Color=#B22222>Struttura_Innesto</font>
   b As Byte
   sh As Short
   i As Integer
 End Struct
 
 Public Struct <FONT Color=blue>STRUTTURA_INNESTATA</font>
   b As Byte
   sh As Short
   i As Integer
   subStru As Struct <FONT Color=#B22222>Struttura_Innesto</font>
   ii As Integer
 End Struct


Tale Struttura ''innestata'', compresa quella ''innesto'', verrà con i ''[[Definizione_ed_uso_dei_Memory_Stream|Memory Stream]]'' così sviluppata:
 '''Public''' Sub Main()
 
   Dim struttura, substruttura, legge_Pointer As Pointer
   Dim st, subs As Stream
   Dim legge_Byte, sub_b As Byte
   Dim legge_Short, sub_sh As Short
   Dim legge_Integer, sub_i As Integer
 
 <FONT Color=gray>' ''Allochiamo la necessaria memoria coerente con la somma delle dimensioni dei vari dati componenti le due "Strutture" anche tenuto conto degli eventuali "allineamenti dei dati":''</font>
   struttura = Alloc(SizeOf(gb.Byte), 24)
   substruttura = Alloc(SizeOf(gb.Byte), 8)
 
 <FONT Color=gray>' '''''Scriviamo dei valori all'interno dell'area di memoria riservata della "Struttura" principale, quella "innestata", ovviamente sulla base della quantità di memoria occupata dai tipi di dati previsti e degli eventuali "allineamenti dei dati".'''''
 
 ' ''Cominciamo con l'assegnare dei valori alla sub-Struttura, ossia l'<I>innesto</i>:''</font>
   subs = Memory substruttura For Write
     Write #subs, 44 As Byte
     Seek #subs, 2
     Write #subs, 444 As Short
     Write #subs, 44444 As Integer
   subs.Close
    
   st = Memory struttura For Read Write
 
 <FONT Color=gray>' ''Scriviamo i dati nella "Struttura" principale, quella "innestata":''</font>
   Write #st, 99 As Byte
   Seek #st, 2
   Write #st, 999 As Short
   Write #st, 99999 As Integer
 <FONT Color=gray>' ''Ora creiamo il riferimento alla Struttura "innesto", scrivendo l'indirizzo di memoria:''</font>
   Write #st, substruttura As Pointer
 <FONT Color=gray>' ''Poiché il puntatore occupa 8 byte, ci spostiamo al byte n. 16 (ossia il 17°):''</font>
   Seek #st, 16
   Write #st, 999999 As Integer
 
  
 <FONT Color=gray>' ''Come verifica del nostro esperimento, leggiamo i dati in base al tipo che è stato assegnato:''</font>
   Seek #st, 0
   Read #st, legge_Byte
   Print "struttura: "; legge_Byte
   Seek #st, 2
   Read #st, legge_Short
   Print "struttura: "; legge_Short
   Read #st, legge_Integer
   Print "struttura: "; legge_Integer
 <FONT Color=gray>' ''Ora "trasferiamo" la nostra lettura nell'area di memoria della sub-Struttura "innesto", acquisendo innanzitutto il suo indirizzo di memoria:''</font>
   Read #st, legge_Pointer
     subs = Memory legge_Pointer For Read
       Read #subs, sub_b
       Print "  substruttura: "; sub_b
       Seek #subs, 2
       Read #subs, sub_sh
       Print "  substruttura: "; sub_sh
       Read #subs, sub_i
       Print "  substruttura: "; sub_i
     subs.Close
 <FONT Color=gray>' ''Torniamo a leggere i dati (l'ultimo) nella Struttura principale (quella "innestata").''
 ' ''Poiché il puntatore occupa 8 byte, ci spostiamo al byte n. 16 (ossia il 17°):''</font>
   Seek #st, 16
   Read #st, legge_Integer
   Print "struttura: "; legge_Integer
    
   st.Close
    
   Free(substruttura)
   Free(struttura)
 
 '''End'''