Problem using CAST & OpenOffice

Hi,

I'm trying to integrate OpenOffice in our software.

It can be done using com-handles, albeit in a limited way.

So I tried using real objects instead. I keep running into problems when using CAST however. Probably because of the UNO-structure-thingie, but I'm not sure.

I always get an "Invalid Cast"-error.  However, passing the object to a procedure with an input parameter does work.

I've included an example to clarify my problem:

using System.*.

using unoidl.com.sun.star.lang.*.

using unoidl.com.sun.star.uno.*.

using unoidl.com.sun.star.bridge.*.

def var oStrap      as XComponentContext        no-undo.

def var oServ       as XMultiServiceFactory     no-undo.

def var oStrTmp     as XMultiComponentFactory   no-undo.

oStrap = uno.util.Bootstrap:bootstrap().

oStrTmp = oStrap:getServiceManager().

run pTest (input oStrTmp).                                /* OK */         

oServ = cast(oStrTmp , XMultiServiceFactory).  /* NOK */

procedure ptest:

def input param p as XMultiServiceFactory.

oServ = p.

end procedure.

The run pTest will work (I've made a complete working sample generating a spreadsheet).

The CAST will fail. I was hoping a class using methods would work in the same way as a procedure, but it does a check of it's types and generates the same error as a cast.

Any ideas why the CAST fails, but the procedure works? (If you want to test, you'd need to include the cli*-dll's into assemblies.xml)

Progress 101a & 102b (soon to be 11.??)

Thx