source: Include/OAIdl.ab@ 35

' OAIdl.sbp
' 本来はOAIdl.idlから生成するのが正当ですが、
' これは手動で必要最低限のもののみ移植したものです。

#ifndef _INC_OAIDL_AB
#define _INC_OAIDL_AB

' verify that the <rpcndr.h> version is high enough to compile this file*/
'/*
'#ifndef __REQUIRED_RPCNDR_H_VERSION__
'#define __REQUIRED_RPCNDR_H_VERSION__ 475
'#endif
'
'#include "rpc.h"
'#include "rpcndr.h"
'
'#ifndef __RPCNDR_H_VERSION__
'#error this stub requires an updated version of <rpcndr.h>
'#endif // __RPCNDR_H_VERSION__
'
'#ifndef COM_NO_WINDOWS_H
'#include "windows.h"
'#include "ole2.h"
'#endif /*COM_NO_WINDOWS_H*/

#include <ole2.ab>
'/* header files for imported files */
'#include "objidl.h"

#ifndef __IOleAutomationTypes_INTERFACE_DEFINED__
#define __IOleAutomationTypes_INTERFACE_DEFINED__

TypeDef VARTYPE = Word ' WTypes.ab
TypeDef VARIANT_BOOL = Integer ' WTypes.ab
Const VARIANT_TRUE = (-1 As VARIANT_BOOL) ' WTypes.ab
Const VARIANT_FALSE = (0 As VARIANT_BOOL) ' WTypes.ab
TypeDef SCODE = Long
Class CY ' WTypes.ab
Public
    int64 As Int64

    Function Lo() As DWord
        Return GetDWord(VarPtr(int64))
    End Function

    Sub Lo(lo As DWord)
        SetDWord(VarPtr(int64), lo)
    End Sub

    Function Hi() As Long
        Return GetDWord(VarPtr(int64) + SizeOf (DWord)) As Long
    End Function

    Sub Lo(lo As Long)
        SetDWord(VarPtr(int64) + SizeOf (DWord, lo As DWord))
    End Sub
End Class

Class DECIMAL ' WTypes.ab
Public
    wReserved As Word
    signscale As Word
    Hi32 As DWord
    Lo64 As QWord

    Function scale() As Byte
        Return GetByte(VarPtr(signscale))
    End Function

    Sub scale(s As Byte)
        SetByte(VarPtr(signscale), s)
    End Sub

    Function sign() As Byte
        Return GetByte(VarPtr(signscale) + SizeOf (Byte))
    End Function

    Sub sign(s As Byte)
        SetByte(VarPtr(signscale) + SizeOf (Byte), s)
    End Sub

    Function Lo32() As DWord
        Return GetDWord(VarPtr(Lo64) As *DWord)
    End Function

    Sub Lo32(l As DWord)
        SetDWord(VarPtr(Lo64) As *DWord, l)
    End Sub


    Function Mid32() As DWord
        Return GetDWord(VarPtr(Lo64) As *DWord)
    End Function

    Sub Mid32(m As DWord)
        SetDWord(VarPtr(Lo64) As *DWord + SizeOf (DWord), m)
    End Sub
End Class

TypeDef DATE = Double ' WTypes.ab

Interface IRecordInfo
    Inherits IUnknown
End Interface


/* interface IOleAutomationTypes */
/* [auto_handle][unique][version] */

TypeDef CURRENCY = CY

Type SAFEARRAYBOUND
    cElements As DWord
    lLbound As Long
End Type

Typedef LPSAFEARRAYBOUND = *SAFEARRAYBOUND

Typedef wireVARIANT = VoidPtr '/* [unique] */ *_wireVARIANT

Typedef wireBRECORD = VoidPtr '/* [unique] */ *_wireBRECORD

' Type SAFEARR_BSTR;
' Type SAFEARR_UNKNOWN;
' Type SAFEARR_DISPATCH;
' Type SAFEARR_VARIANT;
' Type SAFEARR_BRECORD;
' Type SAFEARR_HAVEIID;

/* [v1_enum] */
/*
Const Enum SF_TYPE
    SF_ERROR = VT_ERROR
    SF_I1 = VT_I1
    SF_I2 = VT_I2
    SF_I4 = VT_I4
    SF_I8 = VT_I8
    SF_BSTR = VT_BSTR
    SF_UNKNOWN = VT_UNKNOWN
    SF_DISPATCH = VT_DISPATCH
    SF_VARIANT = VT_VARIANT
    SF_RECORD = VT_RECORD
    SF_HAVEIID = VT_UNKNOWN Or VT_RESERVED
End Enum
*/
' Type SAFEARRAYUNION

' Type /* [unique] */ wireSAFEARRAY

TypeDef wirePSAFEARRAY = VoidPtr '/* [unique] */ *wireSAFEARRAY

Type SAFEARRAY
    cDims As Word
    fFeatures As Word
    cbElements As DWord
    cLocks As DWord
    pvData As VoidPtr
    rgsabound[ELM(1)] As SAFEARRAYBOUND
End Type

TypeDef LPSAFEARRAY = /* [wire_marshal] */ *SAFEARRAY

Const FADF_AUTO = &h1
Const FADF_STATIC = &h2
Const FADF_EMBEDDED = &h4
Const FADF_FIXEDSIZE = &h10
Const FADF_RECORD = &h20
Const FADF_HAVEIID = &h40
Const FADF_HAVEVARTYPE = &h80
Const FADF_BSTR = &h100
Const FADF_UNKNOWN = &h200
Const FADF_DISPATCH = &h400
Const FADF_VARIANT = &h800
Const FADF_RESERVED = &hf008

Class VARIANT
Public
    vt As VARTYPE
    wReserved1 As Word
    wReserved2 As Word
    wReserved3 As Word
    val As QWord

    Function llVal() As Int64
        Return val As Int64
    End Function

    Sub llVal(v As Int64)
        val = v As QWord
    End Sub

    Function lVal() As Long
        Return val As DWord As Long
    End Function

    Sub lVal(v As Long)
        val = v As DWord
    End Sub

    Function bVal() As Byte
        Return val As Byte
    End Function

    Sub bVal(v As Byte)
        val = v
    End Sub

    Function iVal() As Integer
        Return val As Word As Integer
    End Function

    Sub iVal(v As Integer)
        val = v As Word
    End Sub

    Function fltVal() As Single
        Return GetSingle(VarPtr(val) As *Single)
    End Function

    Sub fltVal(v As Single)
        SetSingle(VarPtr(val) As *Single, v)
    End Sub

    Function dblVal() As Double
        Return GetDouble(VarPtr(val) As *Double)
    End Function

    Sub dblVal(v As Double)
        SetDouble(VarPtr(val) As *Double, v)
    End Sub

    ' SizeOf (VARIANT_BOOL) = 2
    Function boolVal() As VARIANT_BOOL
        Return val As Word As VARIANT_BOOL
    End Function

    Sub boolVal(v As VARIANT_BOOL)
        val = v As Word
    End Sub

    ' SizeOf (SCODE) = 4
    Function scode() As SCODE
        Return val As DWord As SCODE
    End Function

    Sub scode(v As SCODE)
        val = v As DWord
    End Sub

    ' SizeOf (CY) = 8
    Function cyVal() As CY
        SetQWord(VarPtr(cyVal), val)
    End Function

    Sub cyVal(v As CY)
        SetQWord(VarPtr(val), GetQWord(VarPtr(v)))
    End Sub

    ' SizeOf (DATE) = 8
    Function date() As DATE
        SetQWord(VarPtr(date), val)
    End Function

    Sub date(v As DATE)
        SetQWord(VarPtr(val), GetQWord(VarPtr(v)))
    End Sub

    Function bstrVal() As BSTR
        Return val As ULONG_PTR As BSTR
    End Function

    Sub bstrVal(v As BSTR)
        val = v As ULONG_PTR
    End Sub

    Function punkVal() As *IUnknown
        Return val As ULONG_PTR As *IUnknown
    End Function

    Sub punkVal(v As *IUnknown)
        val = v As ULONG_PTR
    End Sub

    Function pdispVal() As *IDispatch
        Return val As ULONG_PTR As *IDispatch
    End Function

    Sub pdispVal(v As *IDispatch)
        val = v As ULONG_PTR
    End Sub

    Function parray() As *SAFEARRAY
        Return val As ULONG_PTR As *SAFEARRAY
    End Function

    Sub parray(v As *SAFEARRAY)
        val = v As ULONG_PTR
    End Sub

    Function pbVal() As *Byte
        Return val As ULONG_PTR As *Byte
    End Function

    Sub pbVal(v As *Byte)
        val = v As ULONG_PTR
    End Sub

    Function piVal() As *Integer
        Return val As ULONG_PTR As *Integer
    End Function

    Sub piVal(v As *Integer)
        val = v As ULONG_PTR
    End Sub

    Function plVal() As *Long
        Return val As ULONG_PTR As *Long
    End Function

    Sub plVal(v As *Long)
        val = v As ULONG_PTR
    End Sub

    Function pllVal() As *Int64
        Return val As ULONG_PTR As *Int64
    End Function

    Sub pllVal(v As *Int64)
        val = v As ULONG_PTR
    End Sub

    Function pfltVal() As *Single
        Return val As ULONG_PTR As *Single
    End Function

    Sub pfltVal(v As *Single)
        val = v As ULONG_PTR
    End Sub

    Function pdblVal() As *Double
        Return val As ULONG_PTR As *Double
    End Function

    Sub pdblVal(v As *Double)
        val = v As ULONG_PTR
    End Sub

    Function pboolVal() As *VARIANT_BOOL
        Return val As ULONG_PTR As *VARIANT_BOOL
    End Function

    Sub pboolVal(v As *VARIANT_BOOL)
        val = v As ULONG_PTR
    End Sub

    Function pscode() As *SCODE
        Return val As ULONG_PTR As *SCODE
    End Function

    Sub pscode(v As *SCODE)
        val = v As ULONG_PTR
    End Sub

    Function pcyVal() As *CY
        Return val As ULONG_PTR As *CY
    End Function

    Sub pcyVal(v As *CY)
        val = v As ULONG_PTR
    End Sub

    Function pdate() As *DATE
        Return val As ULONG_PTR As *DATE
    End Function

    Sub pdate(v As *DATE)
        val = v As ULONG_PTR
    End Sub

    Function pbstrVal() As *BSTR
        Return val As ULONG_PTR As *BSTR
    End Function

    Sub pbstrVal(v As *BSTR)
        val = v As ULONG_PTR
    End Sub

    Function ppunkVal() As **IUnknown
        Return val As ULONG_PTR As **IUnknown
    End Function

    Sub ppunkVal(v As **IUnknown)
        val = v As ULONG_PTR
    End Sub

    Function ppdispVal() As **IDispatch
        Return val As ULONG_PTR As **IDispatch
    End Function

    Sub ppdispVal(v As **IDispatch)
        val = v As ULONG_PTR
    End Sub

    Function pparray() As **SAFEARRAY
        Return val As ULONG_PTR As **SAFEARRAY
    End Function

    Sub pparray(v As **SAFEARRAY)
        val = v As ULONG_PTR
    End Sub

    Function pvarVal() As *VARIANT
        Return val As ULONG_PTR As *VARIANT
    End Function

    Sub pvarVal(v As *VARIANT)
        val = v As ULONG_PTR
    End Sub
/*
    Function byref() As VoidPtr
        Return val As ULONG_PTR As VoidPtr
    End Function

    Sub byref(v As VoidPtr)
        val = v As ULONG_PTR
    End Sub
*/
    Function cVal() As Char
        Return val As Byte As Char
    End Function

    Sub cVal(v As Char)
        val = v As Byte
    End Sub

    Function uiVal() As Word
        Return val As Word
    End Function

    Sub uiVal(v As Word)
        val = v
    End Sub

    Function ulVal() As DWord
        Return val As DWord
    End Function

    Sub ulVal(v As DWord)
        val = v
    End Sub

    Function ullVal() As QWord
        Return val
    End Function

    Sub ullVal(v As QWord)
        val = v
    End Sub

    Function intVal() As Long
        Return val As DWord As Long
    End Function

    Sub intVal(v As Long)
        val = v As DWord
    End Sub

    Function uintVal() As DWord
        Return val As DWord
    End Function

    Sub uintVal(v As DWord)
        val = v
    End Sub

    Function pdecVal() As *DECIMAL
        Return val As ULONG_PTR As *DECIMAL
    End Function

    Sub pdecVal(v As *DECIMAL)
        val = v As ULONG_PTR
    End Sub

    Function pcVal() As *Char
        Return val As ULONG_PTR As *Char
    End Function

    Sub pcVal(v As *Char)
        val = v As ULONG_PTR
    End Sub

    Function puiVal() As *Word
        Return val As ULONG_PTR As *Word
    End Function

    Sub puiVal(v As *Word)
        val = v As ULONG_PTR
    End Sub

    Function pulVal() As *DWord
        Return val As ULONG_PTR As *DWord
    End Function

    Sub pulVal(v As *DWord)
        val = v As ULONG_PTR
    End Sub

    Function pullVal() As *QWord
        Return val As ULONG_PTR As *QWord
    End Function

    Sub pullVal(v As *QWord)
        val = v As ULONG_PTR
    End Sub

    Function pintVal() As *Long
        Return val As ULONG_PTR As *Long
    End Function

    Sub pintVal(v As *Long)
        val = v As ULONG_PTR
    End Sub

    Function puintVal() As *DWord
        Return val As ULONG_PTR As *DWord
    End Function

    Sub puintVal(v As *DWord)
        val = v As ULONG_PTR
    End Sub

    Function pvRecord() As VoidPtr
        Return val As ULONG_PTR As VoidPtr
    End Function

    Sub pvRecord(v As VoidPtr)
        val = v As ULONG_PTR
    End Sub

    Function pRecInfo() As *IRecordInfo
        Return (val As ULONG_PTR + SizeOf (VoidPtr)) As *IRecordInfo
    End Function

    Sub pRecInfo(v As *IRecordInfo)
        Set_LONG_PTR((VarPtr(val) As ULONG_PTR + SizeOf (VoidPtr)) As VoidPtr, v As LONG_PTR)
    End Sub

    Function decVal() As DECIMAL
        Dim p As *DECIMAL
        p = VarPtr(This) As *DECIMAL
        Return p[0]
    End Function

    Sub decVal(v As DECIMAL)
        Dim p As *DECIMAL
        p = VarPtr(This) As *DECIMAL
        p[0] = v
    End Sub
End Class

TypeDef LPVARIANT = *VARIANT
TypeDef VARIANTARG = VARIANT
TypeDef LPVARIANTARG =* VARIANT

' Type _wireBRECORD
' Type _wireVARIANT

TypeDef DISPID = Long

TypeDef MEMBERID = DISPID

TypeDef HREFTYPE = DWord

/* [v1_enum] */
Const Enum TYPEKIND
    TKIND_ENUM ' = 0
    TKIND_RECORD ' = TKIND_ENUM + 1
    TKIND_MODULE ' = TKIND_RECORD + 1
    TKIND_INTERFACE ' = TKIND_MODULE + 1
    TKIND_DISPATCH ' = TKIND_INTERFACE + 1
    TKIND_COCLASS ' = TKIND_DISPATCH + 1
    TKIND_ALIAS ' = TKIND_COCLASS + 1
    TKIND_UNION ' = TKIND_ALIAS + 1
    TKIND_MAX ' = TKIND_UNION + 1
End Enum

Class TYPEDESC
Private
    p As VoidPtr
'    /* [switch_is][switch_type] */ Union
'        /* [case()] */ lptdesc As *TYPEDESC
'        /* [case()] */ lpadesc As *ARRAYDESC
'        /* [case()] */ hreftype As HREFTYPE
'        /* [default] */  /* Empty union arm */
'    End Union
Public
    vt As VARTYPE

    Function lptdesc() As *TYPEDESC
        Return p
    End Function

    Sub lptdesc(ptd As *TYPEDESC)
        p = ptd
    End Sub

    Function lpadesc() As *ARRAYDESC
        Return p
    End Function

    Sub lpadesc(pad As *ARRAYDESC)
        p = pad
    End Sub

    Function hreftype() As *HREFTYPE
        Return p
    End Function

    Sub hreftype(prd As *HREFTYPE)
        p = prd
    End Sub
End Class

Type ARRAYDESC
    tdescElem As TYPEDESC
    cDims As Word
    /* [size_is] */ rgbounds[ELM(1)] As SAFEARRAYBOUND
End Type

Type PARAMDESCEX
    cBytes As DWord
    varDefaultValue As VARIANTARG
End Type

Typedef LPPARAMDESCEX = *PARAMDESCEX

Type PARAMDESC
    pparamdescex As LPPARAMDESCEX
    USHORT wParamFlags As Word
End Type

TypeDef LPPARAMDESC = *PARAMDESC

Const PARAMFLAG_NONE = 0
Const PARAMFLAG_FIN = &h1
Const PARAMFLAG_FOUT = &h2
Const PARAMFLAG_FLCID = &h4
Const PARAMFLAG_FRETVAL = &h8
Const PARAMFLAG_FOPT = &h10
Const PARAMFLAG_FHASDEFAULT = &h20
Const PARAMFLAG_FHASCUSTDATA = &h40

Type IDLDESC
    dwReserved As ULONG_PTR
    wIDLFlags As Word
End Type

TypeDef LPIDLDESC = *IDLDESC

Const IDLFLAG_NONE = PARAMFLAG_NONE
Const IDLFLAG_FIN = PARAMFLAG_FIN
Const IDLFLAG_FOUT = PARAMFLAG_FOUT
Const IDLFLAG_FLCID = PARAMFLAG_FLCID
Const IDLFLAG_FRETVAL = PARAMFLAG_FRETVAL

Class ELEMDESC
Public
    tdesc As TYPEDESC
    idldesc As IDLDESC

    Function paramdesc() As PARAMDESC
        Dim p As *PARAMDESC
        p = VarPtr(idldesc) As *PARAMDESC
        Return p[0]
    End Function

    Sub paramdesc(pd As PARAMDESC)
        Dim p As *PARAMDESC
        p = VarPtr(idldesc) As *PARAMDESC
        p[0] = pd
    End Sub
End Class

Type TYPEATTR
    guid As GUID
    lcid As LCID
    dwReserved As DWord
    memidConstructor As MEMBERID
    memidDestructor As MEMBERID
    lpstrSchema As LPOLESTR
    cbSizeInstance As DWord
    typekind As TYPEKIND
    cFuncs As Word
    cVars As Word
    cImplTypes As Word
    cbSizeVft As Word
    cbAlignment As Word
    wTypeFlags As Word
    wMajorVerNum As Word
    wMinorVerNum As Word
    tdescAlias As TYPEDESC
    idldescType As IDLDESC
End Type

TypeDef LPTYPEATTR = *TYPEATTR

Type DISPPARAMS
    /* [size_is] */ rgvarg As *VARIANTARG
    /* [size_is] */ rgdispidNamedArgs As *DISPID
    cArgs As DWord
    cNamedArgs As DWord
End Type

Type EXCEPINFO
    wCode As Word
    wReserved As Word
    bstrSource As BSTR
    bstrDescription As BSTR
    bstrHelpFile As BSTR
    dwHelpContext As DWord
    pvReserved As VoidPtr
    pfnDeferredFillIn = *Function(p As *EXCEPINFO) As HRESULT
    scode As SCODE
End Type

TypeDef LPEXCEPINFO = *EXCEPINFO

/* [v1_enum] */
Const Enum CALLCONV
    CC_FASTCALL = 0
    CC_CDECL    = 1
    CC_MSCPASCAL    = CC_CDECL + 1
    CC_PASCAL   = CC_MSCPASCAL
    CC_MACPASCAL    = CC_PASCAL + 1
    CC_STDCALL  = CC_MACPASCAL + 1
    CC_FPFASTCALL   = CC_STDCALL + 1
    CC_SYSCALL  = CC_FPFASTCALL + 1
    CC_MPWCDECL = CC_SYSCALL + 1
    CC_MPWPASCAL    = CC_MPWCDECL + 1
    CC_MAX  = CC_MPWPASCAL + 1
End Enum

/* [v1_enum] */
Const Enum FUNCKIND
    FUNC_VIRTUAL = 0
    FUNC_PUREVIRTUAL = FUNC_VIRTUAL + 1
    FUNC_NONVIRTUAL = FUNC_PUREVIRTUAL + 1
    FUNC_STATIC = FUNC_NONVIRTUAL + 1
    FUNC_DISPATCH = FUNC_STATIC + 1
End Enum

/* [v1_enum] */
Const Enum INVOKEKIND
    INVOKE_FUNC = 1
    INVOKE_PROPERTYGET  = 2
    INVOKE_PROPERTYPUT  = 4
    INVOKE_PROPERTYPUTREF   = 8
End Enum

Type FUNCDESC
    memid As MEMBERID
    /* [size_is] */ lprgscode As *SCODE
    /* [size_is] */ lprgelemdescParam As *ELEMDESC
    funckind As FUNCKIND
    invkind As INVOKEKIND
    callconv As CALLCONV
    cParams As Integer
    cParamsOpt As Integer
    oVft As Integer
    cScodes As Integer
    elemdescFunc As ELEMDESC
    wFuncFlags As Word
End Type

TypeDef LPFUNCDESC = *FUNCDESC

/* [v1_enum] */
Const Enum VARKIND
    VAR_PERINSTANCE = 0
    VAR_STATIC = VAR_PERINSTANCE + 1
    VAR_CONST = VAR_STATIC + 1
    VAR_DISPATCH = VAR_CONST + 1
End Enum

Const IMPLTYPEFLAG_FDEFAULT = &h1
Const IMPLTYPEFLAG_FSOURCE = &h2
Const IMPLTYPEFLAG_FRESTRICTED = &h4
Const IMPLTYPEFLAG_FDEFAULTVTABLE = &h8

Class VARDESC
Public
    memid As MEMBERID
    lpstrSchema As LPOLESTR
'   /* [switch_is][switch_type] */ Union
'       /* [case()] */ oInst As DWord
        /* [case()] */ lpvarValue As *VARIANT
'   End Union
    elemdescVar As ELEMDESC
    wVarFlags As Word
    varkind As VARKIND

    Function oInst() As DWord
        Return lpvarValue As ULONG_PTR As DWord
    End Function

    Sub oInst(o As DWord)
        lpvarValue = o As ULONG_PTR As *VARIANT
    End Sub
End Class

TypeDef LPVARDESC = VARDESC

Const Enum TYPEFLAGS
    TYPEFLAG_FAPPOBJECT = &h1
    TYPEFLAG_FCANCREATE = &h2
    TYPEFLAG_FLICENSED = &h4
    TYPEFLAG_FPREDECLID = &h8
    TYPEFLAG_FHIDDEN = &h10
    TYPEFLAG_FCONTROL = &h20
    TYPEFLAG_FDUAL = &h40
    TYPEFLAG_FNONEXTENSIBLE = &h80
    TYPEFLAG_FOLEAUTOMATION = &h100
    TYPEFLAG_FRESTRICTED = &h200
    TYPEFLAG_FAGGREGATABLE = &h400
    TYPEFLAG_FREPLACEABLE = &h800
    TYPEFLAG_FDISPATCHABLE = &h1000
    TYPEFLAG_FREVERSEBIND = &h2000
    TYPEFLAG_FPROXY = &h4000
End Enum

Enum FUNCFLAGS
    FUNCFLAG_FRESTRICTED = &h1
    FUNCFLAG_FSOURCE = &h2
    FUNCFLAG_FBINDABLE = &h4
    FUNCFLAG_FREQUESTEDIT = &h8
    FUNCFLAG_FDISPLAYBIND = &h10
    FUNCFLAG_FDEFAULTBIND = &h20
    FUNCFLAG_FHIDDEN = &h40
    FUNCFLAG_FUSESGETLASTERROR = &h80
    FUNCFLAG_FDEFAULTCOLLELEM = &h100
    FUNCFLAG_FUIDEFAULT = &h200
    FUNCFLAG_FNONBROWSABLE = &h400
    FUNCFLAG_FREPLACEABLE = &h800
    FUNCFLAG_FIMMEDIATEBIND = &h1000
End Enum

Const Enum VARFLAGS
    VARFLAG_FREADONLY = &h1
    VARFLAG_FSOURCE = &h2
    VARFLAG_FBINDABLE = &h4
    VARFLAG_FREQUESTEDIT = &h8
    VARFLAG_FDISPLAYBIND = &h10
    VARFLAG_FDEFAULTBIND = &h20
    VARFLAG_FHIDDEN = &h40
    VARFLAG_FRESTRICTED = &h80
    VARFLAG_FDEFAULTCOLLELEM = &h100
    VARFLAG_FUIDEFAULT = &h200
    VARFLAG_FNONBROWSABLE = &h400
    VARFLAG_FREPLACEABLE = &h800
    VARFLAG_FIMMEDIATEBIND = &h1000
End Enum

Type /* [wire_marshal] */ CLEANLOCALSTORAGE
    pInterface As *IUnknown
    pStorage As VoidPtr
    flags As DWord
End Type

Type CUSTDATAITEM
    guid As GUID
    varValue As VARIANTARG
End Type

TypeDef LPCUSTDATAITEM = *CUSTDATAITEM

Type CUSTDATA
    cCustData As DWord
    /* [size_is] */ prgCustData As *CUSTDATAITEM
End Type

TypeDef LPCUSTDATA = *CUSTDATA

#endif /* __IOleAutomationTypes_INTERFACE_DEFINED__ */

#ifdef __UNDEFINED__

#ifndef __ICreateTypeInfo_INTERFACE_DEFINED__
#define __ICreateTypeInfo_INTERFACE_DEFINED__

/* interface ICreateTypeInfo */
/* [local][unique][uuid][object] */

'typedef /* [unique] */ ICreateTypeInfo *LPCREATETYPEINFO;


EXTERN_C const IID IID_ICreateTypeInfo;

    MIDL_INTERFACE("00020405-0000-0000-C000-000000000046")
    ICreateTypeInfo : public IUnknown
    {
    public:
        Function SetGuid(
            /* [in] */ REFGUID guid) As HRESULT

        Function SetTypeFlags(
            /* [in] */ UINT uTypeFlags) As HRESULT

        Function SetDocString(
            /* [in] */ LPOLESTR pStrDoc) As HRESULT

        Function SetHelpContext(
            /* [in] */ DWORD dwHelpContext) As HRESULT

        Function SetVersion(
            /* [in] */ WORD wMajorVerNum,
            /* [in] */ WORD wMinorVerNum) As HRESULT

        Function AddRefTypeInfo(
            /* [in] */ ITypeInfo *pTInfo,
            /* [in] */ HREFTYPE *phRefType) As HRESULT

        Function AddFuncDesc(
            /* [in] */ UINT index,
            /* [in] */ FUNCDESC *pFuncDesc) As HRESULT

        Function AddImplType(
            /* [in] */ UINT index,
            /* [in] */ HREFTYPE hRefType) As HRESULT

        Function SetImplTypeFlags(
            /* [in] */ UINT index,
            /* [in] */ INT implTypeFlags) As HRESULT

        Function SetAlignment(
            /* [in] */ WORD cbAlignment) As HRESULT

        Function SetSchema(
            /* [in] */ LPOLESTR pStrSchema) As HRESULT

        Function AddVarDesc(
            /* [in] */ UINT index,
            /* [in] */ VARDESC *pVarDesc) As HRESULT

        Function SetFuncAndParamNames(
            /* [in] */ UINT index,
            /* [in][size_is][in] */ LPOLESTR *rgszNames,
            /* [in] */ UINT cNames) As HRESULT

        Function SetVarName(
            /* [in] */ UINT index,
            /* [in] */ LPOLESTR szName) As HRESULT

        Function SetTypeDescAlias(
            /* [in] */ TYPEDESC *pTDescAlias) As HRESULT

        Function DefineFuncAsDllEntry(
            /* [in] */ UINT index,
            /* [in] */ LPOLESTR szDllName,
            /* [in] */ LPOLESTR szProcName) As HRESULT

        Function SetFuncDocString(
            /* [in] */ UINT index,
            /* [in] */ LPOLESTR szDocString) As HRESULT

        Function SetVarDocString(
            /* [in] */ UINT index,
            /* [in] */ LPOLESTR szDocString) As HRESULT

        Function SetFuncHelpContext(
            /* [in] */ UINT index,
            /* [in] */ DWORD dwHelpContext) As HRESULT

        Function SetVarHelpContext(
            /* [in] */ UINT index,
            /* [in] */ DWORD dwHelpContext) As HRESULT

        Function SetMops(
            /* [in] */ UINT index,
            /* [in] */ BSTR bstrMops) As HRESULT

        Function SetTypeIdldesc(
            /* [in] */ IDLDESC *pIdlDesc) As HRESULT

        Function LayOut( void) As HRESULT

    };

#endif  /* __ICreateTypeInfo_INTERFACE_DEFINED__ */


#ifndef __ICreateTypeInfo2_INTERFACE_DEFINED__
#define __ICreateTypeInfo2_INTERFACE_DEFINED__

/* interface ICreateTypeInfo2 */
/* [local][unique][uuid][object] */

'typedef /* [unique] */ ICreateTypeInfo2 *LPCREATETYPEINFO2;


EXTERN_C const IID IID_ICreateTypeInfo2;

    MIDL_INTERFACE("0002040E-0000-0000-C000-000000000046")
    ICreateTypeInfo2 : public ICreateTypeInfo
    {
    public:
        Function DeleteFuncDesc(
            /* [in] */ UINT index) As HRESULT

        Function DeleteFuncDescByMemId(
            /* [in] */ MEMBERID memid,
            /* [in] */ INVOKEKIND invKind) As HRESULT

        Function DeleteVarDesc(
            /* [in] */ UINT index) As HRESULT

        Function DeleteVarDescByMemId(
            /* [in] */ MEMBERID memid) As HRESULT

        Function DeleteImplType(
            /* [in] */ UINT index) As HRESULT

        Function SetCustData(
            /* [in] */ REFGUID guid,
            /* [in] */ VARIANT *pVarVal) As HRESULT

        Function SetFuncCustData(
            /* [in] */ UINT index,
            /* [in] */ REFGUID guid,
            /* [in] */ VARIANT *pVarVal) As HRESULT

        Function SetParamCustData(
            /* [in] */ UINT indexFunc,
            /* [in] */ UINT indexParam,
            /* [in] */ REFGUID guid,
            /* [in] */ VARIANT *pVarVal) As HRESULT

        Function SetVarCustData(
            /* [in] */ UINT index,
            /* [in] */ REFGUID guid,
            /* [in] */ VARIANT *pVarVal) As HRESULT

        Function SetImplTypeCustData(
            /* [in] */ UINT index,
            /* [in] */ REFGUID guid,
            /* [in] */ VARIANT *pVarVal) As HRESULT

        Function SetHelpStringContext(
            /* [in] */ ULONG dwHelpStringContext) As HRESULT

        Function SetFuncHelpStringContext(
            /* [in] */ UINT index,
            /* [in] */ ULONG dwHelpStringContext) As HRESULT

        Function SetVarHelpStringContext(
            /* [in] */ UINT index,
            /* [in] */ ULONG dwHelpStringContext) As HRESULT

        Function Invalidate( void) As HRESULT

        Function SetName(
            /* [in] */ LPOLESTR szName) As HRESULT

    };



#endif  /* __ICreateTypeInfo2_INTERFACE_DEFINED__ */


#ifndef __ICreateTypeLib_INTERFACE_DEFINED__
#define __ICreateTypeLib_INTERFACE_DEFINED__

/* interface ICreateTypeLib */
/* [local][unique][uuid][object] */

'typedef /* [unique] */ ICreateTypeLib *LPCREATETYPELIB;


EXTERN_C const IID IID_ICreateTypeLib;

    MIDL_INTERFACE("00020406-0000-0000-C000-000000000046")
    ICreateTypeLib : public IUnknown
    {
    public:
        Function CreateTypeInfo(
            /* [in] */ LPOLESTR szName,
            /* [in] */ TYPEKIND tkind,
            /* [out] */ ICreateTypeInfo **ppCTInfo) As HRESULT

        Function SetName(
            /* [in] */ LPOLESTR szName) As HRESULT

        Function SetVersion(
            /* [in] */ WORD wMajorVerNum,
            /* [in] */ WORD wMinorVerNum) As HRESULT

        Function SetGuid(
            /* [in] */ REFGUID guid) As HRESULT

        Function SetDocString(
            /* [in] */ LPOLESTR szDoc) As HRESULT

        Function SetHelpFileName(
            /* [in] */ LPOLESTR szHelpFileName) As HRESULT

        Function SetHelpContext(
            /* [in] */ DWORD dwHelpContext) As HRESULT

        Function SetLcid(
            /* [in] */ LCID lcid) As HRESULT

        Function SetLibFlags(
            /* [in] */ UINT uLibFlags) As HRESULT

        Function SaveAllChanges( void) As HRESULT

    };


#endif  /* __ICreateTypeLib_INTERFACE_DEFINED__ */


#ifndef __ICreateTypeLib2_INTERFACE_DEFINED__
#define __ICreateTypeLib2_INTERFACE_DEFINED__

/* interface ICreateTypeLib2 */
/* [local][unique][uuid][object] */

typedef /* [unique] */ ICreateTypeLib2 *LPCREATETYPELIB2;


EXTERN_C const IID IID_ICreateTypeLib2;

    MIDL_INTERFACE("0002040F-0000-0000-C000-000000000046")
    ICreateTypeLib2 : public ICreateTypeLib
    {
    public:
        Function DeleteTypeInfo(
            /* [in] */ LPOLESTR szName) As HRESULT

        Function SetCustData(
            /* [in] */ REFGUID guid,
            /* [in] */ VARIANT *pVarVal) As HRESULT

        Function SetHelpStringContext(
            /* [in] */ ULONG dwHelpStringContext) As HRESULT

        Function SetHelpStringDll(
            /* [in] */ LPOLESTR szFileName) As HRESULT

    };


#endif  /* __ICreateTypeLib2_INTERFACE_DEFINED__ */

#endif '__UNDECLARED__

#ifndef __IDispatch_INTERFACE_DEFINED__
#define __IDispatch_INTERFACE_DEFINED__

/* interface IDispatch */
/* [unique][uuid][object] */

Typedef LPDISPATCH = /* [unique] */ *IDispatch

Const DISPID_UNKNOWN = -1
Const DISPID_VALUE = 0
Const DISPID_PROPERTYPUT = -3
Const DISPID_NEWENUM = -4
Const DISPID_EVALUATE = -5
Const DISPID_CONSTRUCTOR = -6
Const DISPID_DESTRUCTOR = -7
Const DISPID_COLLECT = -8

/* The range -500 through -999 is reserved for Controls */
/* The range 0x80010000 through 0x8001FFFF is reserved for Controls */
/* The range -5000 through -5499 is reserved for ActiveX Accessability */
/* The range -2000 through -2499 is reserved for VB5 */
/* The range -3900 through -3999 is reserved for Forms */
/* The range -5500 through -5550 is reserved for Forms */
/* The remainder of the negative DISPIDs are reserved for future use */

Dim IID_IDispatch = [&h00020400, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID

Interface IDispatch
    Inherits IUnknown

    Function GetTypeInfoCount(
        /* [out] */ ByRef pctinfo As DWord) As HRESULT
    Function GetTypeInfo(
        /* [in] */ iTInfo As DWord,
        /* [in] */ lcid As LCID,
        /* [out] */ ByRef pTInfo As VoidPtr /* *ITypeInfo */) As HRESULT
    Function GetIDsOfNames(
        /* [in] */ ByRef riid As IID,
        /* [size_is][in] */ ByRef rgszNames As LPOLESTR,
        /* [in] */ cNames As DWord,
        /* [in] */ lcid As LCID,
        /* [size_is][out] */ ByRef rgDispId As DISPID) As HRESULT
    Function /* [local] */ Invoke(
        /* [in] */ dispIdMember As DISPID,
        /* [in] */ ByRef riid As IID,
        /* [in] */ lcid As LCID,
        /* [in] */ wFlags As Word,
        /* [out][in] */ ByRef pDispParams As DISPPARAMS,
        /* [out] */ ByRef pVarResult As VARIANT,
        /* [out] */ ByRef pExcepInfo As EXCEPINFO,
        /* [out] */ ByRef puArgErr As DWord) As HRESULT
End Interface

#endif  /* __IDispatch_INTERFACE_DEFINED__ */

#ifndef __IEnumVARIANT_INTERFACE_DEFINED__
#define __IEnumVARIANT_INTERFACE_DEFINED__

/* interface IEnumVARIANT */
/* [unique][uuid][object] */

Typedef /* [unique] */ LPENUMVARIANT = *IEnumVARIANT

Dim IID_IEnumVARIANT = [&h00020404, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID

Interface IEnumVARIANT
    Inherits IUnknown

    /* [local] */ Function Next(
        /* [in] */ celt As DWord,
        /* [length_is][size_is][out] */ rgVar As *VARIANT,
        /* [out] */ pCeltFetched As *DWord) As HRESULT
    Function Skip(
        /* [in] */ celt As DWord) As HRESULT
    Function Reset() As HRESULT
    Function Clone(
        /* [out] */ ByRef pEnum As *IEnumVARIANT) As HRESULT

End Interface

#endif  /* __IEnumVARIANT_INTERFACE_DEFINED__ */

#ifdef __UNDECLARED__

#ifndef __ITypeComp_INTERFACE_DEFINED__
#define __ITypeComp_INTERFACE_DEFINED__

/* interface ITypeComp */
/* [unique][uuid][object] */

typedef /* [unique] */ ITypeComp *LPTYPECOMP;

typedef /* [v1_enum] */
enum tagDESCKIND
    {   DESCKIND_NONE = 0,
    DESCKIND_FUNCDESC = DESCKIND_NONE + 1,
    DESCKIND_VARDESC = DESCKIND_FUNCDESC + 1,
    DESCKIND_TYPECOMP = DESCKIND_VARDESC + 1,
    DESCKIND_IMPLICITAPPOBJ = DESCKIND_TYPECOMP + 1,
    DESCKIND_MAX = DESCKIND_IMPLICITAPPOBJ + 1
    }   DESCKIND;

typedef union tagBINDPTR
    {
    FUNCDESC *lpfuncdesc;
    VARDESC *lpvardesc;
    ITypeComp *lptcomp;
    }   BINDPTR;

typedef union tagBINDPTR *LPBINDPTR;


EXTERN_C const IID IID_ITypeComp;

    MIDL_INTERFACE("00020403-0000-0000-C000-000000000046")
    ITypeComp : public IUnknown
    {
    public:
        virtual /* [local] */ HRESULT STDMETHODCALLTYPE Bind(
            /* [in] */ LPOLESTR szName,
            /* [in] */ ULONG lHashVal,
            /* [in] */ WORD wFlags,
            /* [out] */ ITypeInfo **ppTInfo,
            /* [out] */ DESCKIND *pDescKind,
            /* [out] */ BINDPTR *pBindPtr) As HRESULT

        virtual /* [local] */ HRESULT STDMETHODCALLTYPE BindType(
            /* [in] */ LPOLESTR szName,
            /* [in] */ ULONG lHashVal,
            /* [out] */ ITypeInfo **ppTInfo,
            /* [out] */ ITypeComp **ppTComp) As HRESULT

    };


#endif  /* __ITypeComp_INTERFACE_DEFINED__ */


#ifndef __ITypeInfo_INTERFACE_DEFINED__
#define __ITypeInfo_INTERFACE_DEFINED__

/* interface ITypeInfo */
/* [unique][uuid][object] */

typedef /* [unique] */ ITypeInfo *LPTYPEINFO;


EXTERN_C const IID IID_ITypeInfo;

    MIDL_INTERFACE("00020401-0000-0000-C000-000000000046")
    ITypeInfo : public IUnknown
    {
    public:
        virtual /* [local] */ HRESULT STDMETHODCALLTYPE GetTypeAttr(
            /* [out] */ TYPEATTR **ppTypeAttr) As HRESULT

        Function GetTypeComp(
            /* [out] */ ITypeComp **ppTComp) As HRESULT

        virtual /* [local] */ HRESULT STDMETHODCALLTYPE GetFuncDesc(
            /* [in] */ UINT index,
            /* [out] */ FUNCDESC **ppFuncDesc) As HRESULT

        virtual /* [local] */ HRESULT STDMETHODCALLTYPE GetVarDesc(
            /* [in] */ UINT index,
            /* [out] */ VARDESC **ppVarDesc) As HRESULT

        virtual /* [local] */ HRESULT STDMETHODCALLTYPE GetNames(
            /* [in] */ MEMBERID memid,
            /* [length_is][size_is][out] */ BSTR *rgBstrNames,
            /* [in] */ UINT cMaxNames,
            /* [out] */ UINT *pcNames) As HRESULT

        Function GetRefTypeOfImplType(
            /* [in] */ UINT index,
            /* [out] */ HREFTYPE *pRefType) As HRESULT

        Function GetImplTypeFlags(
            /* [in] */ UINT index,
            /* [out] */ INT *pImplTypeFlags) As HRESULT

        virtual /* [local] */ HRESULT STDMETHODCALLTYPE GetIDsOfNames(
            /* [size_is][in] */ LPOLESTR *rgszNames,
            /* [in] */ UINT cNames,
            /* [size_is][out] */ MEMBERID *pMemId) As HRESULT

        virtual /* [local] */ HRESULT STDMETHODCALLTYPE Invoke(
            /* [in] */ PVOID pvInstance,
            /* [in] */ MEMBERID memid,
            /* [in] */ WORD wFlags,
            /* [out][in] */ DISPPARAMS *pDispParams,
            /* [out] */ VARIANT *pVarResult,
            /* [out] */ EXCEPINFO *pExcepInfo,
            /* [out] */ UINT *puArgErr) As HRESULT

        virtual /* [local] */ HRESULT STDMETHODCALLTYPE GetDocumentation(
            /* [in] */ MEMBERID memid,
            /* [out] */ BSTR *pBstrName,
            /* [out] */ BSTR *pBstrDocString,
            /* [out] */ DWORD *pdwHelpContext,
            /* [out] */ BSTR *pBstrHelpFile) As HRESULT

        virtual /* [local] */ HRESULT STDMETHODCALLTYPE GetDllEntry(
            /* [in] */ MEMBERID memid,
            /* [in] */ INVOKEKIND invKind,
            /* [out] */ BSTR *pBstrDllName,
            /* [out] */ BSTR *pBstrName,
            /* [out] */ WORD *pwOrdinal) As HRESULT

        Function GetRefTypeInfo(
            /* [in] */ HREFTYPE hRefType,
            /* [out] */ ITypeInfo **ppTInfo) As HRESULT

        virtual /* [local] */ HRESULT STDMETHODCALLTYPE AddressOfMember(
            /* [in] */ MEMBERID memid,
            /* [in] */ INVOKEKIND invKind,
            /* [out] */ PVOID *ppv) As HRESULT

        virtual /* [local] */ HRESULT STDMETHODCALLTYPE CreateInstance(
            /* [in] */ IUnknown *pUnkOuter,
            /* [in] */ REFIID riid,
            /* [iid_is][out] */ PVOID *ppvObj) As HRESULT

        Function GetMops(
            /* [in] */ MEMBERID memid,
            /* [out] */ BSTR *pBstrMops) As HRESULT

        virtual /* [local] */ HRESULT STDMETHODCALLTYPE GetContainingTypeLib(
            /* [out] */ ITypeLib **ppTLib,
            /* [out] */ UINT *pIndex) As HRESULT

        virtual /* [local] */ void STDMETHODCALLTYPE ReleaseTypeAttr(
            /* [in] */ TYPEATTR *pTypeAttr) As HRESULT

        virtual /* [local] */ void STDMETHODCALLTYPE ReleaseFuncDesc(
            /* [in] */ FUNCDESC *pFuncDesc) As HRESULT

        virtual /* [local] */ void STDMETHODCALLTYPE ReleaseVarDesc(
            /* [in] */ VARDESC *pVarDesc) As HRESULT

    };

#endif  /* __ITypeInfo_INTERFACE_DEFINED__ */


#ifndef __ITypeInfo2_INTERFACE_DEFINED__
#define __ITypeInfo2_INTERFACE_DEFINED__

/* interface ITypeInfo2 */
/* [unique][uuid][object] */

typedef /* [unique] */ ITypeInfo2 *LPTYPEINFO2;


EXTERN_C const IID IID_ITypeInfo2;

    MIDL_INTERFACE("00020412-0000-0000-C000-000000000046")
    ITypeInfo2 : public ITypeInfo
    {
    public:
        Function GetTypeKind(
            /* [out] */ TYPEKIND *pTypeKind) As HRESULT

        Function GetTypeFlags(
            /* [out] */ ULONG *pTypeFlags) As HRESULT

        Function GetFuncIndexOfMemId(
            /* [in] */ MEMBERID memid,
            /* [in] */ INVOKEKIND invKind,
            /* [out] */ UINT *pFuncIndex) As HRESULT

        Function GetVarIndexOfMemId(
            /* [in] */ MEMBERID memid,
            /* [out] */ UINT *pVarIndex) As HRESULT

        Function GetCustData(
            /* [in] */ REFGUID guid,
            /* [out] */ VARIANT *pVarVal) As HRESULT

        Function GetFuncCustData(
            /* [in] */ UINT index,
            /* [in] */ REFGUID guid,
            /* [out] */ VARIANT *pVarVal) As HRESULT

        Function GetParamCustData(
            /* [in] */ UINT indexFunc,
            /* [in] */ UINT indexParam,
            /* [in] */ REFGUID guid,
            /* [out] */ VARIANT *pVarVal) As HRESULT

        Function GetVarCustData(
            /* [in] */ UINT index,
            /* [in] */ REFGUID guid,
            /* [out] */ VARIANT *pVarVal) As HRESULT

        Function GetImplTypeCustData(
            /* [in] */ UINT index,
            /* [in] */ REFGUID guid,
            /* [out] */ VARIANT *pVarVal) As HRESULT

        virtual /* [local] */ HRESULT STDMETHODCALLTYPE GetDocumentation2(
            /* [in] */ MEMBERID memid,
            /* [in] */ LCID lcid,
            /* [out] */ BSTR *pbstrHelpString,
            /* [out] */ DWORD *pdwHelpStringContext,
            /* [out] */ BSTR *pbstrHelpStringDll) As HRESULT

        Function GetAllCustData(
            /* [out] */ CUSTDATA *pCustData) As HRESULT

        Function GetAllFuncCustData(
            /* [in] */ UINT index,
            /* [out] */ CUSTDATA *pCustData) As HRESULT

        Function GetAllParamCustData(
            /* [in] */ UINT indexFunc,
            /* [in] */ UINT indexParam,
            /* [out] */ CUSTDATA *pCustData) As HRESULT

        Function GetAllVarCustData(
            /* [in] */ UINT index,
            /* [out] */ CUSTDATA *pCustData) As HRESULT

        Function GetAllImplTypeCustData(
            /* [in] */ UINT index,
            /* [out] */ CUSTDATA *pCustData) As HRESULT

    };


#endif  /* __ITypeInfo2_INTERFACE_DEFINED__ */


#ifndef __ITypeLib_INTERFACE_DEFINED__
#define __ITypeLib_INTERFACE_DEFINED__

/* interface ITypeLib */
/* [unique][uuid][object] */

typedef /* [v1_enum] */
enum tagSYSKIND
    {   SYS_WIN16 = 0,
    SYS_WIN32 = SYS_WIN16 + 1,
    SYS_MAC = SYS_WIN32 + 1,
    SYS_WIN64 = SYS_MAC + 1
    }   SYSKIND;

typedef /* [v1_enum] */
enum tagLIBFLAGS
    {   LIBFLAG_FRESTRICTED = 0x1,
    LIBFLAG_FCONTROL = 0x2,
    LIBFLAG_FHIDDEN = 0x4,
    LIBFLAG_FHASDISKIMAGE = 0x8
    }   LIBFLAGS;

typedef /* [unique] */ ITypeLib *LPTYPELIB;

typedef struct tagTLIBATTR
    {
    GUID guid;
    LCID lcid;
    SYSKIND syskind;
    WORD wMajorVerNum;
    WORD wMinorVerNum;
    WORD wLibFlags;
    }   TLIBATTR;

typedef struct tagTLIBATTR *LPTLIBATTR;


EXTERN_C const IID IID_ITypeLib;

    MIDL_INTERFACE("00020402-0000-0000-C000-000000000046")
    ITypeLib : public IUnknown
    {
    public:
        virtual /* [local] */ UINT STDMETHODCALLTYPE GetTypeInfoCount( void) As HRESULT

        Function GetTypeInfo(
            /* [in] */ UINT index,
            /* [out] */ ITypeInfo **ppTInfo) As HRESULT

        Function GetTypeInfoType(
            /* [in] */ UINT index,
            /* [out] */ TYPEKIND *pTKind) As HRESULT

        Function GetTypeInfoOfGuid(
            /* [in] */ REFGUID guid,
            /* [out] */ ITypeInfo **ppTinfo) As HRESULT

        virtual /* [local] */ HRESULT STDMETHODCALLTYPE GetLibAttr(
            /* [out] */ TLIBATTR **ppTLibAttr) As HRESULT

        Function GetTypeComp(
            /* [out] */ ITypeComp **ppTComp) As HRESULT

        virtual /* [local] */ HRESULT STDMETHODCALLTYPE GetDocumentation(
            /* [in] */ INT index,
            /* [out] */ BSTR *pBstrName,
            /* [out] */ BSTR *pBstrDocString,
            /* [out] */ DWORD *pdwHelpContext,
            /* [out] */ BSTR *pBstrHelpFile) As HRESULT

        virtual /* [local] */ HRESULT STDMETHODCALLTYPE IsName(
            /* [out][in] */ LPOLESTR szNameBuf,
            /* [in] */ ULONG lHashVal,
            /* [out] */ BOOL *pfName) As HRESULT

        virtual /* [local] */ HRESULT STDMETHODCALLTYPE FindName(
            /* [out][in] */ LPOLESTR szNameBuf,
            /* [in] */ ULONG lHashVal,
            /* [length_is][size_is][out] */ ITypeInfo **ppTInfo,
            /* [length_is][size_is][out] */ MEMBERID *rgMemId,
            /* [out][in] */ USHORT *pcFound) As HRESULT

        virtual /* [local] */ void STDMETHODCALLTYPE ReleaseTLibAttr(
            /* [in] */ TLIBATTR *pTLibAttr) As HRESULT

    };

#endif  /* __ITypeLib_INTERFACE_DEFINED__ */


#ifndef __ITypeLib2_INTERFACE_DEFINED__
#define __ITypeLib2_INTERFACE_DEFINED__

/* interface ITypeLib2 */
/* [unique][uuid][object] */

typedef /* [unique] */ ITypeLib2 *LPTYPELIB2;


EXTERN_C const IID IID_ITypeLib2;

    MIDL_INTERFACE("00020411-0000-0000-C000-000000000046")
    ITypeLib2 : public ITypeLib
    {
    public:
        Function GetCustData(
            /* [in] */ REFGUID guid,
            /* [out] */ VARIANT *pVarVal) As HRESULT

        virtual /* [local] */ HRESULT STDMETHODCALLTYPE GetLibStatistics(
            /* [out] */ ULONG *pcUniqueNames,
            /* [out] */ ULONG *pcchUniqueNames) As HRESULT

        virtual /* [local] */ HRESULT STDMETHODCALLTYPE GetDocumentation2(
            /* [in] */ INT index,
            /* [in] */ LCID lcid,
            /* [out] */ BSTR *pbstrHelpString,
            /* [out] */ DWORD *pdwHelpStringContext,
            /* [out] */ BSTR *pbstrHelpStringDll) As HRESULT

        Function GetAllCustData(
            /* [out] */ CUSTDATA *pCustData) As HRESULT

    };

#endif  /* __ITypeLib2_INTERFACE_DEFINED__ */


#ifndef __ITypeChangeEvents_INTERFACE_DEFINED__
#define __ITypeChangeEvents_INTERFACE_DEFINED__

/* interface ITypeChangeEvents */
/* [local][unique][uuid][object] */

typedef /* [unique] */ ITypeChangeEvents *LPTYPECHANGEEVENTS;

typedef
enum tagCHANGEKIND
    {   CHANGEKIND_ADDMEMBER = 0,
    CHANGEKIND_DELETEMEMBER = CHANGEKIND_ADDMEMBER + 1,
    CHANGEKIND_SETNAMES = CHANGEKIND_DELETEMEMBER + 1,
    CHANGEKIND_SETDOCUMENTATION = CHANGEKIND_SETNAMES + 1,
    CHANGEKIND_GENERAL = CHANGEKIND_SETDOCUMENTATION + 1,
    CHANGEKIND_INVALIDATE = CHANGEKIND_GENERAL + 1,
    CHANGEKIND_CHANGEFAILED = CHANGEKIND_INVALIDATE + 1,
    CHANGEKIND_MAX = CHANGEKIND_CHANGEFAILED + 1
    }   CHANGEKIND;


EXTERN_C const IID IID_ITypeChangeEvents;

    MIDL_INTERFACE("00020410-0000-0000-C000-000000000046")
    ITypeChangeEvents : public IUnknown
    {
    public:
        Function RequestTypeChange(
            /* [in] */ CHANGEKIND changeKind,
            /* [in] */ ITypeInfo *pTInfoBefore,
            /* [in] */ LPOLESTR pStrName,
            /* [out] */ INT *pfCancel) As HRESULT

        Function AfterTypeChange(
            /* [in] */ CHANGEKIND changeKind,
            /* [in] */ ITypeInfo *pTInfoAfter,
            /* [in] */ LPOLESTR pStrName) As HRESULT

    };

#endif  /* __ITypeChangeEvents_INTERFACE_DEFINED__ */


#ifndef __IErrorInfo_INTERFACE_DEFINED__
#define __IErrorInfo_INTERFACE_DEFINED__

/* interface IErrorInfo */
/* [unique][uuid][object] */

typedef /* [unique] */ IErrorInfo *LPERRORINFO;


EXTERN_C const IID IID_IErrorInfo;

    MIDL_INTERFACE("1CF2B120-547D-101B-8E65-08002B2BD119")
    IErrorInfo : public IUnknown
    {
    public:
        Function GetGUID(
            /* [out] */ GUID *pGUID) As HRESULT

        Function GetSource(
            /* [out] */ BSTR *pBstrSource) As HRESULT

        Function GetDescription(
            /* [out] */ BSTR *pBstrDescription) As HRESULT

        Function GetHelpFile(
            /* [out] */ BSTR *pBstrHelpFile) As HRESULT

        Function GetHelpContext(
            /* [out] */ DWORD *pdwHelpContext) As HRESULT

    };

#endif  /* __IErrorInfo_INTERFACE_DEFINED__ */


#ifndef __ICreateErrorInfo_INTERFACE_DEFINED__
#define __ICreateErrorInfo_INTERFACE_DEFINED__

/* interface ICreateErrorInfo */
/* [unique][uuid][object] */

typedef /* [unique] */ ICreateErrorInfo *LPCREATEERRORINFO;


EXTERN_C const IID IID_ICreateErrorInfo;

    MIDL_INTERFACE("22F03340-547D-101B-8E65-08002B2BD119")
    ICreateErrorInfo : public IUnknown
    {
    public:
        Function SetGUID(
            /* [in] */ REFGUID rguid) As HRESULT

        Function SetSource(
            /* [in] */ LPOLESTR szSource) As HRESULT

        Function SetDescription(
            /* [in] */ LPOLESTR szDescription) As HRESULT

        Function SetHelpFile(
            /* [in] */ LPOLESTR szHelpFile) As HRESULT

        Function SetHelpContext(
            /* [in] */ DWORD dwHelpContext) As HRESULT

    };

#endif  /* __ICreateErrorInfo_INTERFACE_DEFINED__ */


#ifndef __ISupportErrorInfo_INTERFACE_DEFINED__
#define __ISupportErrorInfo_INTERFACE_DEFINED__

/* interface ISupportErrorInfo */
/* [unique][uuid][object] */

typedef /* [unique] */ ISupportErrorInfo *LPSUPPORTERRORINFO;


EXTERN_C const IID IID_ISupportErrorInfo;

    MIDL_INTERFACE("DF0B3D60-548F-101B-8E65-08002B2BD119")
    ISupportErrorInfo : public IUnknown
    {
    public:
        Function InterfaceSupportsErrorInfo(
            /* [in] */ REFIID riid) As HRESULT

    };

#endif  /* __ISupportErrorInfo_INTERFACE_DEFINED__ */


#ifndef __ITypeFactory_INTERFACE_DEFINED__
#define __ITypeFactory_INTERFACE_DEFINED__

/* interface ITypeFactory */
/* [uuid][object] */


EXTERN_C const IID IID_ITypeFactory;

    MIDL_INTERFACE("0000002E-0000-0000-C000-000000000046")
    ITypeFactory : public IUnknown
    {
    public:
        Function CreateFromTypeInfo(
            /* [in] */ ITypeInfo *pTypeInfo,
            /* [in] */ REFIID riid,
            /* [iid_is][out] */ IUnknown **ppv) As HRESULT

    };

#endif  /* __ITypeFactory_INTERFACE_DEFINED__ */


#ifndef __ITypeMarshal_INTERFACE_DEFINED__
#define __ITypeMarshal_INTERFACE_DEFINED__

/* interface ITypeMarshal */
/* [uuid][object][local] */


EXTERN_C const IID IID_ITypeMarshal;

    MIDL_INTERFACE("0000002D-0000-0000-C000-000000000046")
    ITypeMarshal : public IUnknown
    {
    public:
        Function Size(
            /* [in] */ PVOID pvType,
            /* [in] */ DWORD dwDestContext,
            /* [in] */ PVOID pvDestContext,
            /* [out] */ ULONG *pSize) As HRESULT

        Function Marshal(
            /* [in] */ PVOID pvType,
            /* [in] */ DWORD dwDestContext,
            /* [in] */ PVOID pvDestContext,
            /* [in] */ ULONG cbBufferLength,
            /* [out] */ BYTE *pBuffer,
            /* [out] */ ULONG *pcbWritten) As HRESULT

        Function Unmarshal(
            /* [out] */ PVOID pvType,
            /* [in] */ DWORD dwFlags,
            /* [in] */ ULONG cbBufferLength,
            /* [in] */ BYTE *pBuffer,
            /* [out] */ ULONG *pcbRead) As HRESULT

        Function Free(
            /* [in] */ PVOID pvType) As HRESULT

    };

#endif  /* __ITypeMarshal_INTERFACE_DEFINED__ */


#ifndef __IRecordInfo_INTERFACE_DEFINED__
#define __IRecordInfo_INTERFACE_DEFINED__

/* interface IRecordInfo */
/* [uuid][object][local] */

typedef /* [unique] */ IRecordInfo *LPRECORDINFO;


EXTERN_C const IID IID_IRecordInfo;

    MIDL_INTERFACE("0000002F-0000-0000-C000-000000000046")
    IRecordInfo : public IUnknown
    {
    public:
        Function RecordInit(
            /* [out] */ PVOID pvNew) As HRESULT

        Function RecordClear(
            /* [in] */ PVOID pvExisting) As HRESULT

        Function RecordCopy(
            /* [in] */ PVOID pvExisting,
            /* [out] */ PVOID pvNew) As HRESULT

        Function GetGuid(
            /* [out] */ GUID *pguid) As HRESULT

        Function GetName(
            /* [out] */ BSTR *pbstrName) As HRESULT

        Function GetSize(
            /* [out] */ ULONG *pcbSize) As HRESULT

        Function GetTypeInfo(
            /* [out] */ ITypeInfo **ppTypeInfo) As HRESULT

        Function GetField(
            /* [in] */ PVOID pvData,
            /* [in] */ LPCOLESTR szFieldName,
            /* [out] */ VARIANT *pvarField) As HRESULT

        Function GetFieldNoCopy(
            /* [in] */ PVOID pvData,
            /* [in] */ LPCOLESTR szFieldName,
            /* [out] */ VARIANT *pvarField,
            /* [out] */ PVOID *ppvDataCArray) As HRESULT

        Function PutField(
            /* [in] */ ULONG wFlags,
            /* [out][in] */ PVOID pvData,
            /* [in] */ LPCOLESTR szFieldName,
            /* [in] */ VARIANT *pvarField) As HRESULT

        Function PutFieldNoCopy(
            /* [in] */ ULONG wFlags,
            /* [out][in] */ PVOID pvData,
            /* [in] */ LPCOLESTR szFieldName,
            /* [in] */ VARIANT *pvarField) As HRESULT

        Function GetFieldNames(
            /* [out][in] */ ULONG *pcNames,
            /* [length_is][size_is][out] */ BSTR *rgBstrNames) As HRESULT

        virtual BOOL STDMETHODCALLTYPE IsMatchingType(
            /* [in] */ IRecordInfo *pRecordInfo) As HRESULT

        virtual PVOID STDMETHODCALLTYPE RecordCreate( void) As HRESULT

        Function RecordCreateCopy(
            /* [in] */ PVOID pvSource,
            /* [out] */ PVOID *ppvDest) As HRESULT

        Function RecordDestroy(
            /* [in] */ PVOID pvRecord) As HRESULT

    };

#endif  /* __IRecordInfo_INTERFACE_DEFINED__ */


#ifndef __IErrorLog_INTERFACE_DEFINED__
#define __IErrorLog_INTERFACE_DEFINED__

/* interface IErrorLog */
/* [unique][uuid][object] */

typedef IErrorLog *LPERRORLOG;


EXTERN_C const IID IID_IErrorLog;

    MIDL_INTERFACE("3127CA40-446E-11CE-8135-00AA004BB851")
    IErrorLog : public IUnknown
    {
    public:
        Function AddError(
            /* [in] */ LPCOLESTR pszPropName,
            /* [in] */ EXCEPINFO *pExcepInfo) As HRESULT

    };

#endif  /* __IErrorLog_INTERFACE_DEFINED__ */


#ifndef __IPropertyBag_INTERFACE_DEFINED__
#define __IPropertyBag_INTERFACE_DEFINED__

/* interface IPropertyBag */
/* [unique][uuid][object] */

typedef IPropertyBag *LPPROPERTYBAG;


EXTERN_C const IID IID_IPropertyBag;

    MIDL_INTERFACE("55272A00-42CB-11CE-8135-00AA004BB851")
    IPropertyBag : public IUnknown
    {
    public:
        virtual /* [local] */ HRESULT STDMETHODCALLTYPE Read(
            /* [in] */ LPCOLESTR pszPropName,
            /* [out][in] */ VARIANT *pVar,
            /* [in] */ IErrorLog *pErrorLog) As HRESULT

        Function Write(
            /* [in] */ LPCOLESTR pszPropName,
            /* [in] */ VARIANT *pVar) As HRESULT

    };
#endif  /* __IPropertyBag_INTERFACE_DEFINED__ */

#endif ' __UNDEFINED__

#endif '_INC_OAIDL_AB