[fpc-pascal] Dynamic messaging in Delphi

Ryan Joseph ryan at thealchemistguild.com
Thu Jul 26 16:30:59 CEST 2012

On Jul 26, 2012, at 2:32 AM, Graeme Geldenhuys wrote:

> You could also try the Supports() method. eg:
>   if Supports(delegate, IMyInterface, intfDelegate) then
>     intfDelegate.DoThis(1);

I'm getting an identifier not found error with the procedure "Supports". Where is this defined?

> By the way, as far as I know TInterfacedObject is a COM Interface
> class only. You are telling the compiler that you want to use CORBA
> style interfaces, which don't support IUnknown, thus you shouldn't
> (can't) use TInterfaceObject which implements IUnknown.
> Change that class definition to something like the following if you
> are using CORBA interfaces.
>   TMyDelegate = class(TObject, MyDelegate)
>      ...
>   end;
> And that should work correctly with CORBA style interfaces (which
> don't have reference counting built-in).

That was useless code, you're right, thanks.

	Ryan Joseph

More information about the fpc-pascal mailing list