ab.com コミュニティ

by **ノッチ** » 2006年5月31日(水) 17:16

貴重な意見、ありがとうございます。
これから仕事で外に出るのですぐには試せないのですが、時間のある時に四苦八苦してみます。

> 話を簡単にするため、IUnknownを扱うことにします。
> また、これを応用してます。
> http://www.activebasic.com/forum/viewto ... =1076#4806
>
> COMのメソッド（というよりクラスのメンバ関数全般）はThisに相当する引数を隠し持っています。
> それを渡すようにすればうまくいくはずです。
>

[ここをクリックすると内容が表示されます]

コード: 全て選択

#strict
> 
> TypeDef HRESULT = Long
> TypeDef ULONG = DWord
> 
> TypeDef CLSID = GUID
> TypeDef IID = GUID
> 
> Class IUnknownVTable
> Public
>     QueryInterface As *Function(ByRef thunk As IUnknown, ByRef iid As IID, ppvObj As *VoidPtr) As HRESULT
>     AddRef As *Function(ByRef thunk As IUnknown) As ULONG
>     Release As *Function(ByRef thunk As IUnknown) As ULONG
> End Class
> 
> Type IUnknownStruct 'IUnknownを構造体で表したもの。
> 	vtable As *IUnknownVTable
> End Type
> 
> Dim IID_IUnknown = [0, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
> 
> Dim CLSID_ShellLink = [&H00021401, &H0000, &H0000, [&HC0, &H00, &H00, &H00, &H00, &H00, &H00, &H46]] As CLSID
> 
> Dim punk As *IUnknownStruct
> 
> If CoInitialize(0) = S_OK Then
>     If CoCreateInstance(CLSID_ShellLink, 0, CLSCTX_INPROC_SERVER, IID_IUnknown, VarPtr(punk)) = S_OK Then
>         punk->vtable->Release(ByVal punk)
>     End If
>     CoUninitialize()
> End If

> > punk->vtable->Release(ByVal punk)
> これが大事です。ByRef引数だったものを流用しているのでByValを指定していますが，
> 初めからメソッドの宣言をByValにするほうが楽でしょう。
>
> しかしこれではインターフェイスへのポインタであるpunkを2度も書かなければならない上，ポインタからさらにポインタを辿っていくので式も一見複雑そうに見えてしまいます。
> そこで，このように関数化しておくと楽かもしれません。
>

[ここをクリックすると内容が表示されます]

コード: 全て選択

Function IUnkonwn_Release(punk As *IUnknownStruct) As ULONG
>     IUnkonwn_Release = punk->vtable->Release(ByVal punk)
> End Function
> 
> Function IUnkonwn_QueryInterface(punk As *IUnknownStruct, ByRef iid As IID, ppvObj As *VoidPtr) As HRESULT
>     IUnkonwn_QueryInterface = punk->vtable->QueryInterface(ByVal punk, iid, ppvObj)
> End Function

> クラスの無いCではこんなことをするマクロがあったのでそれを参考にしました。
>
> ショートカットを作りたいだけなら，（クラスを使っていますが）ここに私の例があります。
> あれこれ書いていますが，CreateShortcut関数はCOMの概念を隠すように作ってあります。
> それが使い物にならないとしても，その中身は少しは参考になるかと思います。
> http://www.activebasic.com/forum/viewtopic.php?t=774

by **イグトランス** » 2006年5月31日(水) 17:03

話を簡単にするため、IUnknownを扱うことにします。
また、これを応用してます。
http://www.activebasic.com/forum/viewto ... =1076#4806

COMのメソッド（というよりクラスのメンバ関数全般）はThisに相当する引数を隠し持っています。
それを渡すようにすればうまくいくはずです。

[ここをクリックすると内容が表示されます]

コード: 全て選択

#strict

TypeDef HRESULT = Long
TypeDef ULONG = DWord

TypeDef CLSID = GUID
TypeDef IID = GUID

Class IUnknownVTable
Public
    QueryInterface As *Function(ByRef thunk As IUnknown, ByRef iid As IID, ppvObj As *VoidPtr) As HRESULT
    AddRef As *Function(ByRef thunk As IUnknown) As ULONG
    Release As *Function(ByRef thunk As IUnknown) As ULONG
End Class

Type IUnknownStruct 'IUnknownを構造体で表したもの。
	vtable As *IUnknownVTable
End Type

Dim IID_IUnknown = [0, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID

Dim CLSID_ShellLink = [&H00021401, &H0000, &H0000, [&HC0, &H00, &H00, &H00, &H00, &H00, &H00, &H46]] As CLSID

Dim punk As *IUnknownStruct

If CoInitialize(0) = S_OK Then
    If CoCreateInstance(CLSID_ShellLink, 0, CLSCTX_INPROC_SERVER, IID_IUnknown, VarPtr(punk)) = S_OK Then
        punk->vtable->Release(ByVal punk)
    End If
    CoUninitialize()
End If

> punk->vtable->Release(ByVal punk)
これが大事です。ByRef引数だったものを流用しているのでByValを指定していますが，
初めからメソッドの宣言をByValにするほうが楽でしょう。

しかしこれではインターフェイスへのポインタであるpunkを2度も書かなければならない上，ポインタからさらにポインタを辿っていくので式も一見複雑そうに見えてしまいます。
そこで，このように関数化しておくと楽かもしれません。

[ここをクリックすると内容が表示されます]

コード: 全て選択

Function IUnkonwn_Release(punk As *IUnknownStruct) As ULONG
    IUnkonwn_Release = punk->vtable->Release(ByVal punk)
End Function

Function IUnkonwn_QueryInterface(punk As *IUnknownStruct, ByRef iid As IID, ppvObj As *VoidPtr) As HRESULT
    IUnkonwn_QueryInterface = punk->vtable->QueryInterface(ByVal punk, iid, ppvObj)
End Function

クラスの無いCではこんなことをするマクロがあったのでそれを参考にしました。

ショートカットを作りたいだけなら，（クラスを使っていますが）ここに私の例があります。
あれこれ書いていますが，CreateShortcut関数はCOMの概念を隠すように作ってあります。
それが使い物にならないとしても，その中身は少しは参考になるかと思います。
http://www.activebasic.com/forum/viewtopic.php?t=774

by **ノッチ** » 2006年5月31日(水) 15:57

少し先に進んだんで自己レスです。
CoCreateInstanceで取得したアドレスは、関数構造体(っていうのかな？)への
ポインタへのポインタらしく構造体を参照する構造体を宣言することで対応しました。
ですが、QueryInterfaceやReleaseがうまく動いてくれないです。
関数アドレスの取得はうまくいっているように見えるのですが。。。

[ここをクリックすると内容が表示されます]

コード: 全て選択

#STRICT

Type SHITEMID
	cb As Word
	abID[0] As Byte
End Type

Type ITEMIDLIST
	mkid As SHITEMID
End Type

Type PITEMIDLIST
	pmkid As *ITEMIDLIST
End Type

Dim CLSID_ShellLink		=[&H00021401,&H0000,&H0000,[&HC0,&H00,&H00,&H00,&H00,&H00,&H00,&H46]] As GUID
Dim IID_IShellLink		=[&H000214EE,&H0000,&H0000,[&HC0,&H00,&H00,&H00,&H00,&H00,&H00,&H46]] As GUID
Dim IID_IPersistFile	=[&H0000010B,&H0000,&H0000,[&HC0,&H00,&H00,&H00,&H00,&H00,&H00,&H46]] As GUID

Type _IPersistFile
	QueryInterface	As *Function(ByRef iid As GUID,ppvObject As *DWord) As Long
	AddRef			As *Function() As DWord
	Release			As *Function() As DWord
	GetClassID		As *Function(pClassID As VoidPtr) As Long
	IsDirty			As *Function() As Long
	Load			As *Function(pszFileName As *Byte,dwMode As DWord) As Long
	Save			As *Function(pszFileName As *Byte,fRemember As BOOL) As Long
	SaveCompleted	As *Function(pszFileName As *Byte) As Long
	GetCurFile		As *Function(ppszFileName As **Byte) As Long
End Type

Type IPersistFile
	i As *_IPersistFile
End Type

Type _IShellLink
	QueryInterface		As *Function(ByRef iid As GUID,ppvObject As *DWord) As Long
	AddRef				As *Function() As DWord
	Release				As *Function() As DWord
	GetPath				As *Function(pszFile As *Byte,cchMaxPath As Long,ByRef fd As WIN32_FIND_DATA,fFlags As DWord) As Long
	GetIDList			As *Function(ByRef ppidl As PITEMIDLIST)
	SetIDList			As *Function(ByRef pidl As ITEMIDLIST)
	GetDescription		As *Function(pszName As *Byte,cchMaxName As Long)
	SetDescription		As *Function(pszName As *Byte)
	GetWorkingDirectory	As *Function(pszDir As *Byte,cchMaxPath As Long)
	SetWorkingDirectory	As *Function(pszDir As *Byte)
	GetArguments		As *Function(pszArgs As *Byte,cchMaxPath As Long)
	SetArguments		As *Function(pszArgs As *Byte)
	GetHotkey			As *Function(pwHotkey As *Word)
	SetHotkey			As *Function(wHotkey As Word)
	GetShowCmd			As *Function(piShowCmd As *Long)
	SetShowCmd			As *Function(iShowCmd As Long)
	GetIconLocation		As *Function(pszIconPath As *Byte,cchIconPath As Long,piIcon As *Long)
	SetIconLocation		As *Function(pszIconPath As *Byte,iIcon As Long)
	SetRelativePath		As *Function(pszPathRel As *Byte)
	Resolve				As *Function(ByRef pidlRel As ITEMIDLIST)
	SetPath				As *Function(pszFile As BytePtr)
End Type

Type IShellLink
	i	As *_IShellLink
End Type

'---------------------------------------------------------------

Dim psl As *IShellLink
Dim ppf As *IPersistFile

If CoInitialize(0)=S_OK Then
	If CoCreateInstance(CLSID_ShellLink,0,CLSCTX_INPROC_SERVER,IID_IShellLink,VarPtr(psl))=S_OK Then
		If psl->i->QueryInterface(IID_IPersistFile,VarPtr(ppf))=S_OK Then
			debug
			ppf->i->Release()
		End If
		psl->i->Release()
	End If
	CoUninitialize()
End If

End

最終的にはショートカットを作成しようとしているのですが、どうすればよいでしょうか？

by **ノッチ** » 2006年5月31日(水) 13:28

COMインターフェースの呼び出しを行うのに通常はクラスを使用して呼び出しますが、
クラスの代わりに構造体を使用して呼び出すことは可能でしょうか？
試しでIShellLinkのインターフェースを取得してみたつもりなんですけど、
DebugしてもShellLinkの後半のアドレスが取得できてないようで・・・。
どこか根本的に間違っていますでしょうか？

[ここをクリックすると内容が表示されます]

コード: 全て選択

#STRICT

Type SHITEMID
	cb As Word
	abID[0] As Byte
End Type

Type ITEMIDLIST
	mkid As SHITEMID
End Type

Type PITEMIDLIST
	pmkid As *ITEMIDLIST
End Type

Dim CLSID_ShellLink		=[&H00021401,&H0000,&H0000,[&HC0,&H00,&H00,&H00,&H00,&H00,&H00,&H46]] As GUID
Dim IID_IShellLink		=[&H000214EE,&H0000,&H0000,[&HC0,&H00,&H00,&H00,&H00,&H00,&H00,&H46]] As GUID

Type _IShellLink
	QueryInterface		As *Function(ByRef iid As GUID,ppvObject As *DWord) As Long
	AddRef				As *Function() As DWord
	Release				As *Function() As DWord
	GetPath				As *Function(pszFile As *Byte,cchMaxPath As Long,ByRef fd As WIN32_FIND_DATA,fFlags As DWord) As Long
	GetIDList			As *Function(ByRef ppidl As PITEMIDLIST)
	SetIDList			As *Function(ByRef pidl As ITEMIDLIST)
	GetDescription		As *Function(pszName As *Byte,cchMaxName As Long)
	SetDescription		As *Function(pszName As *Byte)
	GetWorkingDirectory	As *Function(pszDir As *Byte,cchMaxPath As Long)
	SetWorkingDirectory	As *Function(pszDir As *Byte)
	GetArguments		As *Function(pszArgs As *Byte,cchMaxPath As Long)
	SetArguments		As *Function(pszArgs As *Byte)
	GetHotkey			As *Function(pwHotkey As *Word)
	SetHotkey			As *Function(wHotkey As Word)
	GetShowCmd			As *Function(piShowCmd As *Long)
	SetShowCmd			As *Function(iShowCmd As Long)
	GetIconLocation		As *Function(pszIconPath As *Byte,cchIconPath As Long,piIcon As *Long)
	SetIconLocation		As *Function(pszIconPath As *Byte,iIcon As Long)
	SetRelativePath		As *Function(pszPathRel As *Byte)
	Resolve				As *Function(ByRef pidlRel As ITEMIDLIST)
	SetPath				As *Function(pszFile As BytePtr)
End Type

TypeDef IShellLink=*_IShellLink


'##### 本体 #####

Dim psl As IShellLink

If CoInitialize(0)=S_OK Then
	If CoCreateInstance(CLSID_ShellLink,0,CLSCTX_INPROC_SERVER,IID_IShellLink,VarPtr(psl))=S_OK Then
		psl->Release()
	End If
	CoUninitialize()
End If

End

クラスを使えばすぐ済むかもしれませんが、クラスがなんとなく嫌いなもので。

ab.com コミュニティ

COMインターフェースを構造体から呼び出す

返信する

展開ビュートピックのレビュー: COMインターフェースを構造体から呼び出す

Re: COMインターフェースを構造体から呼び出す

COMインターフェースを構造体から呼び出す

COMインターフェースを構造体から呼び出す

返信する

展開ビュー トピックのレビュー: COMインターフェースを構造体から呼び出す

Re: COMインターフェースを構造体から呼び出す

COMインターフェースを構造体から呼び出す

展開ビュートピックのレビュー: COMインターフェースを構造体から呼び出す