| [1] | 1 | ' unknwn.sbp
|
|---|
| 2 | ' 本来はunknwn.idlから生成するのが正当ですが、これは手動で移植したものです。
|
|---|
| 3 |
|
|---|
| 4 | #ifndef _INC_UNKNWN
|
|---|
| 5 | #define _INC_UNKNWN
|
|---|
| 6 |
|
|---|
| 7 | '-------------------
|
|---|
| 8 | ' Unknown Interface
|
|---|
| 9 | '-------------------
|
|---|
| 10 |
|
|---|
| 11 | Dim IID_IUnknown = [&H00000000, &H0000, &H0000, [&HC0, &H00, &H00, &H00, &H00, &H00, &H00, &H46]] As IID
|
|---|
| 12 |
|
|---|
| 13 | Interface IUnknown
|
|---|
| [381] | 14 | __COM
|
|---|
| [1] | 15 | Function QueryInterface(ByRef riid As IID, ByRef pvObj As Any) As HRESULT
|
|---|
| 16 | Function AddRef() As DWord
|
|---|
| 17 | Function Release() As DWord
|
|---|
| 18 | End Interface
|
|---|
| 19 | TypeDef LPUNKNOWN = *IUnknown
|
|---|
| 20 |
|
|---|
| 21 | Dim IID_AsyncIUnknown = [&H000e0000, &H0000, &H0000, [&HC0, &H00, &H00, &H00, &H00, &H00, &H00, &H46]] As IID
|
|---|
| 22 | Interface AsyncIUnknown
|
|---|
| 23 | Inherits IUnknown
|
|---|
| 24 |
|
|---|
| 25 | Function Begin_QueryInterface(
|
|---|
| 26 | /* [in] */ ByRef riid As IID) As HRESULT
|
|---|
| 27 | Function Finish_QueryInterface(
|
|---|
| 28 | /* [out] */ ByRef ppvObject As Any) As HRESULT
|
|---|
| 29 | Function Begin_AddRef() As HRESULT
|
|---|
| 30 | Function Finish_AddRef() As DWord
|
|---|
| 31 | Function Begin_Release() As HRESULT
|
|---|
| 32 | Function Finish_Release() As DWord
|
|---|
| 33 | End Interface
|
|---|
| 34 |
|
|---|
| 35 | Dim IID_IClassFactory = [&H00000000, &H0000, &H0000, [&HC0, &H00, &H00, &H00, &H00, &H00, &H00, &H46]] As IID
|
|---|
| 36 | Interface IClassFactory
|
|---|
| 37 | Inherits IUnknown
|
|---|
| 38 |
|
|---|
| 39 | Function CreateInstance(ByVal pUnkOuter As *IUnknown, ByRef riid As IID, ByRef ppvObject As Any) As HRESULT
|
|---|
| 40 | Function LockServer(ByVal fLock As BOOL) As HRESULT
|
|---|
| 41 | End Interface
|
|---|
| 42 |
|
|---|
| 43 | #endif '_INC_UNKNWN
|
|---|
