在COM地函数中，可以用BSTR类型变量返回二进制数据吗？

Question

STDMETHODIMP CDemoObj::GetData ( /*[out,retval]*/BSTR *pbstrData )
{
const int BUFFER_SIZE = 256; BSTR bstr = SysAllocStringByteLen ( NULL, BUFFER_SIZE );
if ( bstr == NULL ) return E_OUTOFMEMORY; LPBYTE lpBuf = LPBYTE(bstr);
memset ( lpBuf, 0X00, BUFFER_SIZE ); for ( int i = 0; i < BUFFER_SIZE-2; i++ )
{
 lpBuf[i] = i % 256;
} *pbstrData = bstr; return S_OK;
}

Answer 1

最好用VARIANT，使用SAFEARRAY，没有任何的问题的

Answer 2

可是，多数程序VBScript不习惯使用数组，而更习惯使用String类型

Answer 3

bstr属性
return SysAllocString(pbstrData ,bstr);