Changeset 211 for Include/OAIdl.ab


Ignore:
Timestamp:
Apr 11, 2007, 9:49:17 PM (18 years ago)
Author:
イグトランス (egtra)
Message:

Decimalを追加、OAIdl.abの一応の完成など

File:
1 edited

Legend:

Unmodified
Added
Removed

  • Include/OAIdl.ab

    r200 r211  
    8686
    8787TypeDef DATE = Double ' WTypes.ab
    88 
    89 Interface IRecordInfo
    90     Inherits IUnknown
    91 End Interface
    92 
    9388
    9489/* interface IOleAutomationTypes */
    … …  
    15671562
    15681563
    1569 #ifdef __UNDECLARED__
    1570 
    15711564#ifndef __ITypeLib2_INTERFACE_DEFINED__
    15721565#define __ITypeLib2_INTERFACE_DEFINED__
    … …  
    15751568/* [unique][uuid][object] */
    15761569
    1577 TypeDef /* [unique] */ ITypeLib2 *LPTYPELIB2;
    1578 
    1579 
    1580 EXTERN_C const IID IID_ITypeLib2;
    1581 
    1582     MIDL_INTERFACE("00020411-0000-0000-C000-000000000046")
    1583     ITypeLib2 : public ITypeLib
    1584     {
    1585     public:
    1586         Function GetCustData(
    1587             /* [in] */ REFGUID guid,
    1588             /* [out] */ VARIANT *pVarVal) As HRESULT
    1589 
    1590         virtual /* [local] */ HRESULT STDMETHODCALLTYPE GetLibStatistics(
    1591             /* [out] */ ULONG *pcUniqueNames,
    1592             /* [out] */ ULONG *pcchUniqueNames) As HRESULT
    1593 
    1594         virtual /* [local] */ HRESULT STDMETHODCALLTYPE GetDocumentation2(
    1595             /* [in] */ INT index,
    1596             /* [in] */ LCID lcid,
    1597             /* [out] */ BSTR *pbstrHelpString,
    1598             /* [out] */ DWORD *pdwHelpStringContext,
    1599             /* [out] */ BSTR *pbstrHelpStringDll) As HRESULT
    1600 
    1601         Function GetAllCustData(
    1602             /* [out] */ CUSTDATA *pCustData) As HRESULT
    1603 
    1604     };
     1570TypeDef LPTYPELIB2 = /* [unique] */ *ITypeLib2
     1571
     1572Dim IID_ITypeLib2 = [&h00020411, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
     1573
     1574Interface ITypeLib2
     1575    Inherits ITypeLib
     1576
     1577    Function GetCustData(
     1578        /* [in] */ ByRef guid As GUID,
     1579        /* [out] */ ByRef VarVal As VARIANT) As HRESULT
     1580    /* [local] */ Function GetLibStatistics(
     1581        /* [out] */ ByRef cUniqueNames As DWord,
     1582        /* [out] */ ByRef chUniqueNames As DWord) As HRESULT
     1583    /* [local] */ Function GetDocumentation2(
     1584            /* [in] */ index As Long,
     1585            /* [in] */ lcid As LCID,
     1586            /* [out] */ ByRef bstrHelpString As BSTR,
     1587            /* [out] */ ByRef dwHelpStringContext As DWord,
     1588            /* [out] */ ByRef bstrHelpStringDll As BSTR) As HRESULT
     1589    Function GetAllCustData(
     1590        /* [out] */ ByRef CustData As CUSTDATA) As HRESULT
     1591End Interface
    16051592
    16061593#endif  /* __ITypeLib2_INTERFACE_DEFINED__ */
    … …  
    16131600/* [local][unique][uuid][object] */
    16141601
    1615 TypeDef /* [unique] */ ITypeChangeEvents *LPTYPECHANGEEVENTS;
     1602TypeDef LPTYPECHANGEEVENTS = /* [unique] */ *ITypeChangeEvents
    16161603
    16171604Enum CHANGEKIND
    1618     CHANGEKIND_ADDMEMBER = 0,
    1619     CHANGEKIND_DELETEMEMBER = CHANGEKIND_ADDMEMBER + 1,
    1620     CHANGEKIND_SETNAMES = CHANGEKIND_DELETEMEMBER + 1,
    1621     CHANGEKIND_SETDOCUMENTATION = CHANGEKIND_SETNAMES + 1,
    1622     CHANGEKIND_GENERAL = CHANGEKIND_SETDOCUMENTATION + 1,
    1623     CHANGEKIND_INVALIDATE = CHANGEKIND_GENERAL + 1,
    1624     CHANGEKIND_CHANGEFAILED = CHANGEKIND_INVALIDATE + 1,
    1625     CHANGEKIND_MAX = CHANGEKIND_CHANGEFAILED + 1
     1605    CHANGEKIND_ADDMEMBER = 0
     1606    CHANGEKIND_DELETEMEMBER = 1
     1607    CHANGEKIND_SETNAMES = 2
     1608    CHANGEKIND_SETDOCUMENTATION = 3
     1609    CHANGEKIND_GENERAL = 4
     1610    CHANGEKIND_INVALIDATE = 5
     1611    CHANGEKIND_CHANGEFAILED = 6
     1612    CHANGEKIND_MAX = 7
    16261613End Enum
    16271614
    1628 
    1629 EXTERN_C const IID IID_ITypeChangeEvents;
    1630 
    1631     MIDL_INTERFACE("00020410-0000-0000-C000-000000000046")
    1632     ITypeChangeEvents : public IUnknown
    1633     {
    1634     public:
    1635         Function RequestTypeChange(
    1636             /* [in] */ CHANGEKIND changeKind,
    1637             /* [in] */ ITypeInfo *pTInfoBefore,
    1638             /* [in] */ LPOLESTR pStrName,
    1639             /* [out] */ INT *pfCancel) As HRESULT
    1640 
    1641         Function AfterTypeChange(
    1642             /* [in] */ CHANGEKIND changeKind,
    1643             /* [in] */ ITypeInfo *pTInfoAfter,
    1644             /* [in] */ LPOLESTR pStrName) As HRESULT
    1645 
    1646     };
     1615Dim IID_ITypeChangeEvents = [&h00020410, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
     1616
     1617Interface ITypeChangeEvents
     1618    Inherits IUnknown
     1619
     1620    Function RequestTypeChange(
     1621        /* [in] */ changeKind As CHANGEKIND,
     1622        /* [in] */ pTInfoBefore As ITypeInfo,
     1623        /* [in] */ pStrName As LPOLESTR,
     1624        /* [out] */ ByRef fCancel As Long) As HRESULT
     1625    Function AfterTypeChange(
     1626        /* [in] */ changeKind As CHANGEKIND,
     1627        /* [in] */ pTInfoAfter As *ITypeInfo,
     1628        /* [in] */ pStrName As LPOLESTR) As HRESULT
     1629End Interface
    16471630
    16481631#endif  /* __ITypeChangeEvents_INTERFACE_DEFINED__ */
    … …  
    16551638/* [unique][uuid][object] */
    16561639
    1657 TypeDef /* [unique] */ IErrorInfo *LPERRORINFO;
    1658 
    1659 
    1660 EXTERN_C const IID IID_IErrorInfo;
    1661 
    1662     MIDL_INTERFACE("1CF2B120-547D-101B-8E65-08002B2BD119")
    1663     IErrorInfo : public IUnknown
    1664     {
    1665     public:
    1666         Function GetGUID(
    1667             /* [out] */ GUID *pGUID) As HRESULT
    1668 
    1669         Function GetSource(
    1670             /* [out] */ BSTR *pBstrSource) As HRESULT
    1671 
    1672         Function GetDescription(
    1673             /* [out] */ BSTR *pBstrDescription) As HRESULT
    1674 
    1675         Function GetHelpFile(
    1676             /* [out] */ BSTR *pBstrHelpFile) As HRESULT
    1677 
    1678         Function GetHelpContext(
    1679             /* [out] */ DWORD *pdwHelpContext) As HRESULT
    1680 
    1681     };
     1640TypeDef LPERRORINFO = /* [unique] */ *IErrorInfo
     1641
     1642Dim IID_IErrorInfo = [&h1CF2B120, &h547D, &h101B, [&h8E, &h65, &h08, &h00, &h2B, &h2B, &hD1, &h19]] As IID
     1643
     1644Interface IErrorInfo
     1645    Inherits IUnknown
     1646
     1647    Function GetGUID(
     1648        /* [out] */ ByRef guid As GUID) As HRESULT
     1649    Function GetSource(
     1650        /* [out] */ ByRef BstrSource As BSTR) As HRESULT
     1651    Function GetDescription(
     1652        /* [out] */ ByRef BstrDescription As BSTR) As HRESULT
     1653    Function GetHelpFile(
     1654        /* [out] */ ByRef BstrHelpFile As BSTR) As HRESULT
     1655    Function GetHelpContext(
     1656        /* [out] */ ByRef dwHelpContext As DWord) As HRESULT
     1657End Interface
    16821658
    16831659#endif  /* __IErrorInfo_INTERFACE_DEFINED__ */
    … …  
    16901666/* [unique][uuid][object] */
    16911667
    1692 TypeDef /* [unique] */ ICreateErrorInfo *LPCREATEERRORINFO;
    1693 
    1694 
    1695 EXTERN_C const IID IID_ICreateErrorInfo;
    1696 
    1697     MIDL_INTERFACE("22F03340-547D-101B-8E65-08002B2BD119")
    1698     ICreateErrorInfo : public IUnknown
    1699     {
    1700     public:
    1701         Function SetGUID(
    1702             /* [in] */ REFGUID rguid) As HRESULT
    1703 
    1704         Function SetSource(
    1705             /* [in] */ LPOLESTR szSource) As HRESULT
    1706 
    1707         Function SetDescription(
    1708             /* [in] */ LPOLESTR szDescription) As HRESULT
    1709 
    1710         Function SetHelpFile(
    1711             /* [in] */ LPOLESTR szHelpFile) As HRESULT
    1712 
    1713         Function SetHelpContext(
    1714             /* [in] */ DWORD dwHelpContext) As HRESULT
    1715 
    1716     };
     1668TypeDef LPCREATEERRORINFO = /* [unique] */ *ICreateErrorInfo
     1669
     1670Dim IID_ICreateErrorInfo = [&h22F03340, &h547D, &h101B, [&h8E, &h65, &h08, &h00, &h2B, &h2B, &hD1, &h19]] As IID
     1671
     1672Interface ICreateErrorInfo
     1673    Inherits IUnknown
     1674
     1675    Function SetGUID(
     1676        /* [in] */ ByRef rguid As GUID) As HRESULT
     1677    Function SetSource(
     1678        /* [in] */ szSource As LPOLESTR) As HRESULT
     1679    Function SetDescription(
     1680        /* [in] */ szDescription As LPOLESTR) As HRESULT
     1681    Function SetHelpFile(
     1682        /* [in] */ szHelpFile As LPOLESTR) As HRESULT
     1683    Function SetHelpContext(
     1684        /* [in] */ dwHelpContext As DWord) As HRESULT
     1685End Interface
    17171686
    17181687#endif  /* __ICreateErrorInfo_INTERFACE_DEFINED__ */
    … …  
    17251694/* [unique][uuid][object] */
    17261695
    1727 TypeDef /* [unique] */ ISupportErrorInfo *LPSUPPORTERRORINFO;
    1728 
    1729 
    1730 EXTERN_C const IID IID_ISupportErrorInfo;
    1731 
    1732     MIDL_INTERFACE("DF0B3D60-548F-101B-8E65-08002B2BD119")
    1733     ISupportErrorInfo : public IUnknown
    1734     {
    1735     public:
    1736         Function InterfaceSupportsErrorInfo(
    1737             /* [in] */ REFIID riid) As HRESULT
    1738 
    1739     };
     1696TypeDef LPSUPPORTERRORINFO = /* [unique] */ *ISupportErrorInfo
     1697
     1698Dim IID_ISupportErrorInfo = [&hDF0B3D60, &h548F, &h101B, [&h8E, &h65, &h08, &h00, &h2B, &h2B, &hD1, &h19]] As IID
     1699
     1700Interface ISupportErrorInfo
     1701    Inherits IUnknown
     1702
     1703    Function InterfaceSupportsErrorInfo(
     1704        /* [in] */ ByRef riid As IID) As HRESULT
     1705End Interface
    17401706
    17411707#endif  /* __ISupportErrorInfo_INTERFACE_DEFINED__ */
    … …  
    17481714/* [uuid][object] */
    17491715
    1750 
    1751 EXTERN_C const IID IID_ITypeFactory;
    1752 
    1753     MIDL_INTERFACE("0000002E-0000-0000-C000-000000000046")
    1754     ITypeFactory : public IUnknown
    1755     {
    1756     public:
    1757         Function CreateFromTypeInfo(
    1758             /* [in] */ ITypeInfo *pTypeInfo,
    1759             /* [in] */ REFIID riid,
    1760             /* [iid_is][out] */ IUnknown **ppv) As HRESULT
    1761 
    1762     };
     1716Dim IID_ITypeFactory = [&h0000002E, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
     1717
     1718Interface ITypeFactory
     1719    Inherits IUnknown
     1720
     1721    Function CreateFromTypeInfo(
     1722        /* [in] */ pTypeInfo As *ITypeInfo,
     1723        /* [in] */ ByRef riid As IID,
     1724        /* [iid_is][out] */ ByRef pv As *IUnknown) As HRESULT
     1725End Interface
    17631726
    17641727#endif  /* __ITypeFactory_INTERFACE_DEFINED__ */
    … …  
    17711734/* [uuid][object][local] */
    17721735
    1773 
    1774 EXTERN_C const IID IID_ITypeMarshal;
    1775 
    1776     MIDL_INTERFACE("0000002D-0000-0000-C000-000000000046")
    1777     ITypeMarshal : public IUnknown
    1778     {
    1779     public:
    1780         Function Size(
    1781             /* [in] */ PVOID pvType,
    1782             /* [in] */ DWORD dwDestContext,
    1783             /* [in] */ PVOID pvDestContext,
    1784             /* [out] */ ULONG *pSize) As HRESULT
    1785 
    1786         Function Marshal(
    1787             /* [in] */ PVOID pvType,
    1788             /* [in] */ DWORD dwDestContext,
    1789             /* [in] */ PVOID pvDestContext,
    1790             /* [in] */ ULONG cbBufferLength,
    1791             /* [out] */ BYTE *pBuffer,
    1792             /* [out] */ ULONG *pcbWritten) As HRESULT
    1793 
    1794         Function Unmarshal(
    1795             /* [out] */ PVOID pvType,
    1796             /* [in] */ DWORD dwFlags,
    1797             /* [in] */ ULONG cbBufferLength,
    1798             /* [in] */ BYTE *pBuffer,
    1799             /* [out] */ ULONG *pcbRead) As HRESULT
    1800 
    1801         Function Free(
    1802             /* [in] */ PVOID pvType) As HRESULT
    1803 
    1804     };
     1736Dim IID_ITypeMarshal = [&h0000002D, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
     1737
     1738Interface ITypeMarshal
     1739    Inherits IUnknown
     1740
     1741    Function Size(
     1742        /* [in] */ pvType As VoidPtr,
     1743        /* [in] */ dwDestContext As DWord,
     1744        /* [in] */ pvDestContext As VoidPtr,
     1745        /* [out] */ ByRef Size As DWord) As HRESULT
     1746    Function Marshal(
     1747        /* [in] */ pvType As VoidPtr,
     1748        /* [in] */ dwDestContext As DWord,
     1749        /* [in] */ pvDestContext As VoidPtr,
     1750        /* [in] */ cbBufferLength As DWord,
     1751        /* [out] */ pBuffer As *Byte,
     1752        /* [out] */ ByRef cbWritten As DWord) As HRESULT
     1753    Function Unmarshal(
     1754        /* [out] */ pvType As VoidPtr,
     1755        /* [in] */ dwFlags As DWord,
     1756        /* [in] */ cbBufferLength As DWord,
     1757        /* [in] */ pBuffer As *Byte,
     1758        /* [out] */ ByRef cbRead As DWord) As HRESULT
     1759    Function Free(
     1760        /* [in] */ pvType As VoidPtr) As HRESULT
     1761End Interface
    18051762
    18061763#endif  /* __ITypeMarshal_INTERFACE_DEFINED__ */
    … …  
    18131770/* [uuid][object][local] */
    18141771
    1815 TypeDef /* [unique] */ IRecordInfo *LPRECORDINFO;
    1816 
    1817 
    1818 EXTERN_C const IID IID_IRecordInfo;
    1819 
    1820     MIDL_INTERFACE("0000002F-0000-0000-C000-000000000046")
    1821     IRecordInfo : public IUnknown
    1822     {
    1823     public:
    1824         Function RecordInit(
    1825             /* [out] */ PVOID pvNew) As HRESULT
    1826 
    1827         Function RecordClear(
    1828             /* [in] */ PVOID pvExisting) As HRESULT
    1829 
    1830         Function RecordCopy(
    1831             /* [in] */ PVOID pvExisting,
    1832             /* [out] */ PVOID pvNew) As HRESULT
    1833 
    1834         Function GetGuid(
    1835             /* [out] */ GUID *pguid) As HRESULT
    1836 
    1837         Function GetName(
    1838             /* [out] */ BSTR *pbstrName) As HRESULT
    1839 
    1840         Function GetSize(
    1841             /* [out] */ ULONG *pcbSize) As HRESULT
    1842 
    1843         Function GetTypeInfo(
    1844             /* [out] */ ITypeInfo **ppTypeInfo) As HRESULT
    1845 
    1846         Function GetField(
    1847             /* [in] */ PVOID pvData,
    1848             /* [in] */ LPCOLESTR szFieldName,
    1849             /* [out] */ VARIANT *pvarField) As HRESULT
    1850 
    1851         Function GetFieldNoCopy(
    1852             /* [in] */ PVOID pvData,
    1853             /* [in] */ LPCOLESTR szFieldName,
    1854             /* [out] */ VARIANT *pvarField,
    1855             /* [out] */ PVOID *ppvDataCArray) As HRESULT
    1856 
    1857         Function PutField(
    1858             /* [in] */ ULONG wFlags,
    1859             /* [out][in] */ PVOID pvData,
    1860             /* [in] */ LPCOLESTR szFieldName,
    1861             /* [in] */ VARIANT *pvarField) As HRESULT
    1862 
    1863         Function PutFieldNoCopy(
    1864             /* [in] */ ULONG wFlags,
    1865             /* [out][in] */ PVOID pvData,
    1866             /* [in] */ LPCOLESTR szFieldName,
    1867             /* [in] */ VARIANT *pvarField) As HRESULT
    1868 
    1869         Function GetFieldNames(
    1870             /* [out][in] */ ULONG *pcNames,
    1871             /* [length_is][size_is][out] */ BSTR *rgBstrNames) As HRESULT
    1872 
    1873         virtual BOOL STDMETHODCALLTYPE IsMatchingType(
    1874             /* [in] */ IRecordInfo *pRecordInfo) As HRESULT
    1875 
    1876         virtual PVOID STDMETHODCALLTYPE RecordCreate( void) As HRESULT
    1877 
    1878         Function RecordCreateCopy(
    1879             /* [in] */ PVOID pvSource,
    1880             /* [out] */ PVOID *ppvDest) As HRESULT
    1881 
    1882         Function RecordDestroy(
    1883             /* [in] */ PVOID pvRecord) As HRESULT
    1884 
    1885     };
     1772TypeDef LPRECORDINFO = /* [unique] */ *IRecordInfo
     1773
     1774Dim IID_IRecordInfo = [&h0000002F, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
     1775
     1776Interface IRecordInfo
     1777    Inherits IUnknown
     1778
     1779    Function RecordInit(
     1780        /* [out] */ pvNew As VoidPtr) As HRESULT
     1781    Function RecordClear(
     1782        /* [in] */ pvExisting As VoidPtr) As HRESULT
     1783    Function RecordCopy(
     1784        /* [in] */ pvExisting As VoidPtr,
     1785        /* [out] */ pvNew As VoidPtr) As HRESULT
     1786    Function GetGuid(
     1787        /* [out] */ ByRef guid As GUID) As HRESULT
     1788    Function GetName(
     1789        /* [out] */ ByRef bstrName As BSTR) As HRESULT
     1790    Function GetSize(
     1791        /* [out] */ ByRef cbSize As DWord) As HRESULT
     1792    Function GetTypeInfo(
     1793        /* [out] */ ByRef pTypeInfo As *ITypeInfo) As HRESULT
     1794    Function GetField(
     1795        /* [in] */ pvData As VoidPtr,
     1796        /* [in] */ szFieldName As LPCOLESTR,
     1797        /* [out] */ ByRef varField As VARIANT) As HRESULT
     1798    Function GetFieldNoCopy(
     1799        /* [in] */ pvData As VoidPtr,
     1800        /* [in] */ szFieldName As LPCOLESTR,
     1801        /* [out] */ ByRef varField As VARIANT,
     1802        /* [out] */ ByRef pvDataCArray As VoidPtr) As HRESULT
     1803    Function PutField(
     1804        /* [in] */ wFlags As DWord,
     1805        /* [out][in] */ pvData As VoidPtr,
     1806        /* [in] */ szFieldName As LPCOLESTR,
     1807        /* [in] */ ByRef varField As VARIANT) As HRESULT
     1808    Function PutFieldNoCopy(
     1809        /* [in] */ wFlags As DWord,
     1810        /* [out][in] */ pvData As VoidPtr,
     1811        /* [in] */ szFieldName As LPCOLESTR,
     1812        /* [in] */ ByRef varField As VARIANT) As HRESULT
     1813    Function GetFieldNames(
     1814        /* [out][in] */ ByRef cNames As DWord,
     1815        /* [length_is][size_is][out] */ rgBstrNames As *BSTR) As HRESULT
     1816    Function IsMatchingType(
     1817        /* [in] */ pRecordInfo As *IRecordInfo) As BOOL
     1818    Function RecordCreate() As VoidPtr
     1819    Function RecordCreateCopy(
     1820        /* [in] */ pvSource As VoidPtr,
     1821        /* [out] */ ByRef pvDest As VoidPtr) As HRESULT
     1822    Function RecordDestroy(
     1823        /* [in] */ pvRecord As VoidPtr) As HRESULT
     1824End Interface
    18861825
    18871826#endif  /* __IRecordInfo_INTERFACE_DEFINED__ */
    1888 
    1889 #endif ' __UNDEFINED__
    18901827
    18911828
Note: See TracChangeset for help on using the changeset viewer.