>otli=NewOBJECT("tli.tliapplication") >otlb=otli.TypeLibInfoFromFile(fullpath_tlb_file) > >?"Constants :" > For Each oConstant In otlb.Constants > For Each mbr In oConstant.Members > ?mbr.name,"=",mbr.value > endfor > endfor > >?"CoClasses :" >FOR EACH oCoclass IN otlb.CoClasses > ?" ",oCoClass.NAme > *now each interface associated with this CoClass > FOR EACH oInterface IN oCoClass.Interfaces > ?" ",oInterface.Name > endfor >ENDFOR > >? >?"Interfaces:" >FOR EACH oInterface IN otlb.Interfaces > ?" ",oInterface.Name >ENDFOR >? >?"Interface Members for 1st interface" >FOR EACH oMember IN otlb.Interfaces(1).Members >?" ",oMember.name > FOR EACH oParm IN oMember.Parameters > ?" ", oParm.name > ENDFOR >ENDFOR >OTLB=.null. >RELEASE OTLB >otli=.NULL. >RELEASE OTLI > >>