Delphi pointer syntax

Question

I have to pass an argument of the type Pointer to a function from an external DLL.

How do I create a pointer to a procedure which I can then pass to the function?
Can I also pass a pointer to a class member function to the external function, or will that not work?

Jens Mühlenhoff · Accepted Answer · 2010-09-06 11:43:26Z

9

Just use @MyProcedure for that.

Beware that it has to have the right calling convention (probably stdcall).

You usually can't use a member function, because it has a hidden SELF parameter.

A class static method acts like a usual procedure/function though.

http://docwiki.embarcadero.com/RADStudio/en/Methods

edited Sep 6, 2010 at 11:43

answered Sep 6, 2010 at 11:34

Jens Mühlenhoff

14.9k7 gold badges65 silver badges114 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Ljubomir Đokić · Accepted Answer · 2010-09-09 08:43:10Z

0

Create this type if procedure (or function) is method

type
  TMyProc = Procedure(x:Integer;y:Integer) of Object;

or this

type
  TMyProc = Procedure(x:Integer;y:Integer);

if procedure is stand alone.

Usage:

//Some class method
Procedure TfrmMain.Add(x:Integer;y:Integer);
begin
  ...
end;

//Another class method that uses procedure as parameter
procedure Name(proc : TMyProc);
begin
  ...
end;

//Call with:

Name(Add);

answered Sep 9, 2010 at 8:43

Ljubomir Đokić

4164 silver badges10 bronze badges

Collectives™ on Stack Overflow

Delphi pointer syntax

2 Answers 2

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related