self Pointer an C Funktionen weitergeben

[shmia]

Delphi-Quellcode:

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