Marten Feldtmann wrote:
What a nonsense ... the BASIC program is the following and I think, that it
does pretty much the same as done in climaker ....
IIRC, at least a long time ago there were problems with
createTypeDescriptionEnumeration and particular arguments to it. Did
you experiment whether using other arguments (an explicit module name,
an empty valueArray, 1 instead of -1) helps? Sorry I cannot remember
more details, or even an issue ID.
Either that, or some quirk of the Basic--UNO binding?
-Stephan
REM ***** BASIC *****
Sub Main
MyReflectionTest
End Sub
Sub MyReflectionTest
Dim oTypeDescriptionProvider as Object
Dim enumeration as Object
Dim typeDescription as object
dim valueArray(0) dim level
valueArray(0) = com.sun.star.uno.TypeClass.SERVICE
oTypeDescriptionProvider = CreateUnoService(
"com.sun.star.reflection.TypeDescriptionProvider" )
if not IsNull(oTypeDescriptionProvider) then
enumeration =
oTypeDescriptionProvider.createTypeDescriptionEnumeration("",
valueArray, -1)
if not isNull(enumeration) then
do while (enumeration.hasMoreElements)
typeDescription = enumeration.nextTypeDescription
MsgBox typeDescription.dbg_methods loop
endif
endif
End Sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
