Wie erstelle ich einen Zeiger auf die Klasseninstanz

[FriendOfDelphi]

Hallo Wissende,

wie kann ich beim Aufruf einer Methode/Prozedur innerhalb eines Objektes den Zeiger der aktuellen Klasseninstanz als Parameter mitgeben?

Also ungefähr so:
"MeineProzedur(Zeiger auf die Klasse);"

Ich habe es folgendermaßen probiert:

Delphi-Quellcode:

MeineProzedur(self);

Aber so funktioniert es nicht.

[Deep-Sea]

Wieso genau funktioniert es denn nicht?
Und: Willst du nun die Instanz oder die Klasse übergeben?

[himitsu]

Wieso soll das nicht funktionieren?

Eine Objektreferenz ist doch auch "nur" ein Zeiger.

[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.

[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

[FriendOfDelphi]

Ok, ich sollte wohl lieber das ganze Problem schildern:

Ich verwende ein Library von der ich nur eine DCU-Datei habe (liefert der Hardware-Hersteller mit).
Aus dieser Library verwende ich eine Methode, der ich die Adresse einer Prozedur (Callback-Routine) übergebe, die aufgerufen wird, wenn sich in der Hardware etwas tut. Diese kann leider nicht Teil meiner Klasse sein, da nur ein normaler Prozedurzeiger übergeben werden darf (4 Byte).

Weiterhin besteht die Möglichkeit der Library-Methode einen beliebigen Parameter/beliebigen Zeiger vom Typ Cardinal zu übergeben.
Hier will ich den Zeiger der Klasseninstanz übergeben.

Diesen Zeiger bekommt man dann beim Aufruf der Callback-Routine über den zuvor übergebenen Parameter (Variable) wieder zurück.
Diesen Zeiger möchte ich dann auf den Pointer der Klassenistanz "zurück-casten" und dann eine public-Methode meiner Klasse über diesen Zeiger aufrufen.

[Deep-Sea]

Zitat:

Zitat von FriendOfDelphi (Beitrag 1074410)

Diese kann leider nicht Teil meiner Klasse sein, da nur ein normaler Prozedurzeiger übergeben werden darf (4 Byte).

Kann schon, wenn es eine Klassenmethode ist.

Aber wo ist jetzt das Problem?

[FriendOfDelphi]

Zitat:

Zitat von Bbommel (Beitrag 1074407)

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:

Delphi-Quellcode:

DieFunktion(Longword(Self));

Beim Callback:

Delphi-Quellcode:

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