Wie erstelle ich einen Zeiger auf die Klasseninstanz

[QuickAndDirty]

innerhalb von
Object Methoden referenziert sich jedes Objekt über self !
Wenn du von einer Prozedur aus, aus dem Hauptprogramm heraus (dpr Datei) oder aus einer Methode heraus ein anderes Object referenzieren willst musst du schon den Variablen Namen angeben.

Es kann auch mal vorkommen das self = nil ist...oder noch schlimmer das das Object sich selbst zerstört hat (kann bei formularen passieren) aber du immer noch in einer der Methoden des bereits zerstörten Objektes bist...dann verweißt self nirgendwo hin wo es soll...

[Bbommel]

Mein erster Gedanke war auch: Doch, genau so funktioniert es. Zeig uns doch mal etwas mehr Code und die Fehlermeldung.

[FriendOfDelphi]

Zitat von Bbommel:

Mein erster Gedanke war auch: Doch, genau so funktioniert es. Zeig uns doch mal etwas mehr Code und die Fehlermeldung.

Delphi-Quellcode:

[...schnipp...]

Procedure Callback(pAddr:PAmsAddr; pNotification:PAdsNotificationHeader; hUser:Longword); stdcall;
begin
  //mache irgendwas
  //beim Aufruf der Prozedur soll in hUser der Zeiger der Klasseninstanz stehen
end;

[...schnipp...]

Das ist die Methode, die ich aus der Library aufrufe:

Delphi-Quellcode:

[...schnipp...]

result := AdsSyncAddDeviceNotificationReq( @serverAddr, ADSIGRP_DEVICE_DATA,
                                           ADSIOFFS_DEVDATA_ADSSTATE,
                                           @adsNotificationAttrib,
                                           @Callback, //hier steht die Adresse der Callback-Routine
                                           Longword(@???), //an dieser Stelle will ich den Zeiger der Klasseninstanz übergeben
                                           @hDevNotification  );
[...schnipp...]

Hier steht das Beispiel, an dem ich mich orientiert habe: http://infosys.beckhoff.com/index.ph...4.htm&id=10260

[Deep-Sea]

Beim Aufruf:
DieFunktion(Longword(Self));

Beim Callback:

Delphi-Quellcode:

var
  LInstanz: TMeinObjekt;
begin
  LInstanz := TMeinObjekt(hUser);
end;

[himitsu]

Man könnte zwar auch eine externe Prozedur nehmen, aber so isses bestimmt schöner aufgeräumt.

PS: Das "static" nicht vergessen.

Delphi-Quellcode:

type
  TMeinObjekt = class(...)
    class procedure Callback(Addr: PAmsAddr; Notification: PAdsNotificationHeader; User: LongWord); stdcall; static; 
    procedure InnerCallback(Addr: PAmsAddr; Notification: PAdsNotificationHeader);
  end;

procedure TMeinObjekt.Callback(Addr: PAmsAddr;
  Notification: PAdsNotificationHeader; User:Longword);
begin
  TMeinObjekt(hUser).InnerCallback(Addr, Notification);
end;

var MeinObjekt: TMeinObjekt;

AdsSyncAddDeviceNotificationReq(..., @MeinObjekt.Callback, LongWord(MeinObjekt), ...);

[edit]
da war ja nochwer fast genauso schnell

[FriendOfDelphi]

Ich bin ja begeistert, was ihr da so hinzaubert...

Aber könnt ihr mir mal erklären, warum ihr das so macht?

Bitte

[himitsu]

Wir übergeben als User-Parameter die Objektinstanz und als Zeiger eine Prozedur, statische Klassenmethode (welche quasi auch nur eine Prozedur darstellt)

Davor haben wir uns eine Prozedur gebastelt, deren Signazur derer entspricht, welchge von als Callback verlangt wird
und darin wird dann einfach nur über den übergebenen Methodenzeiger auf eine Methode dieses Objektes zugeriffen/umgeleitet.

Als Ergebnis wird somit also eine Methode eines Objekts aufgerufen.



PS: Ein "Zeiger" auf eine Methode enthält intern auch zwei Zeiger > einmal auf das Objekt und dann noch auf die Methode.
"Zeiger" ... ach, schau dir einfach mal an, was die .OnIrgendwas Events deiner VCL haben, also nahezu alles was du im IO deinen VCL-Komponenten als Ereignisse zuweisen kannst, bzw. der Typ der zugehörigen Event-Property.

[himitsu]

Achso, jetzt hab ich dich auch verstanden. (nach QAD)

Jupp, Self ist ein "versteckter" Parameter, welcher an jede Methode mit übergeben wird und darin steht die Referenz zu dem Objekt, in welchem die Methode grade ausgeführt wird.

Warum steht sowas eigentlich in der OH?
Self TObject.Self