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:
00999466
Vues:
36
Perfect, thanks!

>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
Everything makes sense in someone's mind
public class SystemCrasher :ICrashable
In addition, an integer field is not for irrational people
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform