self Pointer an C Funktionen weitergeben

[cytrinox]

Hi,


ich binde eine C-DLL Datei mit ins Projekt ein. Eine Funktion davon erwartet eine Callback-Funktion (hierfür hab ich eine Delphi Funktion geschrieben) und ein void* als Argument für die Callback-Funktion.

Schreib ich: dll_function(@my_callback, PAnsiChar('foobar')); wird my_callback(arg) aufgerufen und ich kann mit ShowMessage den Sring ausgeben.


Allerdings rufe ich dll_function aus einer Methode eines Objektes heraus auf und möchte self als arg übergeben und im my_callback() dann arg casten und eine bestimmte methode davon aufrufen (z.B. ClassName).

Genau das funktioniet aber nicht. Ich schreibe dll_function(@my_callback, Addr(self)); und my_callback sieht so aus:


function my_callback(arg: Pointer): Integer; cdecl;
var
obj: ^MyClass;
begin
obj = arg;
ShowMessage(obj.className); // Zeichenwirrwarr oder Access violation
end;

Wie muss ich nun arg casten damit ich damit arbeiten kann, denn offensichtlich stimmt irgendwas mit dem Pointer nicht.
Ich hab sämtliche Kombinationen von @x,Addr(x) ^x und x^ nun durch aber nichts funktioniert - lediglich die PansiChar sache klappt.

Ist self überhaupt ein Object oder ist das schon ein Pointer? (In C++ ist this ja z.B. auch ein Pointer).

[DeddyH]

Eine Instanzvariable ist schon ein Pointer.

[Apollonius]

Die Adresse von Self wird ungültig, wenn die Methode verlassen wird. Du solltest direkt Pointer(Self) übergeben.

[cytrinox]

IEEKS. Lasst mich raten: self liegt auf dem Stack und Addr(self) gibt mir nen Pointer in den Stack zurück?

[Apollonius]

Exakt. Wenn du eine Adresse nimmst, zwingst du Delphi, die Variable oder den Parameter auf dem Stack abzulegen.

[shmia]

Delphi-Quellcode:

function my_callback(arg: Pointer): Integer; cdecl; 
var 
obj: TMyClass; 
begin 
  obj = TMyClass(arg); 
  ShowMessage(obj.className); 
  obj.IrgendNeMethode;
end;

[cytrinox]

Hmm und was macht Pointer() genau? Denn einfach nur self direkt übergeben produziert den/die selben Fehler und Pointer() castet doch einfach nur?

[jfheins]

Also ich habe bei EnumWindows das so gemacht:

Delphi-Quellcode:

function EnumWindowCallback(hwnd: HWND; Form: TForm1): LongBool; stdcall;
begin
 // code
end;

function TForm1.InsertButton(): Boolean;
begin
  EnumWindows(@EnumWindowCallback, Integer(self));
end;

Also nach Integer gecastet. Vll. löst das das Problem ;)

[cytrinox]

Sehr gut, mit Pointer() hat's dann funktioniert, danke :)