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
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
