[fpc-pascal] Dynamic messaging in Delphi
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
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)
> 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.
More information about the fpc-pascal