Re: [fpc-pascal] Passing a CORBA interface as parameter

2019-12-22 Thread Adriaan van Os
Zamrony P. Juhara via fpc-pascal wrote: If you need to know if an instance implement certain interface, you can use is operator if anInstance is IInterface1 then begin end Thanks for the reply, but that is not what I meant. Regards, Adriaan van Os

Re: [fpc-pascal] Passing a CORBA interface as parameter

2019-12-21 Thread Sven Barth via fpc-pascal
Am 21.12.2019 um 16:12 schrieb Adriaan van Os: Sven Barth via fpc-pascal wrote: The important difference in this regard between COM and CORBA interfaces is that for CORBA interfaces the "guid" is a ShortString, not a TGUID. Thus the compiler allows to convert a CORBA interface to a ShortStri

Re: [fpc-pascal] Passing a CORBA interface as parameter

2019-12-21 Thread Adriaan van Os
Sven Barth via fpc-pascal wrote: The important difference in this regard between COM and CORBA interfaces is that for CORBA interfaces the "guid" is a ShortString, not a TGUID. Thus the compiler allows to convert a CORBA interface to a ShortString. For TObject.GetInterface this works, because

Re: [fpc-pascal] Passing a CORBA interface as parameter

2019-12-21 Thread Sven Barth via fpc-pascal
Am 20.12.2019 um 16:17 schrieb Adriaan van Os: I would like to pass a CORBA interface-type as parameter and test for equality, So, for example, I have {$mode objfpc} {$interfaces corba} type IMyInterface = Interface     [  '{34aad6d0-5884-4143-97c2-b6e330305ae3}']     Function

Re: [fpc-pascal] Passing a CORBA interface as parameter

2019-12-20 Thread Zamrony P. Juhara via fpc-pascal
If you need to know if an instance implement certain interface, you can use is operator if anInstance is IInterface1 thenbegin     end; Zamrony P. Juhara On Sat, Dec 21, 2019 at 0:25, Adriaan van Os wrote: I would like to pass a CORBA interface-type as parameter and test for equality, So

[fpc-pascal] Passing a CORBA interface as parameter

2019-12-20 Thread Adriaan van Os
I would like to pass a CORBA interface-type as parameter and test for equality, So, for example, I have {$mode objfpc} {$interfaces corba} type IMyInterface = Interface [ '{34aad6d0-5884-4143-97c2-b6e330305ae3}'] Function MyFunc : Integer;