次の方法で COM コンポーネントを使用しようとしています。
HRESULT _stdcall Run(
[in] SAFEARRAY(BSTR) paramNames,
[in] SAFEARRAY(VARIANT *) paramValues
);
C/C++ で paramValues 配列を作成するにはどうすればよいですか?
将来の読者が参照できるように、上記の回答に追加します。IDL ではSAFEARRAY(...)、配列記述子へのポインターを意味します。ただし、C++ ではSAFEARRAY、配列記述子を意味します。したがって、IDLSAFEARRAY(...)は実際には C++ のSAFEARRAY *. これは私を際限なく混乱させました。さらに面白いことに、VB は常に参照によって配列を渡します。したがって、VB() As LongはSAFEARRAY<int32_t> **C++ です。(テンプレート パラメータとして型を指定できる、一般的に使用されるヘッダーが実際に存在するかどうかはわかりませんが、わかりやすくするために挿入しました。)
SAFEARRAY(VARIANT *) の定義は正しくありません。これは IDL で SAFEARRAY(VARIANT) として宣言されていますが、SAFEARRAY をロックして使用できるポインターは実際には VARIANT * です。ちょっと考えてみれば、もう少し納得できるはずです。SAFEARRAY (pvData メンバー) のインデックス ポインターは、VARIANT 全体を物理的な場所に収めることはできないため、少なくとも、VARIANT の配列にインデックスを付けるために使用できるポインターを格納できる必要があります。
<wtypes.h> を見ると、1110 行目以降のどこかに VT_ 列挙型の定義が表示されます。また、VT_VARIANT が実際に VARIANT * を意味することも示されています。また、SAFEARRAY に表示されるアイテムを示す[S]タグも便利です。
/*
* VARENUM usage key,
*
* * [V] - may appear in a VARIANT
* * [T] - may appear in a TYPEDESC
* * [P] - may appear in an OLE property set
* * [S] - may appear in a Safe Array
*
*
* VT_EMPTY [V] [P] nothing
* VT_NULL [V] [P] SQL style Null
* VT_I2 [V][T][P][S] 2 byte signed int
* VT_I4 [V][T][P][S] 4 byte signed int
* VT_R4 [V][T][P][S] 4 byte real
* VT_R8 [V][T][P][S] 8 byte real
* VT_CY [V][T][P][S] currency
* VT_DATE [V][T][P][S] date
* VT_BSTR [V][T][P][S] OLE Automation string
* VT_DISPATCH [V][T] [S] IDispatch *
* VT_ERROR [V][T][P][S] SCODE
* VT_BOOL [V][T][P][S] True=-1, False=0
* VT_VARIANT [V][T][P][S] VARIANT *
... (remaining definitions omittted)
*/
ヘッダー ファイルのコピーへのリンクを次に示します。
ここから先は、VT_VARIANT のバリアント型で SAFEARRAY を宣言するだけで、配列をロックするときに pvData を VARIANT * として扱います。これは、関数と同じ宣言に一致する関数を呼び出すことによってこれを示すサンプルの win32 コンソール アプリのソース コードです。
#include "stdafx.h"
#include "SFAComponent.h"
#include "SFAComponent_i.c"
int _tmain(int argc, _TCHAR* argv[])
{
::CoInitialize(NULL);
SAFEARRAYBOUND nameBounds;
nameBounds.cElements = 2;
nameBounds.lLbound = 0;
LPSAFEARRAY psaNames = SafeArrayCreate(VT_BSTR, 1, &nameBounds);
BSTR bstrApple = SysAllocString(L"apple");
BSTR bstrOrange = SysAllocString(L"orange");
SafeArrayLock(psaNames);
BSTR *nameArray = (BSTR *)psaNames->pvData;
nameArray[0] = bstrApple;
nameArray[1] = bstrOrange;
SafeArrayUnlock(psaNames);
SAFEARRAYBOUND valueBounds;
valueBounds.cElements = 2;
valueBounds.lLbound = 0;
LPSAFEARRAY psaValues = SafeArrayCreate(VT_VARIANT, 1, &valueBounds);
SafeArrayLock(psaValues);
VARIANT *valueArray = (VARIANT *)psaValues->pvData;
VariantClear(&valueArray[0]);
VariantClear(&valueArray[1]);
valueArray[0].vt = VT_BSTR;
valueArray[0].bstrVal = SysAllocString(L"hello");
valueArray[1].vt = VT_I4;
valueArray[1].iVal = 42;
{
CComPtr<ITestReader> p;
p.CoCreateInstance(CLSID_TestReader);
p->Run(psaNames, psaValues);
p.Release(); // not explicitly necessary.
}
SafeArrayDestroy(psaValues);
SafeArrayDestroy(psaNames);
::CoUninitialize();
return 0;
}
このテスト アプリによって呼び出されるコンポーネントは、ATL dll プロジェクトを作成し、'TestReader' という単純な ATL オブジェクトを追加することによって作成できます。
ITestReader の IDL は次のとおりです。
[
object,
uuid(832EF93A-18E8-4655-84CA-0BA847B52B77),
dual,
nonextensible,
helpstring("ITestReader Interface"),
pointer_default(unique),
oleautomation
]
interface ITestReader : IDispatch{
[id(1), helpstring("method Run")] HRESULT Run([in] SAFEARRAY(BSTR) paramNames, [in] SAFEARRAY(VARIANT) paramValues);
};
IDL 宣言に対応するメンバー関数は、SAFEARRAY * (または LPSAFEARRAY) 引数のみを取ります。
public:
STDMETHOD(Run)(LPSAFEARRAY paramNames, LPSAFEARRAY paramValues);
これがメソッドの本体です。また、簡潔にするためのヘルパー関数 PrintVariant() も含まれています。
void PrintVariant(VARIANT *pV)
{
switch(pV->vt)
{
case VT_BSTR:
wprintf(L" BSTR: %s\r\n", pV->bstrVal);
break;
case VT_I4:
wprintf(L" Integer: %d\r\n", pV->iVal);
break;
default:
wprintf(L" Unrecognized Type: vt=%d\r\n", pV->vt);
break;
}
}
STDMETHODIMP CTestReader::Run(LPSAFEARRAY paramNames, LPSAFEARRAY paramValues)
{
SafeArrayLock(paramNames);
SafeArrayLock(paramValues);
BSTR *nameArray = (BSTR *)paramNames->pvData;
VARIANT *valueArray = (VARIANT *)paramValues->pvData;
wprintf(L"Item 0 is %s, variant type %d\r\n", nameArray[0], valueArray[0].vt);
PrintVariant(&valueArray[0]);
wprintf(L"Item 1 is %s, variant type %d\r\n", nameArray[1], valueArray[1].vt);
PrintVariant(&valueArray[1]);
SafeArrayUnlock(paramNames);
SafeArrayUnlock(paramValues);
return S_OK;
}