Wie erstelle ich einen Zeiger auf die Klasseninstanz

[Deep-Sea]

Zitat von FriendOfDelphi:

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?

[Thom]

Delphi-Quellcode:

type
  TMyClass = class(...)
  public
    procedure CallbackProc(pAddr: PAmsAddr; pNotification: PAdsNotificationHeader);
    procedure InitCallback;
  end;

procedure Callback(pAddr: PAmsAddr; pNotification: PAdsNotificationHeader; hUser: Longword); stdcall;
begin
  TMyClass(hUser).CallbackProc(pAddr,pNotification);
end;

procedure TMyClass.CallbackProc(pAddr: PAmsAddr; pNotification: PAdsNotificationHeader);
begin
end;

procedure TMyClass.InitCallback;
var
  Result: ...;
begin
  Result:=AdsSyncAddDeviceNotificationReq(@serverAddr,ADSIGRP_DEVICE_DATA,
                                          ADSIOFFS_DEVDATA_ADSSTATE,
                                          @adsNotificationAttrib,
                                          @Callback, //hier steht die Adresse der Callback-Routine
                                          Longword(self), //an dieser Stelle will ich den Zeiger der Klasseninstanz übergeben
                                          @hDevNotification);
end;

P.S.: Da war Deep-Sea schneller - aber auch kürzer...