麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 編程 > VBScript > 正文

使用SAFEARRAY返回的代碼

2020-07-26 12:04:01
字體：大 中 小
來源：轉載
供稿：網友
前天碰到有人問SAFEARRAY的問題，我正好對VB SCRIPT里面如何得到COM組件返回的數組感興趣，就試驗了一下。

IDE用的是VC7.1

開始都差不多，建立工程，建立COM對象，建立方法：

接口定義：

[id(2), helpstring("method GetArray")] HRESULT GetArray1([out,retval] VARIANT* v);

方法實現：
STDMETHODIMP CATL3::GetArray1(VARIANT * pvaVariant)
{
    std::vector< float> vct;
    vct.push_back(   11.4 );
    vct.push_back(   12.4 );
    vct.push_back(   14.4 );
    CComSafeArray<VARIANT> saMatrix;
    for ( int i = 0 ; i < vct.size(); ++i )
    {
        saMatrix.Add( CComVariant(vct[i]));
    }
    VariantInit(pvaVariant);
    CComVariant var( saMatrix );
    var.Detach( pvaVariant );
    return S_OK;
}

注意的一點就是：VBS或其它腳本環境中要得到返回數組參數，數組中的類型是VARIANT類型。

VBS測試腳本
Dim v4

Cnxn4.Add 1, 2 

v4 = Cnxn4.GetArray1()

Dim x

For x = Lbound(v4) To Ubound( v4 )
 MsgBox v4(x)
Next

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 亚洲综合一区二区三区 | 看免费的毛片 | 国产精选久久久 | 麻豆国产一区 | 午夜爱爱福利 | 欧美精品黄色 | 亚洲精品一区国产精品丝瓜 | 一级毛片特黄 | 青青草国产在线视频 | 国产免费观看视频 | 国产成人精品区 | 快播av在线 | 欧美91看片特黄aaaa | 国产精品av久久久久久久久久 | 午夜视频国产 | 在线a| 欧美色爱综合 | 色妞视频男女视频 | 91成人免费在线视频 | 欧美视频在线一区二区三区 | 久草视频国产在线 | 在线成人精品视频 | 亚洲婷婷日日综合婷婷噜噜噜 | 国产精品免费久久久久久 | 成人免费看视频 | 九九热精品视频在线免费观看 | av成人免费看| 国产精品久久久久av | 久草在线资源福利站 | 成品片a免费直接观看 | 免费a级片视频 | 午夜视频在线看 | 午夜视频在线观看91 | 欧美成人免费香蕉 | 国产无遮挡一区二区三区毛片日本 | 一区二区三区在线观看免费 | 7777在线视频免费播放 | 一级黄色在线观看 | 免费一级欧美大片视频 | 91精品国产综合久久婷婷香 | 91精品国产日韩91久久久久久360 |