BCB在COM中如何处理javascript脚本传递的数组

[jaffy]

网上都是VC版本的，再就是VBSCRIPT脚本的比较多，我一直用JAVASCRIPT，所以一直想写一个
最近刚刚解决了这个问题，看见BCB的帖子上了头版，我也来分享一下，高手们多提点意见。

//枚举类型转换成数组
HRESULT VariantEnumToDoubles(IDispatch* disp,double *&dArray,int &length)
{
        CComVariant resultV;
        HRESULT hr;
        DISPPARAMS noArgs = {NULL,NULL,0,0};
        hr = disp->Invoke(DISPID_NEWENUM,IID_NULL,
                LOCALE_SYSTEM_DEFAULT,DISPATCH_PROPERTYGET,
                &noArgs,&resultV,NULL,NULL);

        if(resultV.vt != VT_UNKNOWN && resultV.vt != VT_DISPATCH)
                return DISP_E_BADPARAMCOUNT;

        CComQIPtr <IEnumVARIANT> pEnum(resultV.punkVal);

        length = 0;

        hr =S_OK;

        while(hr == S_OK)
        {
                hr = pEnum->Skip(1);
                if(hr == S_OK)
                        length++;
        }
       
        dArray = new double[length];
        int nCount = 0;

        CComVariant elemV;

        pEnum->Reset();
        hr = S_OK;

        while(hr == S_OK)
        {
                hr = pEnum->Next(1,&elemV,NULL);
                if(elemV.vt !=VT_R8 && elemV.vt !=VT_I4)
                {
                        hr =S_FALSE;
                }
                else if(elemV.vt == VT_I4)
                {
                        int itmp = elemV.intVal;
                        dArray[nCount] = itmp;
                }
                else if(elemV.vt == VT_R8)
                {
                        double dtmp = elemV.dblVal;
                        dArray[nCount] = dtmp;
                }
                if(hr == S_OK)
                        nCount++;
        }
        return S_OK;
}
//=============================================================

[珍惜生命远离CPP]

不错不错

[ydlchina]

帖子该加精

[jaffy]

谢谢楼上各位

[oyljerry]

^_^，赞...

[ccrun.com]

好，我来推荐到首页。

[cnlong]

ding

[jiangdan19881101]

DING

[darkfox123]

我倒是一直在研究c 来调用ActiveX 目的是使用 汇编来调用 ActiveX 几近完成.
不过,现在忽然开始困惑了,将来windows的发展会是怎样的,我研究这个还有意义吗?
困惑

[xabcxyz]

学习

[laowang2]

[youyouzui]

路过 顶一下啊。。。

[hemiya]

学习

[a1b1c11]

楼主 给我说说 C/C++ 对COM口 开发。 有资料更好！ 给我一份 [e-mail]

[liberpc]

我学我顶

[a395083016]

来了

[rxjh68]

回帖感谢





我有一个梦想，在中国的小学校里，象当年学习BASIC一样学习C++ ，我们的人民，闲来无事时，编一段小程序做为娱乐消遣

[w88529593]

学习……

[cc_user]

mark~

[chinayu2007]

怎么调用这个函数呢？给个示例吧

[sjdfsjdf]

虽然不懂，先MARK一下