Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Win32.tlb Constants
Message
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Miscellaneous
Thread ID:
00998974
Message ID:
00999276
Views:
50
Kevin,

Something like this:
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
>I have Win32.tlb loaded in the object browser
>
>I'm trying to drag the constants node into a text file, but
>I keep getting 'Unknown COM error'.
>
>Does anyone have these constants?
>
>Thanks
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform