Differenze tra le versioni di "Assegnare a una Struttura i valori contenuti in un'area di memoria creata con la funzione Alloc()"
Da Gambas-it.org - Wikipedia.
Riga 47: | Riga 47: | ||
<FONT Color=gray>' ''In questo caso il Metodo "Object.Address()" ritorna il "Puntatore di un Puntatore", pertanto è necessario innanzitutto dereferenziare tale tipo di dato.'' | <FONT Color=gray>' ''In questo caso il Metodo "Object.Address()" ritorna il "Puntatore di un Puntatore", pertanto è necessario innanzitutto dereferenziare tale tipo di dato.'' | ||
− | ' Come è noto, i dati dell'area di memoria della "Stuttura" sono contenuti a partire dal 25° (indice 24) byte.''</font> | + | ' Come è noto, i dati dell'area di memoria della "Stuttura" sono contenuti a partire dal 25° (indice 24) byte. Ciò si spiega con il fatto che il Metodo "Object.Address()" restituisce l'indirizzo di un Oggetto Gambas (in tal caso una Struttura) in memoria, non l'indirizzo dei dati a cui fa riferimento. ''</font> |
Print Byte@(Pointer@(Object.Address(stt) + 24)) | Print Byte@(Pointer@(Object.Address(stt) + 24)) | ||
Print Short@(Pointer@(Object.Address(stt) + 24) + SizeOf(gb.Short)) | Print Short@(Pointer@(Object.Address(stt) + 24) + SizeOf(gb.Short)) | ||
Print Integer@(Pointer@(Object.Address(stt) + 24) + SizeOf(gb.Integer)) | Print Integer@(Pointer@(Object.Address(stt) + 24) + SizeOf(gb.Integer)) |
Versione delle 07:36, 27 mar 2023
In un'area di memoria riservata, creata con la funzione "Alloc()" ed avente le medesime dimensioni della Struttura, vengono impostati mediante i Memory Stream i valori da passare ad uno o più membri di quella Struttura. Successivamente si assegna tale area di memoria alla Struttura.
Mostriamo dunque un esempio:
Public Struct STRUTTURA b As Byte s As Short i As Integer End Struct Public Sub Main() Dim stru As New STRUTTURA Dim p As Pointer Dim st As Stream Dim b As Byte ' Riserviamo un'area di memoria riservata avente una dimensione pari a quella della Struttura: p = Alloc(Object.SizeOf(stru), 1) ' Otteniamo dal Puntatore uno "Stream" in scrittura: st = Memory p For Write ' Scriviamo dei valori nell'area riservata di memoria nel rispetto della disposizione dei byte all'interno dell'analoga area di memoria rappresentata dalla "Struttura", nonché della norma dell'Allineamento dei suoi membri: Write #st, &11 As Byte Write #st, 0 As Byte ' Si rispetta l'Allineamento dei membri Write #st, &2222 As Short Write #st, &4444444444 As Integer st.Close ' Assegnamo l'area riservata di memoria alla "Struttura": stru = p ' Verifichiamo i valori ora presenti nei tre membri della "Struttura": With stru Print .b, Null, Hex(.b, 2) Print .s, Null, Hex(.s, 4) Print .i, Hex(.i, 8) End With Free(p) End
Se si vogliono leggere i valori, presenti nei membri della Struttura, utilizzando l'indirizzo di memoria dell'Oggetto Struttura e le funzioni di dereferenziazione dei Puntatori, potremo usare questa parte di codice.
stru = p ' In questo caso il Metodo "Object.Address()" ritorna il "Puntatore di un Puntatore", pertanto è necessario innanzitutto dereferenziare tale tipo di dato. ' Come è noto, i dati dell'area di memoria della "Stuttura" sono contenuti a partire dal 25° (indice 24) byte. Ciò si spiega con il fatto che il Metodo "Object.Address()" restituisce l'indirizzo di un Oggetto Gambas (in tal caso una Struttura) in memoria, non l'indirizzo dei dati a cui fa riferimento. Print Byte@(Pointer@(Object.Address(stt) + 24)) Print Short@(Pointer@(Object.Address(stt) + 24) + SizeOf(gb.Short)) Print Integer@(Pointer@(Object.Address(stt) + 24) + SizeOf(gb.Integer))