Changeset 200 for Include/OAIdl.ab

Timestamp:

Apr 2, 2007, 11:55:39 PM (18 years ago)

Author:

イグトランス (egtra)

Message:

Currencyにメンバを追加

File:

• Include/OAIdl.ab (modified) (6 diffs)

Include/OAIdl.ab

@@ -1326 +1326 @@
 TypeDef LPTYPEINFO = /* [unique] */ *ITypeInfo
 
-Dim IID_ITypeInfo = [&H00020401, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
+Dim IID_ITypeInfo = [&h00020401, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
 
 Interface ITypeInfo
@@ -1429 +1429 @@
 TypeDef LPTYPEINFO2 = /* [unique] */ *ITypeInfo2
 
-Dim IID_ITypeInfo2 = [&H00020412, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
+Dim IID_ITypeInfo2 = [&h00020412, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
 
 Interface ITypeInfo2
@@ -1490 +1490 @@
 #endif  /* __ITypeInfo2_INTERFACE_DEFINED__ */
 
-#ifdef __UNDECLARED__
-
 #ifndef __ITypeLib_INTERFACE_DEFINED__
 #define __ITypeLib_INTERFACE_DEFINED__
@@ -1499 +1497 @@
 
 /* [v1_enum] */
-Enum SYSKIND
+Const Enum SYSKIND
     SYS_WIN16 = 0
-    SYS_WIN32 = SYS_WIN16 + 1
-    SYS_MAC = SYS_WIN32 + 1
-    SYS_WIN64 = SYS_MAC + 1
+    SYS_WIN32 = 1
+    SYS_MAC = 2
+    SYS_WIN64 = 3
 End Enum
 
 /* [v1_enum] */
-Enum LIBFLAGS
+Const Enum LIBFLAGS
     LIBFLAG_FRESTRICTED = &h1
     LIBFLAG_FCONTROL = &h2
@@ -1514 +1512 @@
 End Enum
 
-TypeDef /* [unique] */ ITypeLib *LPTYPELIB;
+TypeDef LPTYPELIB = /* [unique] */ *ITypeLib
 
 Type TLIBATTR
@@ -1525 +1523 @@
 End Type
 
-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
-
-    };
+TypeDef LPTLIBATTR = TLIBATTR
+
+Dim ITypeLib = [&h00020402, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
+
+Interface ITypeLib
+    Inherits IUnknown
+
+    Function /* [local] */ GetTypeInfoCount() As DWord
+    Function GetTypeInfo(
+        /* [in] */ index As DWord,
+        /* [out] */ ByRef pTInfo As *ITypeInfo) As HRESULT
+    Function GetTypeInfoType(
+        /* [in] */ index As DWord,
+        /* [out] */ ByRef TKind As TYPEKIND) As HRESULT
+    Function GetTypeInfoOfGuid(
+        /* [in] */ ByRef guid As GUID,
+        /* [out] */ ByRef pTInfo As *ITypeInfo) As HRESULT
+    Function /* [local] */ GetLibAttr(
+        /* [out] */ ByRef pTLibAttr As *TLIBATTR) As HRESULT
+    Function GetTypeComp(
+        /* [out] */ ByRef ppTComp As *ITypeComp) As HRESULT
+    Function /* [local] */ GetDocumentation(
+        /* [in] */ index As Long,
+        /* [out] */ ByRef BstrName As BSTR,
+        /* [out] */ ByRef BstrDocString As BSTR,
+        /* [out] */ ByRef dwHelpContext As DWord,
+        /* [out] */ ByRef BstrHelpFile As BSTR) As HRESULT
+    Function /* [local] */ IsName(
+        /* [out][in] */ szNameBuf As LPOLESTR,
+        /* [in] */ lHashVal As DWord,
+        /* [out] */ ByRef pfName As BOOL) As HRESULT
+    Function /* [local] */ FindName(
+        /* [out][in] */ szNameBuf As LPOLESTR,
+        /* [in] */ lHashVal As DWord,
+        /* [length_is][size_is][out] */ ppTInfo As **ITypeInfo,
+        /* [length_is][size_is][out] */ rgMemId As *MEMBERID,
+        /* [out][in] */ ByRef cFound As Word) As HRESULT
+    Sub /* [local] */ ReleaseTLibAttr(
+        /* [in] */ ByRef TLibAttr As TLIBATTR) 
+End Interface
 
 #endif  /* __ITypeLib_INTERFACE_DEFINED__ */
 
+
+#ifdef __UNDECLARED__
 
 #ifndef __ITypeLib2_INTERFACE_DEFINED__