"Name" of TOLE

[Jimmy]

hi,

when using

Code: Select all  Expand view  RUN

  FWLOG hb_valToExp( oObject)

i got

'__itemSetObj( {{"__HOBJ", <pointer>}}, {{"TOLEAUTO",}} )'

how to get "more" Information about it

[nageswaragunupudi]

To know the name
? oObject:cClassName

[Antonio Linares]

Dear Jimmy,

Please use FWH\samples\olebrow.prg to inspect the OLE objects

[Jimmy]

hi,

To know the name
? oObject:cClassName

thx for Answer.

Code: Select all  Expand view  RUN

  xFolder := aSelect[ ID_Folder ]
   xName := aSelect[ ID_Name ]
   xLevel := aSelect[ ID_Level ]

FWLOG xFolder
FWLOG oFolderItem:cClassName
FWLOG oTreeNext

   DoTreeRecursiv( oFolderItem, xLevel + 1, .F., .F., .F., .F.,oTreeNext )

02.12.2022 16:24:51: DOTREEACTION( 0 ) xFolder = TTVITEM
02.12.2022 16:24:51: DOTREEACTION( 0 ) oFolderItem:cClassName =
02.12.2022 16:24:51: DOTREEACTION( 0 ) oTreeNext = TTVITEM

as that CODE is working there must be a "Name" but i got only "empty"

[Jimmy]

hi Antonio,

Please use FWH\samples\olebrow.prg to inspect the OLE objects

WOW, all CLSID in XBROWSE

but it is not the same as i use

Code: Select all  Expand view  RUN

  oShell := CreateObject( "shell.application" )
   IF NIL <> oShell
      oFolder := oShell:NameSpace( CSIDL_DRIVES )

i do work with "virtual Folder" which i get from "shell.application"

p.s. as CODE is working now i do not need to "check" it any more

[nageswaragunupudi]

BTW cClassName is only for OLE objects.

[Jimmy]

hi,

BTW cClassName is only for OLE objects.

i understand

my Question for "Name" was wrong, it must be "Interface"

i do use

Code: Select all  Expand view  RUN

  oShell := CreateObject( "shell.application" )

so it is not a Fivewin CLASS Object which i can "identify"

but when using wrong Object and crash Errorlog "just" say TOLEAUTO ...

so i ask for Interface-"Name" to understand Errorlog