从 com 对象返回数组

Question

我想将警报名称列表从 COM 传递到 ASP 页面中使用的 VBScript。如果方法名称是GetAlarms，该方法的签名是什么？。 GetAlarms 返回的警报数量会有所不同。

VBScrip 支持安全数组吗？

Answer 1

*.idl 文件中的声明如下所示：

[id(1)] HRESULT GetAlarms([out,retval] SAFEARRAY(VARIANT)* pAlarms);

相应的 C++ 方法如下所示：

STDMETHODIMP CMyClass::GetAlarms(SAFEARRAY** pAlarms)
{
    CComSafeArray<VARIANT> alarms(3);
    CComVariant value;

    value = L"First Alarm";
    alarms.SetAt(0, value);

    value = L"Second Alarm";
    alarms.SetAt(1, value);

    value = L"Third Alarm";
    alarms.SetAt(2, value);

    *pAlarms = alarms.Detach();

    return S_OK;
}

最后，这里是一个使用上述方法的 VBScript 示例：

Set obj = CreateObject("MyLib.MyClass")
a = obj.GetAlarms
For i = 0 To UBound(a)
   MsgBox a(i)
Next

在 ASP 中，当然，您可以使用其他内容来代替 <代码>消息框。