Uso Delphi Self-Pointer

Question

Ho bisogno di ottenere puntatore alla mia istanza di classe all'interno di questa istanza. Non posso usare direttamente "Self", ho bisogno di un puntatore del negozio per un utilizzo futuro. Ho provato codice successivo:

type 
    TTest = class(TObject) 
    public 
     class function getClassPointer: Pointer; 
     function getSelfPointer: Pointer; 
    end; 

class function TTest.getClassPointer: Pointer; 
begin 
    Result := Pointer(Self); 
end; 

function TTest.getSelfPointer: Pointer; 
begin 
    Result := Pointer(Self); 
end; 

Ed entrambi risultato sono sbagliato - questo codice:

test := TTest.Create; 
Writeln('Actual object address: ', IntToHex(Integer(@test), 8)); 
Writeln('Class "Self" value: ', IntToHex(Integer(test.getClassPointer()), 8)); 
Writeln('Object "Self" value: ', IntToHex(Integer(test.getSelfPointer()), 8)); 

rendimenti:

Actual object address: 00416E6C 
Class "Self" value:  0040E55C 
Object "Self" value:  01EE0D10 

Ti prego, aiutami a capire, che cosa è questo valore "Sé" ? "Sé" è un puntatore a questa istanza di classe? Come utilizzare questo puntatore per un utilizzo futuro al di fuori di questo oggetto? Come ottenere il puntatore corretto da questo valore?

Answer 1

Stai cercando di confrontare tre entità completamente diverse.

@test restituisce l'indirizzo del test della variabile, non l'istanza dell'oggetto a cui punta.

test.getClassPointer() restituisce l'indirizzo dei metadati della classe, una struttura di dati costante generata dal compilatore in cui il runtime può trovare la tabella del metodo virtuale, le tabelle di informazioni sul tipo di runtime e altro. Tutte le istanze di una classe condividono la stessa struttura di metadati di classe. Il puntatore ai metadati della classe è l'identità del tipo dell'istanza dell'oggetto - è come l'oggetto sa di che tipo è in fase di runtime.

test.getSelfPointer() fornisce l'indirizzo effettivo dell'istanza dell'oggetto nella memoria. Due istanze di oggetto (create separatamente) avranno indirizzi di istanze differenti. test.getSelfPointer() sarà uguale al contenuto della variabile istanza test: Pointer (test)

Ad esempio (pseudocodice, non testato):

type TTest = class 
    end; 

var test1: TTest; 
    test2: TTest; 

begin 
    test1 = TTest.Create; // allocates memory from the global heap, stores pointer 
    test2 = test1;   // copies the pointer to the object into test2 variable 
    writeln("Test1 variable points to: ", IntToHex(Integer(Pointer(test1)))); 
    writeln("Test2 variable points to: ", IntToHex(Integer(Pointer(test1)))); 
end. 

Answer 2

Nel frammento di codice test è già un riferimento al reale esempio, così si dovrebbe provare

Writeln('Actual object address: ', IntToHex(Integer(Pointer(test)), 8)); 

E probabilmente non è necessario alcun metodo getSelfPointer. Se si desidera un secondo riferimento all'istanza dell'oggetto che già test riferimenti, scrivono:

var 
    SecondReferenceToTest: TTest; 
SecondReferenceToTest := test; 

di vedere questo, provare qualcosa di simile:

type 
    TTest = class(TObject) 
    public 
    Name: string; 
    end; 

procedure TestProc; 
var 
    test, SecondReferenceToTest: TTest; 
begin 
    test := TTest.Create; 
    try 
    test.Name := 'Named via "test" reference'; 
    SecondReferenceToTest := test; 
    ShowMessage(SecondReferenceToTest.Name); 
    finally 
    test.Free; 
    end; 
end;