Adresse einer Callback Funktion als String speichern

[albi99]

Hallo,

Ich übergebe in einer DLL an die Aufrufende Anwendung diverse Werte über eine Callback Prozedur. Zu Debug Zwecken würde ich jetzt gerne die Adresse der Callback Prozedur dieser Anwendung speichern.

Delphi-Quellcode:

//Funktion in der DLL, wird von der Anwendung aufgerufen
function setCallBackProc (const FuncPtr: TCallBackFunction): Integer; stdcall;
var cbAddress : String;
begin
CBFunc:= FuncPtr;
cbAddress:='' //???? <-- Wie kriege ich diese Adresse (FuncPtr) in den String cbAddress???
end;

Viele Grüße
albi99

[SirThornberry]

Delphi-Quellcode:

function setCallBackProc (const FuncPtr: TCallBackFunction): Integer; stdcall;
var cbAddress : String;
begin
CBFunc:= FuncPtr;
cbAddress:=inttostr(Cardinal(@FuncPtr));
end;

Ungetestet

[albi99]

Hallo,

funktioniert.

Vielen Dank
albi99