Wie erstelle ich einen Zeiger auf die Klasseninstanz

[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