[fpc-pascal] Dynamic messaging in Delphi

[Ryan Joseph]

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.

Regards,
	Ryan Joseph
	thealchemistguild.com