Object Automation en technologie Up ! Virtual Technical Machine

Commande de compilation


upscmp Source=oaidl.idl AdaptateurClientCom=Oui AdaptateurDictionnaire=Oui 
AdaptateurServeurUpsNet=O Persistant=Oui Idl=${UPS_HOME}/upscom/upscom

Fichier source oaidl.upi


Interface Module "Encapsulation de oaidl.idl" Version 4.0.0 
	ModuleDynamique Distribue Com;



ImporterModule

	wtypes(<wtypes.upi>, ImporterDefinitions);
	unknwn(<unknwn.upi>, ImporterDefinitions);
	objidl(<objidl.upi>, ImporterDefinitions);



Constante

Public :

	FADF_AUTO=1;

	FADF_STATIC=2;

	FADF_EMBEDDED=4;

	FADF_FIXEDSIZE=16;

	FADF_RECORD=32;

	FADF_HAVEIID=64;

	FADF_HAVEVARTYPE=128;

	FADF_BSTR=256;

	FADF_UNKNOWN=512;

	FADF_DISPATCH=1024;

	FADF_VARIANT=2048;

	FADF_RESERVED=61448;

	PARAMFLAG_NONE=0;

	PARAMFLAG_FIN=1;

	PARAMFLAG_FOUT=2;

	PARAMFLAG_FLCID=4;

	PARAMFLAG_FRETVAL=8;

	PARAMFLAG_FOPT=16;

	PARAMFLAG_FHASDEFAULT=32;

	PARAMFLAG_FHASCUSTDATA=64;

	IDLFLAG_NONE=0;

	IDLFLAG_FIN=1;

	IDLFLAG_FOUT=2;

	IDLFLAG_FLCID=4;

	IDLFLAG_FRETVAL=8;

	IMPLTYPEFLAG_FDEFAULT=1;

	IMPLTYPEFLAG_FSOURCE=2;

	IMPLTYPEFLAG_FRESTRICTED=4;

	IMPLTYPEFLAG_FDEFAULTVTABLE=8;

	DISPID_UNKNOWN=-1;

	DISPID_VALUE=0;

	DISPID_PROPERTYPUT=-3;

	DISPID_NEWENUM=-4;

	DISPID_EVALUATE=-5;

	DISPID_CONSTRUCTOR=-6;

	DISPID_DESTRUCTOR=-7;

	DISPID_COLLECT=-8;



Enumere

Public :

	SF_TYPE Dans (SF_ERROR=10, SF_I1=16, SF_I2=2, SF_I4=3, SF_I8=20, 
	SF_BSTR=8, SF_UNKNOWN=13, SF_DISPATCH=9, SF_VARIANT=12, SF_RECORD=36, 
	SF_HAVEIID=32781);

	TYPEKIND Dans (TKIND_ENUM=0, TKIND_RECORD=1, TKIND_MODULE=2, 
	TKIND_INTERFACE=3, TKIND_DISPATCH=4, TKIND_COCLASS=5, TKIND_ALIAS=6, 
	TKIND_UNION=7, TKIND_MAX=8);

	E_tagTYPEDESC_lptdesc_tagARRAYDESC_lpadesc_hreft Dans (V_lptdesc=26, 
	V_lptdesc_2=27, V_lpadesc=28, V_hreftype=29);

	CALLCONV Dans (CC_FASTCALL=0, CC_CDECL=1, CC_MSCPASCAL=2, CC_PASCAL=2, 
	CC_MACPASCAL=4, CC_STDCALL=5, CC_FPFASTCALL=6, CC_SYSCALL=7, CC_MPWCDECL=8, 
	CC_MPWPASCAL=9, CC_MAX=10);

	FUNCKIND Dans (FUNC_VIRTUAL=0, FUNC_PUREVIRTUAL=1, FUNC_NONVIRTUAL=2, 
	FUNC_STATIC=3, FUNC_DISPATCH=4);

	INVOKEKIND Dans (INVOKE_FUNC=1, INVOKE_PROPERTYGET=2, 
	INVOKE_PROPERTYPUT=4, INVOKE_PROPERTYPUTREF=8);

	VARKIND_oInst_lpvarValue Dans (VAR_PERINSTANCE=0, VAR_STATIC=1, 
	VAR_CONST=2, VAR_DISPATCH=3, V_oInst=0, V_oInst_2=3, V_oInst_3=1, 
	V_lpvarValue=2);

	TYPEFLAGS Dans (TYPEFLAG_FAPPOBJECT=1, TYPEFLAG_FCANCREATE=2, 
	TYPEFLAG_FLICENSED=4, TYPEFLAG_FPREDECLID=8, TYPEFLAG_FHIDDEN=16, 
	TYPEFLAG_FCONTROL=32, TYPEFLAG_FDUAL=64, TYPEFLAG_FNONEXTENSIBLE=128, 
	TYPEFLAG_FOLEAUTOMATION=256, TYPEFLAG_FRESTRICTED=512, 
	TYPEFLAG_FAGGREGATABLE=1024,
	
		TYPEFLAG_FREPLACEABLE=2048, TYPEFLAG_FDISPATCHABLE=4096, 
		TYPEFLAG_FREVERSEBIND=8192);
	
	FUNCFLAGS Dans (FUNCFLAG_FRESTRICTED=1, FUNCFLAG_FSOURCE=2, 
	FUNCFLAG_FBINDABLE=4, FUNCFLAG_FREQUESTEDIT=8, FUNCFLAG_FDISPLAYBIND=16, 
	FUNCFLAG_FDEFAULTBIND=32, FUNCFLAG_FHIDDEN=64, FUNCFLAG_FUSESGETLASTERROR=128, 
	FUNCFLAG_FDEFAULTCOLLELEM=256, FUNCFLAG_FUIDEFAULT=512, 
	FUNCFLAG_FNONBROWSABLE=1024,
	
		FUNCFLAG_FREPLACEABLE=2048, FUNCFLAG_FIMMEDIATEBIND=4096);
	
	VARFLAGS Dans (VARFLAG_FREADONLY=1, VARFLAG_FSOURCE=2, 
	VARFLAG_FBINDABLE=4, VARFLAG_FREQUESTEDIT=8, VARFLAG_FDISPLAYBIND=16, 
	VARFLAG_FDEFAULTBIND=32, VARFLAG_FHIDDEN=64, VARFLAG_FRESTRICTED=128, 
	VARFLAG_FDEFAULTCOLLELEM=256, VARFLAG_FUIDEFAULT=512, 
	VARFLAG_FNONBROWSABLE=1024, VARFLAG_FREPLACEABLE=2048,
	
		VARFLAG_FIMMEDIATEBIND=4096);
	
	DESCKIND Dans (DESCKIND_NONE=0, DESCKIND_FUNCDESC=1, DESCKIND_VARDESC=2, 
	DESCKIND_TYPECOMP=3, DESCKIND_IMPLICITAPPOBJ=4, DESCKIND_MAX=5);

	E_lpfuncdesc_lpvardesc_lptcomp Dans (V_lpfuncdesc=1, V_lpvardesc=2, 
	V_lptcomp=3);

	SYSKIND Dans (SYS_WIN16=0, SYS_WIN32=1, SYS_MAC=2);

	LIBFLAGS Dans (LIBFLAG_FRESTRICTED=1, LIBFLAG_FCONTROL=2, 
	LIBFLAG_FHIDDEN=4, LIBFLAG_FHASDISKIMAGE=8);

	CHANGEKIND Dans (CHANGEKIND_ADDMEMBER=0, CHANGEKIND_DELETEMEMBER=1, 
	CHANGEKIND_SETNAMES=2, CHANGEKIND_SETDOCUMENTATION=3, CHANGEKIND_GENERAL=4, 
	CHANGEKIND_INVALIDATE=5, CHANGEKIND_CHANGEFAILED=6, CHANGEKIND_MAX=7);



Public : 

Type TYPEDESC Recursif;

Type PARAMDESCEX Recursif;

Type PARAMDESC Recursif;

Type ELEMDESC Recursif;

Type FUNCDESC Recursif;

Type VARDESC Recursif;

Type IDLDESC Recursif;

Type ICreateTypeInfo Recursif;

Type ICreateTypeInfo2 Recursif;

Type ICreateTypeLib Recursif;

Type ICreateTypeLib2 Recursif;

Type DISPPARAMS Recursif;

Type EXCEPINFO Recursif;

Type IDispatch Recursif;

Type IEnumVARIANT Recursif;

Type BINDPTR Recursif;

Type CLEANLOCALSTORAGE Recursif;

Type ITypeComp Recursif;

Type TYPEATTR Recursif;

Type ITypeInfo Recursif;

Type CUSTDATAITEM Recursif;

Type ITypeInfo2 Recursif;

Type TLIBATTR Recursif;

Type ITypeLib Recursif;

Type ITypeLib2 Recursif;

Type ITypeChangeEvents Recursif;

Type IErrorInfo Recursif;

Type ICreateErrorInfo Recursif;

Type ISupportErrorInfo Recursif;

Type ITypeFactory Recursif;

Type ITypeMarshal Recursif;

Type IRecordInfo Recursif;

Type ARRAYDESC Recursif;



Type TYPEDESC Defaut

	Constructeur();

	Prive : 

	Destructeur();

	Public : 

	Selon vt : E_tagTYPEDESC_lptdesc_tagARRAYDESC_lpadesc_hreft Virtuel 
		Faire
	
		Cas C_lptdesc Dans (V_lptdesc, V_lptdesc_2) Faire
		
			lptdesc : TYPEDESC Virtuel;
		
		Fin Cas

		

		Cas C_lpadesc Pour V_lpadesc Faire
		
			lpadesc : Nul Ou ARRAYDESC Virtuel;
		
		Fin Cas

		

		Cas C_hreftype Pour V_hreftype Faire
		
			hreftype : Entier Virtuel;
		
		Fin Cas
	
	Fin Selon


Fin Type



Type PARAMDESCEX Defaut

	Constructeur();

	Prive : 

	Destructeur();

	Public : 

	cBytes : Entier Virtuel;

	varDefaultValue : Nul Ou Objet Virtuel;


Fin Type



Type PARAMDESC Defaut

	Constructeur();

	Prive : 

	Destructeur();

	Public : 

	pparamdescex : PARAMDESCEX Virtuel;

	wParamFlags : Entier Virtuel;


Fin Type



Type ELEMDESC Defaut

	Constructeur();

	Prive : 

	Destructeur();

	Public : 

	tdesc : Nul Ou TYPEDESC Virtuel;

	paramdesc : Nul Ou PARAMDESC Virtuel;


Fin Type



Type FUNCDESC Defaut

	Constructeur();

	Prive : 

	Destructeur();

	Public : 

	memid : Entier Virtuel;

	lprgscode : Nul Ou Tableau[?] De Nul Ou 
	Entier Virtuel;

	lprgelemdescParam : Nul Ou Tableau[?] De Nul 
		Ou ELEMDESC Virtuel;

	funckind : FUNCKIND Virtuel;

	invkind : INVOKEKIND Virtuel;

	callconv : CALLCONV Virtuel;

	cParams : Entier Virtuel;

	cParamsOpt : Entier Virtuel;

	oVft : Entier Virtuel;

	cScodes : Entier Virtuel;

	elemdescFunc : Nul Ou ELEMDESC Virtuel;

	wFuncFlags : Entier Virtuel;


Fin Type



Type VARDESC Defaut

	Constructeur();

	Prive : 

	Destructeur();

	Public : 

	memid : Entier Virtuel;

	lpstrSchema : Nul Ou Caractere Virtuel;

	Selon varkind : VARKIND_oInst_lpvarValue Virtuel Faire
	
		Cas C_oInst Dans (V_oInst, V_oInst_2, V_oInst_3) Faire
		
			oInst : Entier Virtuel;
		
		Fin Cas

		

		Cas C_lpvarValue Pour V_lpvarValue Faire
		
			lpvarValue : Nul Ou Objet Virtuel;
		
		Fin Cas
	
	Fin Selon

	elemdescVar : Nul Ou ELEMDESC Virtuel;

	wVarFlags : Entier Virtuel;


Fin Type



Type IDLDESC Defaut

	Constructeur();

	Prive : 

	Destructeur();

	Public : 

	dwReserved : Entier Virtuel;

	wIDLFlags : Entier Virtuel;


Fin Type



Type ICreateTypeInfo HeriteDe IUnknown Defaut

	Prive : 

	Destructeur();

	Public : 

	Procedure SetGuid(guid : GUID);

	Procedure SetTypeFlags(uTypeFlags : Entier);

	Procedure SetDocString(pStrDoc : Nul Ou Caractere);

	Procedure SetHelpContext(dwHelpContext : Entier);

	Procedure SetVersion(wMajorVerNum : Entier, wMinorVerNum : Entier);

	Procedure AddRefTypeInfo(pTInfo : Nul Ou ITypeInfo, 
	phRefType : Nul Ou RefereceDe Nul Ou Entier);

	Procedure AddFuncDesc(index : Entier, pFuncDesc : Nul Ou FUNCDESC);

	Procedure AddImplType(index : Entier, hRefType : Entier);

	Procedure SetImplTypeFlags(index : Entier, implTypeFlags : Entier);

	Procedure SetAlignment(cbAlignment : Entier);

	Procedure SetSchema(pStrSchema : Nul Ou Caractere);

	Procedure AddVarDesc(index : Entier, pVarDesc : Nul Ou VARDESC);

	Procedure SetFuncAndParamNames(index : Entier, rgszNames : Nul Ou 
		Tableau[?] De Nul Ou Caractere);

	Procedure SetVarName(index : Entier, szName : Nul Ou Caractere);

	Procedure SetTypeDescAlias(pTDescAlias : Nul Ou TYPEDESC);

	Procedure DefineFuncAsDllEntry(index : Entier, szDllName : Nul Ou 
	Caractere, szProcName : Nul Ou Caractere);

	Procedure SetFuncDocString(index : Entier, szDocString : Nul Ou 
	Caractere);

	Procedure SetVarDocString(index : Entier, szDocString : Nul Ou 
	Caractere);

	Procedure SetFuncHelpContext(index : Entier, dwHelpContext : Entier);

	Procedure SetVarHelpContext(index : Entier, dwHelpContext : Entier);

	Procedure SetMops(index : Entier, bstrMops : Nul Ou Caractere);

	Procedure SetTypeIdldesc(pIdlDesc : Nul Ou IDLDESC);

	Procedure LayOut();

Fin Type



Type ICreateTypeInfo2 HeriteDe ICreateTypeInfo Defaut

	Prive : 

	Destructeur();

	Public : 

	Procedure DeleteFuncDesc(index : Entier);

	Procedure DeleteFuncDescByMemId(memid : Entier, invKind : INVOKEKIND);

	Procedure DeleteVarDesc(index : Entier);

	Procedure DeleteVarDescByMemId(memid : Entier);

	Procedure DeleteImplType(index : Entier);

	Procedure SetCustData(guid : GUID, pVarVal : Nul Ou Objet);

	Procedure SetFuncCustData(index : Entier, guid : GUID, pVarVal : Nul 
		Ou Objet);

	Procedure SetParamCustData(indexFunc : Entier, indexParam : Entier, guid 
	: GUID, pVarVal : Nul Ou Objet);

	Procedure SetVarCustData(index : Entier, guid : GUID, pVarVal : Nul 
		Ou Objet);

	Procedure SetImplTypeCustData(index : Entier, guid : GUID, pVarVal : Nul 
		Ou Objet);

	Procedure SetHelpStringContext(dwHelpStringContext : Entier);

	Procedure SetFuncHelpStringContext(index : Entier, dwHelpStringContext : 
	Entier);

	Procedure SetVarHelpStringContext(index : Entier, dwHelpStringContext : 
	Entier);

	Procedure Invalidate();

	Procedure SetName(szName : Nul Ou Caractere);

Fin Type



Type ICreateTypeLib HeriteDe IUnknown Defaut

	Prive : 

	Destructeur();

	Public : 

	Fonction CreateTypeInfo(szName : Nul Ou Caractere, tkind : 
	TYPEKIND, ppCTInfo : Nul Ou ICreateTypeInfo Sortie) Retourner 
	Entier;

	Fonction SetName(szName : Nul Ou Caractere) Retourner 
	Entier;

	Fonction SetVersion(wMajorVerNum : Entier, wMinorVerNum : Entier) Retourner 
	Entier;

	Fonction SetGuid(guid : GUID) Retourner Entier;

	Fonction SetDocString(szDoc : Nul Ou Caractere) Retourner 
	Entier;

	Fonction SetHelpFileName(szHelpFileName : Nul Ou Caractere) 
		Retourner Entier;

	Fonction SetHelpContext(dwHelpContext : Entier) Retourner Entier;

	Fonction SetLcid(lcid_ : Entier) Retourner Entier;

	Fonction SetLibFlags(uLibFlags : Entier) Retourner Entier;

	Fonction SaveAllChanges() Retourner Entier;

Fin Type



Type ICreateTypeLib2 HeriteDe ICreateTypeLib Defaut

	Prive : 

	Destructeur();

	Public : 

	Procedure DeleteTypeInfo(szName : Nul Ou Caractere);

	Procedure SetCustData(guid : GUID, pVarVal : Nul Ou Objet);

	Procedure SetHelpStringContext(dwHelpStringContext : Entier);

	Procedure SetHelpStringDll(szFileName : Nul Ou Caractere);

Fin Type



Type DISPPARAMS Defaut

	Constructeur();

	Prive : 

	Destructeur();

	Public : 

	rgvarg : Nul Ou Tableau[?] De Nul Ou Objet 
		Virtuel;

	rgdispidNamedArgs : Nul Ou Tableau[?] De Nul 
		Ou Entier Virtuel;

	cArgs : Entier Virtuel;

	cNamedArgs : Entier Virtuel;


Fin Type



Type EXCEPINFO Defaut

	Constructeur();

	Prive : 

	Destructeur();

	Public : 

	wCode : Entier Virtuel;

	bstrSource : Nul Ou Caractere Virtuel;

	bstrDescription : Nul Ou Caractere Virtuel;

	bstrHelpFile : Nul Ou Caractere Virtuel;

	dwHelpContext : Entier Virtuel;

	scode : Entier Virtuel;


Fin Type



Type IDispatch HeriteDe IUnknown Defaut

	Prive : 

	Destructeur();

	Public : 

	Procedure GetTypeInfoCount(pctinfo : Entier Sortie);

	Procedure GetTypeInfo(iTInfo : Entier, lcid_ : Entier, ppTInfo : Nul 
		Ou ITypeInfo Sortie);

	Procedure GetIDsOfNames(rgszNames : Nul Ou Tableau[?] 
		De Nul Ou Caractere, lcid_ : Entier, rgDispId : Nul 
		Ou Tableau[?] De Nul Ou Entier Sortie);

	Procedure Invoke(dispIdMember : Entier, lcid_ : Entier, wFlags : Entier, 
	pDispParams : Nul Ou DISPPARAMS Entree Sortie, 
	pVarResult : Nul Ou Objet Sortie, pExcepInfo : Nul Ou 
	EXCEPINFO Sortie, puArgErr : Entier Sortie);

Fin Type



Type IEnumVARIANT HeriteDe IUnknown Defaut

	Prive : 

	Destructeur();

	Public : 

	Procedure Next(rgVar : Nul Ou Tableau[?] De Nul 
		Ou Objet Sortie);

	Procedure Skip(celt : Entier);

	Procedure Reset();

	Procedure Clone(ppEnum : Nul Ou IEnumVARIANT Sortie);

Fin Type



Type BINDPTR Defaut

	Constructeur();

	Prive : 

	Destructeur();

	Public : 

	Selon S_BINDPTR : E_lpfuncdesc_lpvardesc_lptcomp Virtuel Faire
	
		Cas C_lpfuncdesc Pour V_lpfuncdesc Faire
		
			lpfuncdesc : Nul Ou FUNCDESC Virtuel;
		
		Fin Cas

		

		Cas C_lpvardesc Pour V_lpvardesc Faire
		
			lpvardesc : Nul Ou VARDESC Virtuel;
		
		Fin Cas

		

		Cas C_lptcomp Pour V_lptcomp Faire
		
			lptcomp : Nul Ou ITypeComp Virtuel;
		
		Fin Cas
	
	Fin Selon


Fin Type



Type CLEANLOCALSTORAGE Defaut

	Constructeur();

	Prive : 

	Destructeur();

	Public : 

	pInterface : Nul Ou IUnknown Virtuel;

	pStorage : Nul Ou Objet Virtuel;

	flags : Entier Virtuel;


Fin Type



Type ITypeComp HeriteDe IUnknown Defaut

	Procedure Bind(szName : Nul Ou Caractere, lHashVal : 
	Entier, wFlags : Entier, ppTInfo : Nul Ou ITypeInfo Sortie, 
	pDescKind : DESCKIND Sortie, pBindPtr : Nul Ou BINDPTR Sortie);

	Procedure BindType(szName : Nul Ou Caractere, lHashVal : 
	Entier, ppTInfo : Nul Ou ITypeInfo Sortie, ppTComp : Nul 
		Ou ITypeComp Sortie);

Fin Type



Type TYPEATTR Defaut

	Constructeur();

	Prive : 

	Destructeur();

	Public : 

	guid : Nul Ou GUID Virtuel;

	lcid_ : Entier Virtuel;

	memidConstructor : Entier Virtuel;

	memidDestructor : Entier Virtuel;

	cbSizeInstance : Entier Virtuel;

	typekind : TYPEKIND Virtuel;

	cFuncs : Entier Virtuel;

	cVars : Entier Virtuel;

	cImplTypes : Entier Virtuel;

	cbSizeVft : Entier Virtuel;

	cbAlignment : Entier Virtuel;

	wTypeFlags : Entier Virtuel;

	wMajorVerNum : Entier Virtuel;

	wMinorVerNum : Entier Virtuel;

	tdescAlias : Nul Ou TYPEDESC Virtuel;

	idldescType : Nul Ou IDLDESC Virtuel;


Fin Type



Type ITypeInfo HeriteDe IUnknown Defaut

	Prive : 

	Destructeur();

	Public : 

	Procedure GetTypeAttr(ppTypeAttr : Nul Ou TYPEATTR Sortie);

	Procedure GetTypeComp(ppTComp : Nul Ou ITypeComp Sortie);

	Procedure GetFuncDesc(index : Entier, ppFuncDesc : Nul Ou FUNCDESC 
		Sortie);

	Procedure GetVarDesc(index : Entier, ppVarDesc : Nul Ou VARDESC 
		Sortie);

	Procedure GetNames(memid : Entier, rgBstrNames : Nul Ou Tableau[?] 
		De Nul Ou Caractere Sortie);

	Procedure GetRefTypeOfImplType(index : Entier, pRefType : Entier Sortie);

	Procedure GetImplTypeFlags(index : Entier, pImplTypeFlags : Entier Sortie);

	Procedure GetIDsOfNames(rgszNames : Nul Ou Tableau[?] 
		De Nul Ou Caractere, pMemId : Nul Ou Tableau[?] 
		De Nul Ou Entier Sortie);

	Procedure Invoke(pvInstance : Nul Ou Objet, memid : 
	Entier, wFlags : Entier, pDispParams : Nul Ou DISPPARAMS Entree 
		Sortie, pVarResult : Nul Ou Objet Sortie, 
	pExcepInfo : Nul Ou EXCEPINFO Sortie, puArgErr : Entier Sortie);

	Procedure GetDocumentation(memid : Entier, pBstrName : Nul Ou 
	Caractere Sortie, pBstrDocString : Nul Ou Caractere Sortie, 
	pdwHelpContext : Entier Sortie, pBstrHelpFile : Nul Ou Caractere 
		Sortie);

	Procedure GetDllEntry(memid : Entier, invKind : INVOKEKIND, pBstrDllName 
	: Nul Ou Caractere Sortie, pBstrName : Nul Ou 
	Caractere Sortie, pwOrdinal : Entier Sortie);

	Procedure GetRefTypeInfo(hRefType : Entier, ppTInfo : Nul Ou 
	ITypeInfo Sortie);

	Procedure AddressOfMember(memid : Entier, invKind : INVOKEKIND, ppv : Nul 
		Ou Objet Sortie);

	Procedure CreateInstance(pUnkOuter : Nul Ou IUnknown, riid 
	: GUID, ppvObj : Nul Ou Objet Sortie);

	Procedure GetMops(memid : Entier, pBstrMops : Nul Ou Caractere 
		Sortie);

	Procedure GetContainingTypeLib(ppTLib : Nul Ou ITypeLib Sortie, 
	pIndex : Entier Sortie);

	Procedure ReleaseTypeAttr(pTypeAttr : Nul Ou TYPEATTR);

	Procedure ReleaseFuncDesc(pFuncDesc : Nul Ou FUNCDESC);

	Procedure ReleaseVarDesc(pVarDesc : Nul Ou VARDESC);

Fin Type



Type CUSTDATAITEM Defaut

	Constructeur();

	Prive : 

	Destructeur();

	Public : 

	guid : Nul Ou GUID Virtuel;

	varValue : Nul Ou Objet Virtuel;


Fin Type



Type ITypeInfo2 HeriteDe ITypeInfo Defaut

	Prive : 

	Destructeur();

	Public : 

	Procedure GetTypeKind(pTypeKind : TYPEKIND Sortie);

	Procedure GetTypeFlags(pTypeFlags : Entier Sortie);

	Procedure GetFuncIndexOfMemId(memid : Entier, invKind : INVOKEKIND, 
	pFuncIndex : Entier Sortie);

	Procedure GetVarIndexOfMemId(memid : Entier, pVarIndex : Entier Sortie);

	Procedure GetCustData(guid : GUID, pVarVal : Nul Ou Objet Sortie);

	Procedure GetFuncCustData(index : Entier, guid : GUID, pVarVal : Nul 
		Ou Objet Sortie);

	Procedure GetParamCustData(indexFunc : Entier, indexParam : Entier, guid 
	: GUID, pVarVal : Nul Ou Objet Sortie);

	Procedure GetVarCustData(index : Entier, guid : GUID, pVarVal : Nul 
		Ou Objet Sortie);

	Procedure GetImplTypeCustData(index : Entier, guid : GUID, pVarVal : Nul 
		Ou Objet Sortie);

	Procedure GetDocumentation2(memid : Entier, lcid_ : Entier, 
	pbstrHelpString : Nul Ou Caractere Sortie, 
	pdwHelpStringContext : Entier Sortie, pbstrHelpStringDll : Nul Ou 
	Caractere Sortie);

	Procedure GetAllCustData(pCustData : Nul Ou Tableau[?] 
		De Nul Ou CUSTDATAITEM Sortie);

	Procedure GetAllFuncCustData(index : Entier, pCustData : Nul Ou 
		Tableau[?] De Nul Ou CUSTDATAITEM Sortie);

	Procedure GetAllParamCustData(indexFunc : Entier, indexParam : Entier, 
	pCustData : Nul Ou Tableau[?] De Nul Ou 
	CUSTDATAITEM Sortie);

	Procedure GetAllVarCustData(index : Entier, pCustData : Nul Ou 
		Tableau[?] De Nul Ou CUSTDATAITEM Sortie);

	Procedure GetAllImplTypeCustData(index : Entier, pCustData : Nul Ou 
		Tableau[?] De Nul Ou CUSTDATAITEM Sortie);

Fin Type



Type TLIBATTR Defaut

	Constructeur();

	Prive : 

	Destructeur();

	Public : 

	guid : Nul Ou GUID Virtuel;

	lcid_ : Entier Virtuel;

	syskind : SYSKIND Virtuel;

	wMajorVerNum : Entier Virtuel;

	wMinorVerNum : Entier Virtuel;

	wLibFlags : Entier Virtuel;


Fin Type



Type ITypeLib HeriteDe IUnknown Defaut

	Prive : 

	Destructeur();

	Public : 

	Procedure GetTypeInfoCount();

	Procedure GetTypeInfo(index : Entier, ppTInfo : Nul Ou ITypeInfo 
		Sortie);

	Procedure GetTypeInfoType(index : Entier, pTKind : TYPEKIND Sortie);

	Procedure GetTypeInfoOfGuid(guid : GUID, ppTinfo : Nul Ou ITypeInfo 
		Sortie);

	Procedure GetLibAttr(ppTLibAttr : Nul Ou TLIBATTR Sortie);

	Procedure GetTypeComp(ppTComp : Nul Ou ITypeComp Sortie);

	Procedure GetDocumentation(index : Entier, pBstrName : Nul Ou 
	Caractere Sortie, pBstrDocString : Nul Ou Caractere Sortie, 
	pdwHelpContext : Entier Sortie, pBstrHelpFile : Nul Ou Caractere 
		Sortie);

	Procedure IsName(szNameBuf : Nul Ou Caractere Entree 
		Sortie, lHashVal : Entier, pfName : Booleen Sortie);

	Procedure FindName(szNameBuf : Nul Ou Caractere Entree 
		Sortie, lHashVal : Entier, ppTInfo : Nul Ou Tableau[?] 
		De Nul Ou ITypeInfo Sortie, rgMemId : Nul Ou 
		Tableau[?] De Nul Ou Entier Sortie);

	Procedure ReleaseTLibAttr(pTLibAttr : Nul Ou TLIBATTR);

Fin Type



Type ITypeLib2 HeriteDe ITypeLib Defaut

	Prive : 

	Destructeur();

	Public : 

	Procedure GetCustData(guid : GUID, pVarVal : Nul Ou Objet Sortie);

	Procedure GetLibStatistics(pcUniqueNames : Entier Sortie, 
	pcchUniqueNames : Entier Sortie);

	Procedure GetDocumentation2(index : Entier, lcid_ : Entier, 
	pbstrHelpString : Nul Ou Caractere Sortie, 
	pdwHelpStringContext : Entier Sortie, pbstrHelpStringDll : Nul Ou 
	Caractere Sortie);

	Procedure GetAllCustData(pCustData : Nul Ou Tableau[?] 
		De Nul Ou CUSTDATAITEM Sortie);

Fin Type



Type ITypeChangeEvents HeriteDe IUnknown Defaut

	Prive : 

	Destructeur();

	Public : 

	Procedure RequestTypeChange(changeKind : CHANGEKIND, pTInfoBefore : Nul 
		Ou ITypeInfo, pStrName : Nul Ou Caractere, pfCancel : 
	Entier Sortie);

	Procedure AfterTypeChange(changeKind : CHANGEKIND, pTInfoAfter : Nul 
		Ou ITypeInfo, pStrName : Nul Ou Caractere);

Fin Type



Type IErrorInfo HeriteDe IUnknown Defaut

	Prive : 

	Destructeur();

	Public : 

	Procedure GetGUID(pGUID : Nul Ou GUID Sortie);

	Procedure GetSource(pBstrSource : Nul Ou Caractere Sortie);

	Procedure GetDescription(pBstrDescription : Nul Ou Caractere 
		Sortie);

	Procedure GetHelpFile(pBstrHelpFile : Nul Ou Caractere Sortie);

	Procedure GetHelpContext(pdwHelpContext : Entier Sortie);

Fin Type



Type ICreateErrorInfo HeriteDe IUnknown Defaut

	Prive : 

	Destructeur();

	Public : 

	Procedure SetGUID(rguid : GUID);

	Procedure SetSource(szSource : Nul Ou Caractere);

	Procedure SetDescription(szDescription : Nul Ou Caractere);

	Procedure SetHelpFile(szHelpFile : Nul Ou Caractere);

	Procedure SetHelpContext(dwHelpContext : Entier);

Fin Type



Type ISupportErrorInfo HeriteDe IUnknown Defaut

	Prive : 

	Destructeur();

	Public : 

	Procedure InterfaceSupportsErrorInfo(riid : GUID);

Fin Type



Type ITypeFactory HeriteDe IUnknown Defaut

	Prive : 

	Destructeur();

	Public : 

	Procedure CreateFromTypeInfo(pTypeInfo : Nul Ou ITypeInfo, 
	riid : GUID, ppv : Nul Ou IUnknown Sortie);

Fin Type



Type ITypeMarshal HeriteDe IUnknown Defaut

	Prive : 

	Destructeur();

	Public : 

	Procedure Size(pvType : Nul Ou Objet, dwDestContext : 
	Entier, pvDestContext : Nul Ou Objet, pSize : Entier Sortie);

	Procedure Marshal(pvType : Nul Ou Objet, dwDestContext : 
	Entier, pvDestContext : Nul Ou Objet, cbBufferLength : Entier, 
	pBuffer : Entier Sortie, pcbWritten : Entier Sortie);

	Procedure Unmarshal(pvType : Nul Ou Objet Sortie, 
	dwFlags : Entier, cbBufferLength : Entier, pBuffer : Nul Ou Binaire, 
	pcbRead : Entier Sortie);

	Procedure Free(pvType : Nul Ou Objet);

Fin Type



Type IRecordInfo HeriteDe IUnknown Defaut

	Prive : 

	Destructeur();

	Public : 

	Procedure RecordInit(pvNew : Nul Ou Objet Sortie);

	Procedure RecordClear(pvExisting : Nul Ou Objet);

	Procedure RecordCopy(pvExisting : Nul Ou Objet, pvNew : Nul 
		Ou Objet Sortie);

	Procedure GetGuid(pguid : Nul Ou GUID Sortie);

	Procedure GetName(pbstrName : Nul Ou Caractere Sortie);

	Procedure GetSize(pcbSize : Entier Sortie);

	Procedure GetTypeInfo(ppTypeInfo : Nul Ou ITypeInfo Sortie);

	Procedure GetField(pvData : Nul Ou Objet, szFieldName : Nul 
		Ou Caractere, pvarField : Nul Ou Objet Sortie);

	Procedure GetFieldNoCopy(pvData : Nul Ou Objet, 
	szFieldName : Nul Ou Caractere, pvarField : Nul Ou Objet 
		Sortie, ppvDataCArray : Nul Ou Objet Sortie);

	Procedure PutField(wFlags : Entier, pvData : Nul Ou Objet Entree 
		Sortie, szFieldName : Nul Ou Caractere, pvarField : Nul 
		Ou Objet);

	Procedure PutFieldNoCopy(wFlags : Entier, pvData : Nul Ou Objet 
		Entree Sortie, szFieldName : Nul Ou Caractere, 
	pvarField : Nul Ou Objet);

	Procedure GetFieldNames(rgBstrNames : Nul Ou Tableau[?] 
		De Nul Ou Caractere Sortie);

	Procedure IsMatchingType(pRecordInfo : Nul Ou IRecordInfo) 
		Retourner Booleen;

	Procedure RecordCreate() Retourner Nul Ou Objet;

	Procedure RecordCreateCopy(pvSource : Nul Ou Objet, 
	ppvDest : Nul Ou Objet Sortie);

	Procedure RecordDestroy(pvRecord : Nul Ou Objet);

Fin Type



Type SAFEARRAYBOUND Defaut

	Constructeur();

	Prive : 

	Destructeur();

	Public : 

	cElements : Entier Virtuel;

	lLbound : Entier Virtuel;


Fin Type



Type ARRAYDESC Defaut

	Constructeur();

	Prive : 

	Destructeur();

	Public : 

	tdescElem : Nul Ou TYPEDESC Virtuel;

	cDims : Entier Virtuel;

	rgbounds : Nul Ou Tableau[?] De Nul Ou 
	SAFEARRAYBOUND Virtuel;

Fin Type