Differenze tra le versioni di "Ottenere il puntatore di una variabile di tipo Struttura"
(Una versione intermedia di uno stesso utente non è mostrata) | |||
Riga 10: | Riga 10: | ||
Private variabile_struttura As <FONT color=B22222>Struct</font> STRUTTURA | Private variabile_struttura As <FONT color=B22222>Struct</font> STRUTTURA | ||
− | Da sottolineare che in questo caso i dati sono presenti all'interno dell'area di memoria, puntata dal ''Puntatore'', a cominciare dal 1° byte (indice 0). Pertanto possiamo dire che il ''Puntatore'' alla variabile di tipo ''Struttura'', ritornato dalla funzione "VarPtr()", punta all'indirizzo di memoria del <U>primo</u> membro della ''Struttura''. | + | Da sottolineare che in questo caso i dati sono presenti all'interno dell'area di memoria, puntata dal ''Puntatore'', a cominciare dal 1° byte (indice 0). Pertanto possiamo dire che il ''Puntatore'' alla variabile di tipo ''Struttura'', ritornato dalla funzione "VarPtr()", punta all'indirizzo di memoria dei dati associati alla ''Struttura'', ossia all'indirizzo di memoria del <U>primo</u> membro della ''Struttura''. <SUP>[[[#Note|nota 1]]]</sup> |
Esempio: | Esempio: | ||
Riga 135: | Riga 135: | ||
Per vedere un altro esempio del suo uso si rinvia a questa pagina della Wiki: | Per vedere un altro esempio del suo uso si rinvia a questa pagina della Wiki: | ||
[[Leggere e scrivere direttamente nell'area di memoria di una Struttura accedendovi con la classe Object]]. | [[Leggere e scrivere direttamente nell'area di memoria di una Struttura accedendovi con la classe Object]]. | ||
+ | |||
+ | |||
+ | |||
+ | =Note= | ||
+ | [1] Vedere anche la seguente pagina: [[Ottenere il puntatore direttamente ai dati associati a una Struttura]] |
Versione attuale delle 19:04, 7 giu 2024
E' possibile ottenere il Puntatore di una variabile di tipo Struttura (ossia una variabile di tipo Puntatore che punta all'indirizzo di memoria di una variabile di tipo Struttura) mediante almeno due modalità:
- con la funzione "VarPtr()";
- con il Metodo "Object.Address()".
Ottenere il puntatore di una variabile di tipo Struttura mediante la funzione "VarPtr()"
La funzione "VarPtr()" ritorna un Puntatore che punta alla variabile contenuta in memoria; pertanto si utilizzerà con la variabile di tipo Struttura con la seguente sintassi:
VarPtr(Variabile_Struttura) As Pointer
V'è da sottolineare che la variabile di tipo Struttura andrà assolutamente dichiarata all'esterno delle routine, come globale, e preceduta dalla parola-chiave Struct:
Private variabile_struttura As Struct STRUTTURA
Da sottolineare che in questo caso i dati sono presenti all'interno dell'area di memoria, puntata dal Puntatore, a cominciare dal 1° byte (indice 0). Pertanto possiamo dire che il Puntatore alla variabile di tipo Struttura, ritornato dalla funzione "VarPtr()", punta all'indirizzo di memoria dei dati associati alla Struttura, ossia all'indirizzo di memoria del primo membro della Struttura. [nota 1]
Esempio:
Public Struct ABCDE a As Byte b As Short c As Integer d As Long e As String End Struct Private vrSt As Struct ABCDE Public Sub Main() Dim p1, p2 As Pointer With vrSt .a = 9 .b = 999 .c = 999999 .d = 999999999 .e = "testo" End With ' Ottiene il "Puntatore" alla variabile di tipo "Struttura": p1 = VarPtr(vrSt) ' Dereferenzia il "Puntatore" mediante l'apposita funzione nativa di Gambas per leggere un Byte, spostandosi al numero d'indice "24" dell'area allocata appartenente alla Struttura: Print Byte@(p1) ' Per leggere il valore del membro di tipo "Short", usa l'apposita funzione nativa di Gambas, spostandosi al numero d'indice "2" dell'area allocata, e non "1", per rispettare la regola dell'Allineamento dei dati: Print Short@(p1 + SizeOf(gb.Short)) ' Per leggere il valore del membro di tipo "Integer", usa l'apposita funzione nativa di Gambas, spostandosi al numero d'indice "4" dell'area allocata: Print Integer@(p1 + SizeOf(gb.Integer)) ' Per leggere il valore del membro di tipo "Long", usa l'apposita funzione nativa di Gambas, spostandosi al numero d'indice "8" dell'area allocata: Print Long@(p1 + SizeOf(gb.Long)) ' Se un membro della "Struttura" è di tipo "Stringa", allora la corrispondente area di memoria contiene un indirizzo di memoria di una "Stringa". In tal caso detto indirizzo di memoria dovrà essere innanzitutto opportunamente dereferenziato con l'apposita funzione nativa di Gambas, adatta per dereferenziare i "Puntatori": p2 = Pointer@(p1 + 16) ' Quindi dereferenzia il "Puntatore" ottenuto, per ottenere la stringa: Print String@(p2) End
Si può usare anche un ciclo per l'intera dimensione della "Struttura", mostrando così tutta area di memoria della "Struttura":
Dim i As Integer ...... ...... For i = 0 To Object.SizeOf(vrSt) - 1 If i = Object.SizeOf(vrSt) - 8 Then Print String@(p2) Break Endif Print i, Hex(Byte@(p1 + i), 2) Next
Ottenere il puntatore di una variabile di tipo Struttura mediante il Metodo "Object.Address()"
Il Metodo ".Address()" della Classe Object ritorna l'indirizzo di memoria dell'Oggetto Struttura, e si utilizzerà con la variabile di tipo Struttura con la seguente sintassi:
Object.Address(Variabile_Struttura) As Pointer
In questo caso è preferibile optare per la dichiarazione della variabile di tipo Struttura con la parola New:
Dim variabile_struttura As New STRUTTURA
Da sottolineare che in questo caso i dati sono presenti all'interno dell'area di memoria, puntata dal Puntatore, a cominciare dal 25° byte (indice 24).
Mostriamo un esempio riprendendo come base quello precedente:
Public Struct ABCDE a As Byte b As Short c As Integer d As Long e As String End Struct Public Sub Main() Dim vrSt As New ABCDE Dim p1, p2 As Pointer With vrSt .a = 9 .b = 999 .c = 999999 .d = 999999999 .e = "testo" End With ' Ottiene il "Puntatore" all'Oggetto "Struttura" dalla sua variabile: p1 = Object.Address(vrSt) ' Dereferenzia il "Puntatore" mediante l'apposita funzione nativa di Gambas per leggere un Byte, spostandosi al numero d'indice "24" dell'area allocata appartenente alla Struttura: Print Byte@(p1 + 24) ' Per leggere il valore del membro di tipo "Short", usa l'apposita funzione nativa di Gambas, spostandosi al numero d'indice "26" dell'area allocata, e non "25", per rispettare la regola dell'Allineamento dei dati: Print Short@(p1 + 24 + SizeOf(gb.Short)) ' Per leggere il valore del membro di tipo "Integer", usa l'apposita funzione nativa di Gambas, spostandosi al numero d'indice "28" dell'area allocata: Print Integer@(p1 + 24 + SizeOf(gb.Integer)) ' Per leggere il valore del membro di tipo "Long", usa l'apposita funzione nativa di Gambas, spostandosi al numero d'indice "32" dell'area allocata: Print Long@(p1 + 24 + SizeOf(gb.Long)) ' Se un membro della "Struttura" è di tipo "Stringa", allora la corrispondente area di memoria contiene un indirizzo di memoria di una "Stringa". In tal caso detto indirizzo di memoria dovrà essere innanzitutto opportunamente dereferenziato con l'apposita funzione nativa di Gambas, adatta per dereferenziare i "Puntatori": p2 = Pointer@(p1 + 24 + 16) ' Quindi dereferenzia il "Puntatore" ottenuto, per ottenere la stringa: Print String@(p2) End
Si può usare anche un ciclo per l'intera dimensione della "Struttura", mostrando così tutta area di memoria della "Struttura":
Dim i As Integer ...... ...... For i = 0 To Object.SizeOf(vrSt) - 1 If i = Object.SizeOf(vrSt) - 8 Then Print String@(p2) Break Endif Print i, Hex(Byte@(p1 + 24 + i), 2) Next
Per vedere un altro esempio del suo uso si rinvia a questa pagina della Wiki: Leggere e scrivere direttamente nell'area di memoria di una Struttura accedendovi con la classe Object.
Note
[1] Vedere anche la seguente pagina: Ottenere il puntatore direttamente ai dati associati a una Struttura