ab.com コミュニティ

SysFreeString
SysAllocStringByteLen
を使用してメモリを確保した所、上手く行きました

> > CLSIDはちゃっと取得出来ています
> そうですか，自分のところではAPI関数のCLSIDFromProgIDを使ってダメだったもので。

_CLSIDFromProgIDは自作関数でして、変換などの処理を入れてます
大変すみません

> では，IDispatch.GetIDsOfNamesの2番目の引数が気になります。これは文字列へのポインタの配列を渡すところです。どう宣言しているかによりますが，VarPtr(wszName)とするとどうでしょうか？

VarPtrを使用しましたが結果は同じでした、
宣言はVirtual Function GetIDsOfNames(ByRef riid As ＧＵＩＤ,rgszNames As *Byte,cNames As DWord,lcid As DWord,ByRef rgDispId As Long) As LRESULT
ちなみに、エラーメッセージはDISP_E_UNKNOWNNAMEです

> また，ABからブラウザを操作したければIDispatchだけでなく，IWebBrowser2も使えます。DISPIDを取得して呼び出すという手順が不要な分，場合によってはこちらのほうが単純にできるかもしれません。

そちらの方やってみたいと思います
お手数お掛けして申し訳ありませんでした

> CLSIDはちゃっと取得出来ています
そうですか，自分のところではAPI関数のCLSIDFromProgIDを使ってダメだったもので。

では，IDispatch.GetIDsOfNamesの2番目の引数が気になります。これは文字列へのポインタの配列を渡すところです。どう宣言しているかによりますが，VarPtr(wszName)とするとどうでしょうか？

また，ABからブラウザを操作したければIDispatchだけでなく，IWebBrowser2も使えます。DISPIDを取得して呼び出すという手順が不要な分，場合によってはこちらのほうが単純にできるかもしれません。

> CLSIDFromProgIdは，IDispatch.GetIDsOfNames同様OLECHAR文字列を要求します。そのためMultiByteToWideCharで変換してやらないといけません。ただ，それは面倒なので，CLSIDを宣言することをお勧めします。

CLSIDはちゃっと取得出来ています
問題はIDispatch.GetIDsOfNamesの方で
MultiByteToWideCharで変換しているのですが、失敗するので
何故なのかなと思いまして…

TypeDef CLSID = GUID
Dim CLSID_InternetExplorer = [&H0002DF01, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As CLSID

CLSIDFromProgIdは，IDispatch.GetIDsOfNames同様OLECHAR文字列を要求します。そのためMultiByteToWideCharで変換してやらないといけません。ただ，それは面倒なので，CLSIDを宣言することをお勧めします。
[code]TypeDef CLSID = GUID
Dim CLSID_InternetExplorer = [&H0002DF01, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As CLSID[/code]

#include "IDispatch.sbp"

		'IDispatchのポインタ
		Dim pDisp As *IDispatch
		Dim ClsID As GUID,hr As Long

		'ProgIDからCLSIDを取得
		_CLSIDFromProgID("InternetExplorer.Application",ClsID)

		'COMの初期化
		CoInitialize(NULL)

		'オブジュクトの作成
		If CoCreateInstance(ClsID,NULL,CLSCTX_LOCAL_SERVER,IID_IDispatch,VarPtr(pDisp))=S_OK Then'CLSCTX_ALL
			OutputDebugString("IDispatch")

			'メソッドのディスパッチIDを取得
			Dim szFunction As *Byte,dispid As DISPID
			Dim wszName[MAX_PATH] As Word
			szFunction="Navigate"
			MultiByteToWideChar(CP_ACP,0,szFunction,-1,wszName,MAX_PATH)
			hr=pDisp->GetIDsOfNames(
				IID_NULL,
				wszName,
				1,
				LOCALE_SYSTEM_DEFAULT,
				dispid
			)
			If hr Then OutputDebugString("DispIDの取得に失敗")

			'IDispatchの解放
			pDisp->Release():OutputDebugString("IDispatch::Release")
		Else If &h80040154 Then
			OutputDebugString("レジストリのサーバータイプ値が不正、または登録されていません")
		End If

		'COMのクローズ
		CoUninitialize()
		
		End

COMを使うため
メゾットを呼び出そうとしているのですが、ディスパッチIDが取得できず・・・

[hide][code]#include "IDispatch.sbp"

'IDispatchのポインタ
Dim pDisp As *IDispatch
Dim ClsID As GUID,hr As Long

'ProgIDからCLSIDを取得
_CLSIDFromProgID("InternetExplorer.Application",ClsID)

'COMの初期化
CoInitialize(NULL)

'オブジュクトの作成
If CoCreateInstance(ClsID,NULL,CLSCTX_LOCAL_SERVER,IID_IDispatch,VarPtr(pDisp))=S_OK Then'CLSCTX_ALL
OutputDebugString("IDispatch")

'メソッドのディスパッチIDを取得
Dim szFunction As *Byte,dispid As DISPID
Dim wszName[MAX_PATH] As Word
szFunction="Navigate"
MultiByteToWideChar(CP_ACP,0,szFunction,-1,wszName,MAX_PATH)
hr=pDisp->GetIDsOfNames(
IID_NULL,
wszName,
1,
LOCALE_SYSTEM_DEFAULT,
dispid
)
If hr Then OutputDebugString("DispIDの取得に失敗")

'IDispatchの解放
pDisp->Release():OutputDebugString("IDispatch::Release")
Else If &h80040154 Then
OutputDebugString("レジストリのサーバータイプ値が不正、または登録されていません")
End If

'COMのクローズ
CoUninitialize()

End[/code][/hide]