Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Win32.tlb Constants
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Divers
Thread ID:
00998974
Message ID:
00999276
Vues:
49
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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform