Changeset 211
- Timestamp:
- Apr 11, 2007, 9:49:17 PM (18 years ago)
- Location:
- Include
- Files:
-
- 1 added
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
Include/OAIdl.ab
r200 r211 86 86 87 87 TypeDef DATE = Double ' WTypes.ab 88 89 Interface IRecordInfo90 Inherits IUnknown91 End Interface92 93 88 94 89 /* interface IOleAutomationTypes */ … … 1567 1562 1568 1563 1569 #ifdef __UNDECLARED__1570 1571 1564 #ifndef __ITypeLib2_INTERFACE_DEFINED__ 1572 1565 #define __ITypeLib2_INTERFACE_DEFINED__ … … 1575 1568 /* [unique][uuid][object] */ 1576 1569 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 }; 1570 TypeDef LPTYPELIB2 = /* [unique] */ *ITypeLib2 1571 1572 Dim IID_ITypeLib2 = [&h00020411, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID 1573 1574 Interface 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 1591 End Interface 1605 1592 1606 1593 #endif /* __ITypeLib2_INTERFACE_DEFINED__ */ … … 1613 1600 /* [local][unique][uuid][object] */ 1614 1601 1615 TypeDef /* [unique] */ ITypeChangeEvents *LPTYPECHANGEEVENTS;1602 TypeDef LPTYPECHANGEEVENTS = /* [unique] */ *ITypeChangeEvents 1616 1603 1617 1604 Enum 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 + 11605 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 1626 1613 End Enum 1627 1614 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 }; 1615 Dim IID_ITypeChangeEvents = [&h00020410, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID 1616 1617 Interface 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 1629 End Interface 1647 1630 1648 1631 #endif /* __ITypeChangeEvents_INTERFACE_DEFINED__ */ … … 1655 1638 /* [unique][uuid][object] */ 1656 1639 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 }; 1640 TypeDef LPERRORINFO = /* [unique] */ *IErrorInfo 1641 1642 Dim IID_IErrorInfo = [&h1CF2B120, &h547D, &h101B, [&h8E, &h65, &h08, &h00, &h2B, &h2B, &hD1, &h19]] As IID 1643 1644 Interface 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 1657 End Interface 1682 1658 1683 1659 #endif /* __IErrorInfo_INTERFACE_DEFINED__ */ … … 1690 1666 /* [unique][uuid][object] */ 1691 1667 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 }; 1668 TypeDef LPCREATEERRORINFO = /* [unique] */ *ICreateErrorInfo 1669 1670 Dim IID_ICreateErrorInfo = [&h22F03340, &h547D, &h101B, [&h8E, &h65, &h08, &h00, &h2B, &h2B, &hD1, &h19]] As IID 1671 1672 Interface 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 1685 End Interface 1717 1686 1718 1687 #endif /* __ICreateErrorInfo_INTERFACE_DEFINED__ */ … … 1725 1694 /* [unique][uuid][object] */ 1726 1695 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 }; 1696 TypeDef LPSUPPORTERRORINFO = /* [unique] */ *ISupportErrorInfo 1697 1698 Dim IID_ISupportErrorInfo = [&hDF0B3D60, &h548F, &h101B, [&h8E, &h65, &h08, &h00, &h2B, &h2B, &hD1, &h19]] As IID 1699 1700 Interface ISupportErrorInfo 1701 Inherits IUnknown 1702 1703 Function InterfaceSupportsErrorInfo( 1704 /* [in] */ ByRef riid As IID) As HRESULT 1705 End Interface 1740 1706 1741 1707 #endif /* __ISupportErrorInfo_INTERFACE_DEFINED__ */ … … 1748 1714 /* [uuid][object] */ 1749 1715 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 }; 1716 Dim IID_ITypeFactory = [&h0000002E, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID 1717 1718 Interface 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 1725 End Interface 1763 1726 1764 1727 #endif /* __ITypeFactory_INTERFACE_DEFINED__ */ … … 1771 1734 /* [uuid][object][local] */ 1772 1735 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 }; 1736 Dim IID_ITypeMarshal = [&h0000002D, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID 1737 1738 Interface 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 1761 End Interface 1805 1762 1806 1763 #endif /* __ITypeMarshal_INTERFACE_DEFINED__ */ … … 1813 1770 /* [uuid][object][local] */ 1814 1771 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 }; 1772 TypeDef LPRECORDINFO = /* [unique] */ *IRecordInfo 1773 1774 Dim IID_IRecordInfo = [&h0000002F, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID 1775 1776 Interface 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 1824 End Interface 1886 1825 1887 1826 #endif /* __IRecordInfo_INTERFACE_DEFINED__ */ 1888 1889 #endif ' __UNDEFINED__1890 1827 1891 1828 -
Include/OleAuto.ab
r200 r211 24 24 #include <oaidl.ab> 25 25 'Dummy 26 Interface IErrorInfo27 Inherits IUnknown28 End Interface29 30 Interface ICreateErrorInfo31 Inherits IUnknown32 End Interface33 34 Const Enum SYSKIND35 End Enum36 26 37 27 ' BSTR API -
Include/com/currency.ab
r208 r211 8 8 Class Currency 9 9 Public 10 Sub Currency() 11 cy = 0 12 End Sub 13 10 14 /* 11 15 Sub Currency(x As CY) … … 201 205 Return HIDWORD(cy) Xor LODWORD(cy) 202 206 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 203 212 Private 204 213 cy As CY -
Include/com/index.ab
r200 r211 5 5 #require <com/vbobject.ab> 6 6 #require <com/currency.ab> 7 #require <com/decimal.ab> -
Include/com/variant.ab
r208 r211 519 519 520 520 Const Function ValCy() As Currency 521 Dim r = ChangeType(VT_CY) 522 ValCy = New Currency 523 ValCy.Cy = GetQWord(VarPtr(r.val)) 521 524 End Function 522 525 523 526 Sub ValCy(x As Currency) 527 Clear() 528 SetQWord(VarPtr(v.val), x.Cy) 529 v.vt = VT_CY 524 530 End Sub 525 531 … … 570 576 'ValArray 571 577 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 573 590 574 591 Function PtrToVariant() As *VARIANT … … 591 608 End Sub 592 609 593 594 610 Static Sub Move(ByRef dst As VARIANT, ByRef src As VARIANT) 595 611 dst = src -
Include/objidl.sbp
r175 r211 165 165 TypeDef LPSTREAM = *IStream 166 166 167 ' IEnumSTATSTG 167 Interface IEnumSTATSTG 168 Inherits IUnknown 169 End Interface 170 171 #ifndef __IStorage_INTERFACE_DEFINED__ 172 #define __IStorage_INTERFACE_DEFINED__ 173 174 /* interface IStorage */ 175 /* [unique][uuid][object] */ 176 177 TypeDef LPSTORAGE = /* [unique] */ *IStorage 178 179 Type RemSNB 180 ulCntStr As DWord 181 ulCntChar As DWord 182 rgString[ELM(1)] As OLECHAR 183 End Type 184 185 TypeDef wireSNB /* [unique] */ = *RemSNB 186 187 TypeDef SNB = /* [wire_marshal] */ **OLECHAR 188 189 Dim IID_IStorage = [&h0000000b, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID 168 190 169 191 Interface IStorage 170 192 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 255 End Interface 256 257 #endif /* __IStorage_INTERFACE_DEFINED__ */ 172 258 173 259 Interface IPersistFile … … 175 261 176 262 Function IsDirty() As HRESULT 177 178 263 Function Load( 179 264 /* [in] */ pszFileName As LPCOLESTR, 180 265 /* [in] */ dwMode As DWord) As HRESULT 181 182 266 Function Save( 183 267 /* [unique][in] */ pszFileName As LPCOLESTR, 184 268 /* [in] */ fRemember As BOOL) As HRESULT 185 186 269 Function SaveCompleted( 187 270 /* [unique][in] */ pszFileName As LPCOLESTR) As HRESULT 188 189 271 Function GetCurFile( 190 272 /* [out] */ ByRef pszFileName As LPOLESTR) As HRESULT -
Include/ole2.ab
r186 r211 41 41 End Interface 42 42 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> 47 47 48 48 ' View OBJECT Error Codes
Note:
See TracChangeset
for help on using the changeset viewer.