vboosttypes6.idl

此源码为vb圣经编码

#ifdef __MKTYPLIB__
    typedef [public] unsigned char BYTE;
    typedef [public] short WORD;
    typedef [public] short USHORT;
    typedef [public] long DWORD;
    typedef [public] long PVOID;
    typedef [public] long PVOIDPtr;
    typedef [public] long ULONG;
    typedef [public] long UINT;
    typedef [public] long WPARAM;
    typedef [public] long LPARAM;
    typedef [public] long HANDLE;
    typedef [public] long HINSTANCE;
    typedef [public] long HWND;
    typedef [public] long HTASK;
    typedef [public] long SAFEARRAYPtr;
    typedef [public] long SAFEARRAYPtrPtr;
    typedef [public] long LCID;
    typedef [public] short VariantType;
    typedef [public] long LPOLESTRPtr;
    typedef [public] long LPOLESTR;
    typedef [public, hidden] long LPANSISTR;
    typedef [public, hidden] long ITypeInfoPtr;
    typedef [public] currency LARGE_INTEGER;
    typedef [public] currency ULARGE_INTEGER;
    typedef [public] VBGUID IID;
    typedef [public] VBGUID CLSID;

    typedef struct SafeArrayBound
    {
        ULONG cElements;
        LONG lLbound;
    } SafeArrayBound;

    typedef struct SafeArray
    {
        USHORT cDims;
        USHORT fFeatures;
        ULONG cbElements;
        ULONG cLocks;
        PVOID pvData;
    } SafeArray;

    typedef struct  SafeArray1d
    {
        USHORT cDims;
        USHORT fFeatures;
        ULONG cbElements;
        ULONG cLocks;
        PVOID pvData;
        ULONG cElements;
        LONG lLbound;
    } SafeArray1d;

    typedef enum
    {
      BOOL_FALSE = 0,
      BOOL_TRUE  = 1
    } BOOL;

    // The Dll name is upper case because this is the casing VB uses in the
    // imports table of a generated Exe. You get two sections if you use
    // different casing.
    [dllname("MSVBVM60.DLL")]
    module StringArray
    {
        [entry("VarPtr")]
        long VarPtrStringArray([in] SAFEARRAY (BSTR) *Ptr);
    }

    [hidden, dllname("MSVBVM50.DLL")]
    module StringArray5
    {
        [entry("VarPtr")]
        long VarPtrStringArray5([in] SAFEARRAY (BSTR) *Ptr);
    }

    [dllname("ole32.dll")]
    module Ole32
    {
        [entry("StringFromGUID2")] long StringFromGUID2([in] VBGUID* rguid, [in] LPWSTR lpsz, [in, defaultvalue(39)] long cbMax);
        [entry("IIDFromString")] HRESULT IIDFromString([in] LPWSTR lpsz, [out, retval] IID* lpiid);
        [entry("IIDFromString")] HRESULT CLSIDFromString([in] LPWSTR lpsz, [out, retval] CLSID* lpguid);
        [entry("IIDFromString")] HRESULT GUIDFromString([in] LPWSTR lpsz, [out, retval] VBGUID* lpguid);
        [entry("IsEqualGUID")] BOOL IsEqualGUID([in] VBGUID* rguid1, [in] VBGUID *rguid2);
        [entry("IsEqualGUID")] BOOL IsEqualCLSID([in] CLSID* riid1, [in] CLSID *riid2);
        [entry("IsEqualGUID")] BOOL IsEqualIID([in] IID* riid1, [in] IID *riid2);
        [entry("CoTaskMemAlloc")] PVOID CoTaskMemAlloc([in] ULONG cb);
        [entry("CoTaskMemRealloc")] PVOID CoTaskMemRealloc([in] PVOID pv, [in] ULONG cb);
        [entry("CoTaskMemFree")] void CoTaskMemFree([in] PVOID pv);
        [entry("CLSIDFromProgID")] HRESULT CLSIDFromProgID([in] LPWSTR ProgID, [out,retval] VBGUID* rclsid);
        [entry("CoCreateGuid")] HRESULT CoCreateGuid([out,retval] VBGUID* retVal);
    }

    [dllname("bogus")]
    module OLEErrors
    {
        const long E_NOTIMPL = 0x80004001;
        const long E_NOINTERFACE = 0x80004002;
        const long E_POINTER = 0x80004003;
        const long E_FAIL = 0x80004005;
        const long E_OUTOFMEMORY = 0x8007000E;
        const long E_INVALIDARG = 0x80070057;
        const long S_OK = 0;
        const long S_FALSE = 1;
        const long DISP_E_TYPEMISMATCH = 0x80020005;
        const long DISP_E_EXCEPTION = 0x80020009;
        const long DISP_E_BADINDEX = 0x8002000B;
    }

    [dllname("bogus")]
    module IIDStrings
    {
        const LPSTR strIID_IUnknown = "{00000000-0000-0000-C000-000000000046}";
        const LPSTR strIID_IClassFactory = "{00000001-0000-0000-C000-000000000046}";
        const LPSTR strIID_IMalloc = "{00000002-0000-0000-C000-000000000046}";
        const LPSTR strIID_IMarshal = "{00000003-0000-0000-C000-000000000046}";
        const LPSTR strIID_IRpcChannel = "{00000004-0000-0000-C000-000000000046}";
        const LPSTR strIID_IRpcStub = "{00000005-0000-0000-C000-000000000046}";
        const LPSTR strIID_IStubManager = "{00000006-0000-0000-C000-000000000046}";
        const LPSTR strIID_IRpcProxy = "{00000007-0000-0000-C000-000000000046}";
        const LPSTR strIID_IProxyManager = "{00000008-0000-0000-C000-000000000046}";
        const LPSTR strIID_IPSFactory = "{00000009-0000-0000-C000-000000000046}";
        const LPSTR strIID_ILockBytes = "{0000000A-0000-0000-C000-000000000046}";
        const LPSTR strIID_IStorage = "{0000000B-0000-0000-C000-000000000046}";
        const LPSTR strIID_IStream = "{0000000C-0000-0000-C000-000000000046}";
        const LPSTR strIID_IEnumSTATSTG = "{0000000D-0000-0000-C000-000000000046}";
        const LPSTR strIID_IBindCtx = "{0000000E-0000-0000-C000-000000000046}";
        const LPSTR strIID_IMoniker = "{0000000F-0000-0000-C000-000000000046}";
        const LPSTR strIID_IRunningObjectTable = "{00000010-0000-0000-C000-000000000046}";
        const LPSTR strIID_IRootStorage = "{00000012-0000-0000-C000-000000000046}";
        const LPSTR strIID_IMessageFilter = "{00000016-0000-0000-C000-000000000046}";
        const LPSTR strIID_IStdMarshalInfo = "{00000018-0000-0000-C000-000000000046}";
        const LPSTR strIID_IExternalConnection = "{00000019-0000-0000-C000-000000000046}";
        const LPSTR strIID_IMallocSpy = "{0000001D-0000-0000-C000-000000000046}";
        const LPSTR strIID_IMultiQI = "{00000020-0000-0000-C000-000000000046}";
        const LPSTR strIID_ISurrogate = "{00000022-0000-0000-C000-000000000046}";
        const LPSTR strIID_IStub = "{00000026-0000-0000-C000-000000000046}";
        const LPSTR strIID_IProxy = "{00000027-0000-0000-C000-000000000046}";
        const LPSTR strIID_IPersistStream = "{00000109-0000-0000-C000-000000000046}";
        const LPSTR strIID_IPersistStorage = "{0000010A-0000-0000-C000-000000000046}";
        const LPSTR strIID_IPersistFile = "{0000010B-0000-0000-C000-000000000046}";
        const LPSTR strIID_IPersist = "{0000010C-0000-0000-C000-000000000046}";
        const LPSTR strIID_IViewObject = "{0000010D-0000-0000-C000-000000000046}";
        const LPSTR strIID_IDataObject = "{0000010E-0000-0000-C000-000000000046}";
        const LPSTR strIID_IAdviseSink = "{0000010F-0000-0000-C000-000000000046}";
        const LPSTR strIID_IDataAdviseHolder = "{00000110-0000-0000-C000-000000000046}";
        const LPSTR strIID_IOleAdviseHolder = "{00000111-0000-0000-C000-000000000046}";
        const LPSTR strIID_IOleObject = "{00000112-0000-0000-C000-000000000046}";
        const LPSTR strIID_IOleInPlaceObject = "{00000113-0000-0000-C000-000000000046}";
        const LPSTR strIID_IOleWindow = "{00000114-0000-0000-C000-000000000046}";
        const LPSTR strIID_IOleInPlaceUIWindow = "{00000115-0000-0000-C000-000000000046}";
        const LPSTR strIID_IOleInPlaceFrame = "{00000116-0000-0000-C000-000000000046}";
        const LPSTR strIID_IOleInPlaceActiveObject = "{00000117-0000-0000-C000-000000000046}";
        const LPSTR strIID_IOleClientSite = "{00000118-0000-0000-C000-000000000046}";
        const LPSTR strIID_IOleInPlaceSite = "{00000119-0000-0000-C000-000000000046}";
        const LPSTR strIID_IParseDisplayName = "{0000011A-0000-0000-C000-000000000046}";
        const LPSTR strIID_IOleContainer = "{0000011B-0000-0000-C000-000000000046}";
        const LPSTR strIID_IOleItemContainer = "{0000011C-0000-0000-C000-000000000046}";
        const LPSTR strIID_IOleLink = "{0000011D-0000-0000-C000-000000000046}";
        const LPSTR strIID_IOleCache = "{0000011E-0000-0000-C000-000000000046}";
        const LPSTR strIID_IOleManager = "{0000011F-0000-0000-C000-000000000046}";
        const LPSTR strIID_IDropSource = "{00000121-0000-0000-C000-000000000046}";
        const LPSTR strIID_IDropTarget = "{00000122-0000-0000-C000-000000000046}";
        const LPSTR strIID_IAdviseSink2 = "{00000125-0000-0000-C000-000000000046}";
        const LPSTR strIID_IRunnableObject = "{00000126-0000-0000-C000-000000000046}";
        const LPSTR strIID_IViewObject2 = "{00000127-0000-0000-C000-000000000046}";
        const LPSTR strIID_IOleCache2 = "{00000128-0000-0000-C000-000000000046}";
        const LPSTR strIID_IOleCacheControl = "{00000129-0000-0000-C000-000000000046}";
        const LPSTR strIID_IRemUnknown = "{00000131-0000-0000-C000-000000000046}";
        const LPSTR strIID_IPropertyStorage = "{00000138-0000-0000-C000-000000000046}";
        const LPSTR strIID_IPropertySetStorage = "{0000013A-0000-0000-C000-000000000046}";
        const LPSTR strIID_IClientSecurity = "{0000013D-0000-0000-C000-000000000046}";
        const LPSTR strIID_IServerSecurity = "{0000013E-0000-0000-C000-000000000046}";
        const LPSTR strIID_IClassActivator = "{00000140-0000-0000-C000-000000000046}";
        const LPSTR strIID_IDispatch = "{00020400-0000-0000-C000-000000000046}";
        const LPSTR strIID_IEnumVARIANT = "{00020404-0000-0000-C000-000000000046}";
        const LPSTR strIID_IOleInPlaceObjectWindowless = "{1C2056CC-5EF4-101B-8BC8-00AA003E3B29}";
        const LPSTR strIID_IErrorInfo = "{1CF2B120-547D-101B-8E65-08002B2BD119}";
        const LPSTR strIID_IPersistPropertyBag2 = "{22F55881-280B-11D0-A8A9-00A0C90C2004}";
        const LPSTR strIID_IPersistPropertyBag = "{37D84F60-42CB-11CE-8135-00AA004BB851}";
        const LPSTR strIID_IPersistStreamInit = "{7FD52380-4E07-101B-AE2D-08002B2EC713}";
        const LPSTR strIID_IOleInPlaceSiteWindowless = "{922EADA0-3424-11CF-B670-00AA004CD6D8}";
        const LPSTR strIID_IOleInPlaceSiteEx = "{9C2CAD80-3424-11CF-B670-00AA004CD6D8}";
        const LPSTR strIID_IProvideClassInfo = "{B196B283-BAB4-101A-B69C-00AA00341D07}";
        const LPSTR strIID_IConnectionPointContainer = "{B196B284-BAB4-101A-B69C-00AA00341D07}";
        const LPSTR strIID_IEnumConnectionPoints = "{B196B285-BAB4-101A-B69C-00AA00341D07}";
        const LPSTR strIID_IConnectionPoint = "{B196B286-BAB4-101A-B69C-00AA00341D07}";
        const LPSTR strIID_IEnumConnections = "{B196B287-BAB4-101A-B69C-00AA00341D07}";
        const LPSTR strIID_IOleControl = "{B196B288-BAB4-101A-B69C-00AA00341D07}";
        const LPSTR strIID_IOleControlSite = "{B196B289-BAB4-101A-B69C-00AA00341D07}";
        const LPSTR strIID_IPropertyFrame = "{B196B28A-BAB4-101A-B69C-00AA00341D07}";
        const LPSTR strIID_ISpecifyPropertyPages = "{B196B28B-BAB4-101A-B69C-00AA00341D07}";
        const LPSTR strIID_IPropertyPageSite = "{B196B28C-BAB4-101A-B69C-00AA00341D07}";
        const LPSTR strIID_IPropertyPage = "{B196B28D-BAB4-101A-B69C-00AA00341D07}";
        const LPSTR strIID_IClassFactory2 = "{B196B28F-BAB4-101A-B69C-00AA00341D07}";
        const LPSTR strIID_IQuickActivate = "{CF51ED10-62FE-11CF-BF86-00A0C9034836}";
        const LPSTR strIID_ISupportErrorInfo = "{DF0B3D60-548F-101B-8E65-08002B2BD119}";
        // IIDs from this library
        const LPSTR strIID_IQIHook = "{20708EE4-24E3-11D3-AB5C-D41203C10000}";
        const LPSTR strIID_IQIARHook = "{20708EE5-24E3-11D3-AB5C-D41203C10000}";
        const LPSTR strIID_IDelayCreation = "{20708EE6-24E3-11D3-AB5C-D41203C10000}";
        const LPSTR strIID_VBoostRoot = "{20708EE1-24E3-11D3-AB5C-D41203C10000}";
        const LPSTR strIID_UnknownHook = "{20708EE3-24E3-11D3-AB5C-D41203C10000}";
        const LPSTR strIID_FixedSizeMemoryManager = "{20708EE7-24E3-11D3-AB5C-D41203C10000}";
        const LPSTR strIID_CompactibleFixedSizeMemoryManager = "{20708EE8-24E3-11D3-AB5C-D41203C10000}";
        //const LPSTR str = "{}";
    }
    
    [
        uuid(55A2F2D0-8919-11D0-818F-00A0C90FFFC3),
        helpstring("IRecordInfo"),
        odl
        //oleautomation
    ]
    interface IRecordInfo : IUnknown
    {
        HRESULT RecordInit([in] PVOID pvNew);
        HRESULT RecordClear([in] PVOID pvExisting);
        HRESULT RecordCopy([in] PVOID pvExisting, [in] PVOID pvNew); 
        HRESULT GetGuid([out,retval] VBGUID* pguid);
        HRESULT GetName([out,retval] BSTR *pbstrName);
        HRESULT GetSize([out,retval] long *pSize);
        HRESULT GetTypeInfo([out,retval] ITypeInfoPtr* pTypeInfo);
        HRESULT GetField([in] PVOID pvData, [in] LPWSTR szFieldName, [out,retval] VARIANT *pvarField);
        HRESULT GetFieldNoCopy([in] PVOID pvData, [in] LPWSTR szFieldName, [out] VARIANT *pvarField, [out] PVOID* ppvDataCArray);
        HRESULT PutField([in] long wFlags, [in] PVOID pvData, [in] LPWSTR szFieldName, [in] VARIANT *pvarField);
        HRESULT PutFieldNoCopy([in] long wFlags, [in] PVOID pvData, [in] LPWSTR szFieldName, [in] VARIANT *pvarField);
        HRESULT GetFieldNames([in,out] long *pcNames, [in, out] BSTR* rgBstrNames);
        BOOL IsMatchingType([in] IRecordInfo *pRecordInfo);
        PVOID RecordCreate();
        HRESULT RecordCreateCopy([in] PVOID pvSource, [out, retval] PVOID* ppvDest);
        HRESULT RecordDestroy([in] PVOID pvRecord);
    }

    [dllname("oleaut32.dll")]
    module OleAut32
    {
        // Items that are not much use from VB are hidden
        [entry("SafeArrayAllocDescriptor")] HRESULT SafeArrayAllocDescriptor([in] UINT cDims, [in] SAFEARRAYPtrPtr ppsaOut);
        [entry("SafeArrayAllocDescriptorEx")] HRESULT SafeArrayAllocDescriptorEx([in] VariantType vt, [in] UINT cDims, [in] SAFEARRAYPtrPtr ppsaOut);