VB 写的ActiveX中函数使用了Variant 参数，vc如何调用？

2004-11-11 05:04:13 174 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

零基础学会制作基于STM32/51单片机的智能血压表设计/血压表/血压计本系统是以单片机为主控，传感器模快、显示模块、人机交互、无线传输等组成的智能血压表设计。传感器用于测量血压和脉搏，主控电路板用于处理数据和控制设备，显示屏则用于显示测量结果。通过软件设计，完成测量数据的处理，其中血压和脉搏的测量、数据的分析和处理等。阅读详情

VB 写的ActiveX中函数使用了Variant 参数，vc如何调用？
ActiveX中的这个函数实际返回的是一个variant数组，长度不确定，请问我在vc中调用时应该
使用的参数类型是什么？我使用VARIANT时，总是报告参数类型不正确。

谢谢!

...全文

HDMI2.1 FRL流控概览 HDMI 2.1 FRL的流控本质是。阅读详情

andyred

ATL 3,248 成员 48,530 内容

+ 关注 + 加入社区

切换为时间正序

andyred 2004-11-12

打赏
举报

风老哥,你好,看了你的帖子我获益颇多,真的非常感谢.

我在你的基础上加工之后，程序已经可以运行，但结果还不正确，
问题应该在于SafeArrayCreate第一个参数的设置上面，
GetDataObject具体返回的数组个数和每个元素的类型都是未知的，
我应该如何设置SafeArrayCreate的第一个参数？调用之后如何判断
具体每个元素的类型？我目前这样应该得到的是一个float或者double
但v2.vt 目前的值缺是 VT_STORED_OBJECT。

希望能再次指教一下

SAFEARRAY * psa;
SAFEARRAYBOUND rgsabound[1];
rgsabound[0].lLbound = 0;
rgsabound[0].cElements = 20;
psa = SafeArrayCreate(VT_VARIANT, 1, rgsabound);
VARIANT obj;
obj.vt = VT_ARRAY;
obj.parray = psa;

pSoftbus.GetDataObject( "测试库", "D001", &obj );
ASSERT(obj.vt == (VT_ARRAY | VT_VARIANT));
SAFEARRAY *psa1 = obj.parray;
VARIANT* pd;
SafeArrayAccessData(psa1, (void**)&pd);
VARIANT v2 = pd[7];

double dv = v2.fltVal;
SafeArrayUnaccessData(psa);
CString str;
str.Format( "Value is: %f type: %d", dv, v2.vt );
AfxMessageBox( str );

andyred 2004-11-12

打赏
举报

风老哥，你好

bluwindhrt 2004-11-12

打赏
举报

VARIANT obj;
pSoftbus.GetDataObject( "测试库", "D001", &obj );
ASSERT(obj.vt == VT_ARRAY|VT_DOUBLE));
SAFEARRAY *psa = obj.parray;
double* pd;
SafeArrayAccessData(psa, (void**)&pd);
double dv = pd[7];
SafeArrayUnaccessData(psa):
CString str;
str.Format( "Value is: %f", dv );
AfxMessageBox( str );

andyred 2004-11-12

打赏
举报

多谢兄台，我的清款是这样：

ActiveX别人已经写好，不能再动，我现在要在vc中使用。
通过class wizard->add class->from a type library加入到工程后代码如下：
short _SoftBus::GetDataObject(LPCTSTR objLib, LPCTSTR ObjID, VARIANT* obj)
{
short result;
static BYTE parms[] =
VTS_BSTR VTS_BSTR VTS_PVARIANT;
InvokeHelper(0x60030008, DISPATCH_METHOD, VT_I2, (void*)&result, parms,
objLib, ObjID, obj);
return result;
}

我是这样调用的：

_SoftBus pSoftbus;
VARIANT v;
v.vt = VT_R8;
v.dblVal = 10.0;

pSoftbus.CreateDispatch( "SoftBusExeServer.SoftBus");
pSoftbus.ModifyObject( "测试库", "D001", 8, v, TRUE );
VARIANT obj[20];
pSoftbus.GetDataObject( "测试库", "D001", obj ); //运行到这里出错, 在vb中调用
//它返回的是一个Variant类型的
//数组，长度不确定
double dv = obj[7].dblVal;
CString str;
str.Format( "Value is: %f", dv );
AfxMessageBox( str );

sinall 2004-11-12

打赏
举报

你可以对这个variant进行操作啊
1、variant本身包含一种SafeArray。具体，你可以看看variant定义，及相关的api函数
2、可以用COleSafeArray包装variant，然后调用COleSafeArray的成员函数。

andyred 2004-11-12

打赏
举报

哦，我现在明白了！

多谢二位啦！

VB 写的ActiveX中函数使用了Variant 参数，vc如何调用？

相关推荐