Assegnare a una Struttura i valori contenuti in un'area di memoria creata con la funzione Alloc()
Da Gambas-it.org - Wikipedia.
Versione del 27 mar 2023 alle 03:48 di Vuott (Discussione | contributi)
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. 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))