Wie ermittelt man die Adresse der Instanz einer Komponente?

[BRobby]

Hallo zusammen,

ich bräuchte in einer Komponente die konkrete Adresse der Instanz dieser Komponente.
Also z. Bsp.

Delphi-Quellcode:

 
type 
   abc = class(tComponent)
     private
       p: Pointer;
       ...
     procedure P1;
   end;

IMPLEMENTATION

procedure abc.P1;
begin
  p:=@self;
  ...
end;

@self funktioniert nicht.

Wie geht es auf anderem Weg?

[Dalai]

abc ist die Klasse, du willst aber die Instanz bzw. dessen Adresse und für eine solche braucht man eine Variable der entsprechenden Klasse.

Delphi-Quellcode:

type
   abc = class(tComponent)
     private
       i: Integer;
       ...
   end;

procedure A;
var
  Labc: abc;
begin
  DoSomething(@Labc);
end;

Grüße
Dalai

[dummzeuch]

Zitat:

Zitat von BRobby (Beitrag 1529778)

ich bräuchte in einer Komponente die konkrete Adresse der Instanz dieser Komponente.

@self funktioniert nicht.

Wie geht es auf anderem Weg?

Self ein Pointer und der zeigt auf die Instanz, also genau das, was Du suchst, wenn ich das richtig verstanden habe.

Delphi-Quellcode:

procedure abc.P1;
begin
  p:=self;
  ...
end;

[BRobby]

Genau auch meine Überlegung!
Aber es funktioniert nicht !!!
Das ist mein Problem!

[himitsu]

@Self geht,
wobei das natürlich schwachsinn ist, da du "SO" nur die Adresse der Variable bekommst, in welcher das Self aktuell gespeichert ist.

Normal ist das aber eigentlich keine Speicheradresse, sondern das EAX-Register, beim Start der Methode, wobei es dann oft in den Stack geschoben wird
und du dann den Zeiger auf eine Stelle im Stack bekommst. Und diese Adresse wird nach Ende der Methode selbstverständlich ungültig. :stupid:




Warum ein besch**** Zeiger, anstatt einer Variable vom Instanztyp direkt?

Objekte sind bereits "Zeiger", welche "intern" auf ihren eigenen Speicher zeigen.



Hmmmmm:
Abgesehn davon hat es irgendwie keinen verständlichen Sinn, innerhalb des eigenen Objektes einen Zeiger auf sich selbst zu haben, wo man doch sowieso direkt auf sich selbst zugreifen kann.

Wozu soll das Ganze also eigentlich dienen?

[Andreas13]

Vielleicht hilft es Dir hier weiter: https://www.delphi-treff.de/object-p...ethodenzeiger/

Du brauchst keinen einfachen Pointer, sondern einen Methoden-Pointer = "eine Referenz auf eine Methode einer Instanz einer Klasse". Und das ist ein Record aus u. a. 2 Pointern:

Delphi-Quellcode:

TMethod = record
    Code, Data: Pointer;
  public
   ...
  end;

[jaenicke]

Zitat:

Zitat von BRobby (Beitrag 1529782)

Aber es funktioniert nicht !!!
Das ist mein Problem!

Was heißt, dass es nicht funktioniert? Wie sieht denn der Quelltext aus, der nicht funktioniert?

[Kas Ob.]

Simpler ideas:

Code:

procedure TForm10.FormCreate(Sender: TObject);
var
  P: Pointer;
  T: TForm10 absolute P;
begin
  P := Addr(Self);
  P := PPointer(P)^;
end;

Anhang 56454