Changeset 211 for Include


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

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

Location:
Include
Files:
1 added
7 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

  • Include/OleAuto.ab

    r200 r211  
    2424#include <oaidl.ab>
    2525'Dummy
    26 Interface IErrorInfo
    27     Inherits IUnknown
    28 End Interface
    29 
    30 Interface ICreateErrorInfo
    31     Inherits IUnknown
    32 End Interface
    33 
    34 Const Enum SYSKIND
    35 End Enum
    3626
    3727' BSTR API

  • Include/com/currency.ab

    r208 r211  
    88Class Currency
    99Public
     10    Sub Currency()
     11        cy = 0
     12    End Sub
     13
    1014/*
    1115    Sub Currency(x As CY)
    … …  
    201205        Return HIDWORD(cy) Xor LODWORD(cy)
    202206    End Function
     207
     208    Function Equals(y As Currency) As Boolean
     209        Dim c = Compare(This, y)
     210        Return c = VARCMP_EQ
     211    End Function
    203212Private
    204213    cy As CY

  • Include/com/index.ab

    r200 r211  
    55#require <com/vbobject.ab>
    66#require <com/currency.ab>
     7#require <com/decimal.ab>

  • Include/com/variant.ab

    r208 r211  
    519519
    520520    Const Function ValCy() As Currency
     521        Dim r = ChangeType(VT_CY)
     522        ValCy = New Currency
     523        ValCy.Cy = GetQWord(VarPtr(r.val))
    521524    End Function
    522525
    523526    Sub ValCy(x As Currency)
     527        Clear()
     528        SetQWord(VarPtr(v.val), x.Cy)
     529        v.vt = VT_CY
    524530    End Sub
    525531   
    … …  
    570576    'ValArray
    571577
    572     'ValDecimal
     578    Const Function ValDecimal() As Decimal
     579        Dim p = VarPtr(v) As *Decimal
     580        Return New Deciaml(p[0])
     581    End Function
     582
     583    Sub ValDecimal(x As Decimal)
     584        Clear()
     585        Dim p = VarPtr(v) As *Decimal
     586        p[0] = x.Dec
     587        v.vt = VT_DECIMAL '念の為
     588    End Sub
     589   
    573590
    574591    Function PtrToVariant() As *VARIANT
    … …  
    591608    End Sub
    592609
    593 
    594610    Static Sub Move(ByRef dst As VARIANT, ByRef src As VARIANT)
    595611        dst = src

  • Include/objidl.sbp

    r175 r211  
    165165TypeDef LPSTREAM = *IStream
    166166
    167 ' IEnumSTATSTG
     167Interface IEnumSTATSTG
     168    Inherits IUnknown
     169End Interface
     170
     171#ifndef __IStorage_INTERFACE_DEFINED__
     172#define __IStorage_INTERFACE_DEFINED__
     173
     174/* interface IStorage */
     175/* [unique][uuid][object] */
     176
     177TypeDef LPSTORAGE = /* [unique] */ *IStorage
     178
     179Type RemSNB
     180    ulCntStr As DWord
     181    ulCntChar As DWord
     182    rgString[ELM(1)] As OLECHAR
     183End Type
     184
     185TypeDef wireSNB /* [unique] */ = *RemSNB
     186
     187TypeDef SNB = /* [wire_marshal] */ **OLECHAR
     188
     189Dim IID_IStorage = [&h0000000b, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
    168190
    169191Interface IStorage
    170192    Inherits IUnknown
    171 End Interface
     193
     194    Function CreateStream(
     195        /* [string][in] */ pwcsName As *OLECHAR,
     196        /* [in] */ grfMode As DWord,
     197        /* [in] */ reserved1 As DWord,
     198        /* [in] */ reserved2 As DWord,
     199        /* [out] */ ByRef pstm As *IStream) As HRESULT
     200    /* [local] */ Function OpenStream(
     201        /* [string][in] */ pwcsName As *OLECHAR,
     202        /* [unique][in] */ reserved1 As VoidPtr,
     203        /* [in] */ grfMode As DWord,
     204        /* [in] */ reserved2 As DWord,
     205        /* [out] */ ByRef pstm As *IStream) As HRESULT
     206    Function CreateStorage(
     207        /* [string][in] */ pwcsName As *OLECHAR,
     208        /* [in] */ grfMode As DWord,
     209        /* [in] */ reserved1 As DWord,
     210        /* [in] */ reserved2 As DWord,
     211        /* [out] */ ByRef pstg As *IStorage) As HRESULT
     212    Function OpenStorage(
     213        /* [string][unique][in] */ pwcsName As *OLECHAR,
     214        /* [unique][in] */ pstgPriority As IStorage,
     215        /* [in] */ grfMode As DWord,
     216        /* [unique][in] */ snbExclude As SNB,
     217        /* [in] */ reserved As DWord,
     218        /* [out] */ ByRef pstg As *IStorage) As HRESULT
     219    /* [local] */ Function CopyTo(
     220        /* [in] */ ciidExclude As DWord,
     221        /* [size_is][unique][in] */ ByRef rgiidExclude As * /*Const*/ IID,
     222        /* [unique][in] */ snbExclude As SNB,
     223        /* [unique][in] */ pstgDest As *IStorage) As HRESULT
     224    Function MoveElementTo(
     225        /* [string][in] */ pwcsName As *OLECHAR,
     226        /* [unique][in] */ pstgDest As *IStorage,
     227        /* [string][in] */ pwcsNewName As *OLECHAR,
     228        /* [in] */ grfFlags As DWord) As HRESULT
     229    Function Commit(
     230        /* [in] */ grfCommitFlags As DWord) As HRESULT
     231    Function Revert() As HRESULT
     232    /* [local] */ Function EnumElements(
     233        /* [in] */ reserved1 As DWord,
     234        /* [size_is][unique][in] */ reserved2 As VoidPtr,
     235        /* [in] */ reserved3 As DWord,
     236        /* [out] */ ByRef penum As *IEnumSTATSTG) As HRESULT
     237    Function DestroyElement(
     238        /* [string][in] */ pwcsName As *OLECHAR) As HRESULT
     239    Function RenameElement(
     240        /* [string][in] */ pwcsOldName As *OLECHAR,
     241        /* [string][in] */ pwcsNewName As *OLECHAR) As HRESULT
     242    Function SetElementTimes(
     243            /* [string][unique][in] */ pwcsName As *OLECHAR,
     244            /* [unique][in] */ ByRef ctime As /*Const*/ FILETIME,
     245            /* [unique][in] */ ByRef atime As /*Const*/ FILETIME,
     246            /* [unique][in] */ ByRef mtime As /*Const*/ FILETIME) As HRESULT
     247    Function SetClass(
     248            /* [in] */ ByRef clsid As CLSID) As HRESULT
     249    Function SetStateBits(
     250            /* [in] */ grfStateBits As DWord,
     251            /* [in] */ grfMask As DWord) As HRESULT
     252    Function Stat(
     253            /* [out] */ ByRef statstg As STATSTG,
     254            /* [in] */ grfStatFlag As DWord) As HRESULT
     255End Interface
     256
     257#endif  /* __IStorage_INTERFACE_DEFINED__ */
    172258
    173259Interface IPersistFile
    … …  
    175261
    176262    Function IsDirty() As HRESULT
    177 
    178263    Function Load(
    179264        /* [in] */ pszFileName As LPCOLESTR,
    180265        /* [in] */ dwMode As DWord) As HRESULT
    181 
    182266    Function Save(
    183267        /* [unique][in] */ pszFileName As LPCOLESTR,
    184268        /* [in] */ fRemember As BOOL) As HRESULT
    185 
    186269    Function SaveCompleted(
    187270        /* [unique][in] */ pszFileName As LPCOLESTR) As HRESULT
    188 
    189271    Function GetCurFile(
    190272        /* [out] */ ByRef pszFileName As LPOLESTR) As HRESULT

  • Include/ole2.ab

    r186 r211  
    4141End Interface
    4242
    43 #include <api_winerror.sbp>
    44 
    45 #include <objbase.sbp>
    46 #include <oleauto.ab>
     43#require <api_winerror.sbp>
     44
     45#require <objbase.sbp>
     46#require <oleauto.ab>
    4747
    4848' View OBJECT Error Codes
Note: See TracChangeset for help on using the changeset viewer.