Differenze tra le versioni di "Creare con i Memory Stream un'area di memoria simile ad una Struttura avente come membro un'altra Struttura"
Da Gambas-it.org - Wikipedia.
(Creata pagina con '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 d...') |
|||
| (9 versioni intermedie di uno stesso utente non sono mostrate) | |||
| Riga 1: | Riga 1: | ||
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. | 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 | + | 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 via generale, il membro di una '' | + | 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 '' | + | 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 Struttura_Innesto | + | Public Struct <FONT Color=#B22222>Struttura_Innesto</font> <FONT Color=gray>' ''Struttura secondaria che è richiamata (rappresentata) da almeno un membro di un'altra Struttura (principale)''</font> |
b As Byte | b As Byte | ||
sh As Short | sh As Short | ||
| Riga 12: | Riga 12: | ||
End Struct | End Struct | ||
| − | Public Struct STRUTTURA_INNESTATA | + | Public Struct <FONT Color=blue>STRUTTURA_INNESTATA</font> <FONT Color=gray>' ''Struttura principale che contiene almeno un membro che è un'altra Struttura''</font> |
b As Byte | b As Byte | ||
sh As Short | sh As Short | ||
i As Integer | i As Integer | ||
| − | + | subStru As Struct <FONT Color=#B22222>Struttura_Innesto</font> | |
ii As Integer | ii As Integer | ||
End Struct | End Struct | ||
| − | Tale Struttura ''innestata'', compresa quella ''innesto'', verrà con i ''Memory Stream'' così sviluppata: | + | Tale Struttura ''innestata'', compresa quella ''innesto'', verrà con i ''[[Definizione_ed_uso_dei_Memory_Stream|Memory Stream]]'' così sviluppata: |
| − | + | Public Sub Main() | |
| − | + | Dim <FONT Color=#6495ed>struttura</font>, <FONT Color=red>substruttura</font>, legge_Pointer As Pointer <FONT Color=gray>' ''«</font><FONT Color=#6495ed>struttura</font><FONT Color=gray>» rappresenta la "Struttura-Innestata", mentre «</font><FONT Color=red>substruttura</font><FONT Color=gray>» rappresenta la "Struttura-Innesto"''</font> | |
| − | + | 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" | + | <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> |
| − | + | <FONT Color=#6495ed>struttura</font> = Alloc(SizeOf(gb.Byte), 24) | |
| − | struttura = Alloc( | + | <FONT Color=red>substruttura</font> = Alloc(SizeOf(gb.Byte), 8) |
| − | substruttura = Alloc(8) | ||
| − | <FONT Color=gray>' '''''Scriviamo dei valori all'interno dell'area di memoria riservata della "Struttura" principale, quella "innestata", | + | <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> | ' ''Cominciamo con l'assegnare dei valori alla sub-Struttura, ossia l'<I>innesto</i>:''</font> | ||
| − | subs = Memory substruttura For Write | + | subs = Memory <FONT Color=red>substruttura</font> For Write |
Write #subs, 44 As Byte | Write #subs, 44 As Byte | ||
Seek #subs, 2 | Seek #subs, 2 | ||
| Riga 46: | Riga 44: | ||
subs.Close | subs.Close | ||
| − | st = Memory struttura For Read Write | + | st = Memory <FONT Color=#6495ed>struttura</font> For Read Write |
<FONT Color=gray>' ''Scriviamo i dati nella "Struttura" principale, quella "innestata":''</font> | <FONT Color=gray>' ''Scriviamo i dati nella "Struttura" principale, quella "innestata":''</font> | ||
| Riga 54: | Riga 52: | ||
Write #st, 99999 As Integer | Write #st, 99999 As Integer | ||
<FONT Color=gray>' ''Ora creiamo il riferimento alla Struttura "innesto", scrivendo l'indirizzo di memoria:''</font> | <FONT Color=gray>' ''Ora creiamo il riferimento alla Struttura "innesto", scrivendo l'indirizzo di memoria:''</font> | ||
| − | Write #st, substruttura As Pointer | + | Write #st, <FONT Color=red>substruttura</font> As Pointer |
<FONT Color=gray>' ''Poiché il puntatore occupa 8 byte, ci spostiamo al byte n. 16 (ossia il 17°):''</font> | <FONT Color=gray>' ''Poiché il puntatore occupa 8 byte, ci spostiamo al byte n. 16 (ossia il 17°):''</font> | ||
Seek #st, 16 | Seek #st, 16 | ||
| Riga 88: | Riga 86: | ||
st.Close | st.Close | ||
| − | Free(substruttura) | + | Free(<FONT Color=red>substruttura</font>) |
| − | Free(struttura) | + | Free(<FONT Color=#6495ed>struttura</font>) |
| − | + | End | |
Versione attuale delle 12:54, 13 nov 2024
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 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 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 Struttura_Innesto ' Struttura secondaria che è richiamata (rappresentata) da almeno un membro di un'altra Struttura (principale) b As Byte sh As Short i As Integer End Struct Public Struct STRUTTURA_INNESTATA ' Struttura principale che contiene almeno un membro che è un'altra Struttura b As Byte sh As Short i As Integer subStru As Struct Struttura_Innesto ii As Integer End Struct
Tale Struttura innestata, compresa quella innesto, verrà con i Memory Stream così sviluppata:
Public Sub Main()
Dim struttura, substruttura, legge_Pointer As Pointer ' «struttura» rappresenta la "Struttura-Innestata", mentre «substruttura» rappresenta la "Struttura-Innesto"
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
' 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":
struttura = Alloc(SizeOf(gb.Byte), 24)
substruttura = Alloc(SizeOf(gb.Byte), 8)
' 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'innesto:
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
' Scriviamo i dati nella "Struttura" principale, quella "innestata":
Write #st, 99 As Byte
Seek #st, 2
Write #st, 999 As Short
Write #st, 99999 As Integer
' Ora creiamo il riferimento alla Struttura "innesto", scrivendo l'indirizzo di memoria:
Write #st, substruttura As Pointer
' Poiché il puntatore occupa 8 byte, ci spostiamo al byte n. 16 (ossia il 17°):
Seek #st, 16
Write #st, 999999 As Integer
' Come verifica del nostro esperimento, leggiamo i dati in base al tipo che è stato assegnato:
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
' Ora "trasferiamo" la nostra lettura nell'area di memoria della sub-Struttura "innesto", acquisendo innanzitutto il suo indirizzo di memoria:
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
' 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°):
Seek #st, 16
Read #st, legge_Integer
Print "struttura: "; legge_Integer
st.Close
Free(substruttura)
Free(struttura)
End
