vc调用MatrixVB问题

[beifangqq]

#import"…………/MMatrix.dll"之后在一个按钮相应函数里面建立了safearray然后调用如下
MMatrix::_MatrixPtr mm;
MMatrix::_MlibPtr aa;
try
{
aa->magic(&arrayPtr);
}
catch(_com_error *e)
{
MessageBox( e->ErrorMessage());
}
编译通过，但是运行时候内存调用出错，那位大侠有相关经验
不要告诉我在vb里面调用，我想在vc里面调用，


arrayPtr是这样建立的
SAFEARRAY* arrayPtr；

[jackson35296]

CoInitialize(NULL);

	MMatrix::_MatrixPtr mm;
	MMatrix::_MlibPtr aa;

	CLSID idCom,idMlib;
	hresult = CLSIDFromString( L"{053e1110-0de2-11d3-b81b-10c48bcb0000}", &idCom );
	if ( FAILED(hresult) )
	{
		return;
	}
	hresult = CLSIDFromString( L"{984396b2-8d76-11d3-b81d-00c04f2ac5eb}", &idMlib );
	if ( FAILED(hresult) )
	{
		return;
	}
	hresult = ::CoCreateInstance( idCom, NULL, CLSCTX_INPROC_SERVER, idMlib, (LPVOID*)&aa);
	if ( FAILED(hresult) )
	{
		return;
	}
	try
	{
		aa->magic(&arrayPtr);
	}
	catch(_com_error   *e)
	{
		MessageBox( e->ErrorMessage());
	}
	SafeArrayDestroy(arrayPtr);
	CoUninitialize();

[beifangqq]

这是按钮响应函数里面的全部代码，有问题的只有一句aa->magic(&arrayPtr);
void CdlltestDlg::OnBnClickedButton1()
{
// TODO: 在此添加控件通知处理程序代码
SAFEARRAY* arrayPtr;
HRESULT hresult;
LONG l=0;
LONG buf=5;
arrayPtr=SafeArrayCreateVector(VT_I4,0,1);
if(arrayPtr == NULL)
{
hresult = ResultFromScode(E_OUTOFMEMORY);
MessageBox(_T("创建safearray失败"));
}
hresult=SafeArrayPutElement(arrayPtr,&l,(LONG*)&buf);
switch (hresult)
{
case S_OK:MessageBox(_T("创建成功"));
break;
case DISP_E_BADINDEX:MessageBox(_T("The specified index was invalid"));
break;
case E_INVALIDARG:MessageBox(_T("One of the arguments is invalid."));
break;
case E_OUTOFMEMORY:MessageBox(_T("Memory could not be allocated for the element"));
break;
}
MMatrix::_MatrixPtr mm;
MMatrix::_MlibPtr aa;
try
{
aa->magic(&arrayPtr);
}
catch(_com_error *e)
{
MessageBox( e->ErrorMessage());
}
SafeArrayDestroy(arrayPtr);
}

[beifangqq]

magic函数在MMatrix.tlh中的声明
_variant_t magic (
SAFEARRAY * * vv );

[beifangqq]

magic函数在MMatrix.tli中的部分
inline _variant_t _Mlib::magic ( SAFEARRAY * * vv ) {
VARIANT _result;
VariantInit(&_result);
HRESULT _hr = raw_magic(vv, &_result);
if (FAILED(_hr)) _com_issue_errorex(_hr, this, __uuidof(this));
return _variant_t(_result, false);
}