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