将经典 ASP VBScript 参数 ByRef 传递到 COM c++

Question

这很简单。 有一个 C++ 函数使用 ByRef 参数同时返回三个变量。

STDMETHODIMP CReportManager::GetReportAccessRights(long lReportCode, VARIANT_BOOL *bShared, VARIANT_BOOL *bRunOnly, VARIANT_BOOL *bCopy)

但是，在调用 C++ 函数时，VBScript ASP 代码似乎没有获取 bShares、bRunOnly 和 bCopy 的新值。

dim bAllShared, bAllCopy, bAllRunOnly
bAllShared = true
bAllCopy = true
bAllRunOnly = true
m_oReportManager.GetReportAccessRights CLng(m_lRptCod), CBool(bAllShared), CBool(bAllRunOnly), CBool(bAllCopy)
'bAllShared always equals true

我能做些什么来解决这个问题吗？ 谁能解释为什么会这样？

Answer 1

有两个问题：

首先，您无法检索从 VBScript 作为 [ref] 参数传回的值，除非它们是 C++ 代码中的 VARIANT 类型。

VBScript 使用称为 COM Automation 的后期绑定技术，该技术通过单个通用方法调用将每个方法调用路由到 COM 对象：IDISPATCH:Invoke(...)。 （当您将变量As Object 调暗并调用它时，Visual Basic 使用相同的技术）

Invoke() 接受一个字符串，它是您正在调用的方法的名称，以及参数数组（加上其他在这里不重要的东西）。

您的 C++ 对象不必担心它，因为 ATL 支持称为“双接口”的东西，它将为您完成所有讨厌的工作。 当您的对象收到对 IDISPATCH:Invoke() 的调用时，ATL 将：

• 查找所请求的方法名称并识别您的类中相应的方法（如果存在，否则将抛出错误） VB 脚本）。
• 根据需要，根据方法的签名将任何输入参数从 VARIANT（技术上 VARIANTARG，几乎相同）转换为适当的数据类型（如果它们与您的方法所期望的不匹配）
• 使用未打包的参数调用您的 GetReportAccessRights() 方法。

当您的 GetReportAccessRights() 方法返回时，ATL 会将 [retval] 参数重新打包为新的 VARIANT（技术上是 VARIANTARG ) 并将其返回给 VBScript。

现在，您也可以传回[ref]值，但它们必须是VARIANT。 ATL 不会为您重新打包除 [retval] 之外的任何参数值，因此您必须对任何 [ref]VARIANT * 类型code> 您想要返回给调用者的参数。 当您这样做时，ATL 将保持参数不受干扰，而 VBScript 将正确接收它。

为了处理变体，COM 标头为我们提供了方便的宏和常量，我将在此处使用它们（VT_BOOL、V_VT()、V_BOOL()、FAILED()）：

// I usually initialize to Empty at the top of the method,
// before anything can go wrong.
VariantInit(bAllShared);

// My bad -- ignore the above. It applies to [out] parameters only.
// Because bAllShared is passed as a [ref] variable,
// calling VariantInit() on them would leak any preexisting value.
// Instead, read the incoming value from the variable (optional),
// then "clear" them before storing new values (mandatory):

// This API figures out what's in the variable and releases it if needed
// * Do nothing on ints, bools, etc.
// * Call pObj->Release() if an Object
// * Call SysFreeString() if a BSTR
// etc
VariantClear(bAllShared); 

初始化它们； 这会导致它们之前的值泄漏。

要读取 VARIANT：

// Always check that the value is of the proper type
if (V_VT(bAllShared) == VT_BOOL ) {
    // good
    bool myArg = (V_BOOL(bAllShared) == VARIANT_TRUE);
} else {
    // error, bad input
}

或者甚至更好，您应该始终尝试自行转换，因为 VBScript 用户期望“True”和 1 的行为与 VARIANT_TRUE 相同。 幸运的是，COM 有一个很棒的实用程序 API：

// This is exactly the same thing that VBScript does internally
// when you call CBool(...)
VARIANT v;
VariantInit(&v);
if( FAILED(VariantChangeType(&v, &bAllShared, 0, VT_BOOL) )
{
    // error, can't convert
} 
bool myArg = (V_BOOL(v) == VARIANT_TRUE);

要写入 VARIANT：

// Internal working value
bool isShared;
...

// set the Variant's type to VARIANT_BOOL
V_VT(bAllShared)   = VT_BOOL;

// set the value
V_BOOL(bAllShared) = (isShared ? VARIANT_TRUE : VARIANT_FALSE);

现在，第二个问题出现在您的示例 VBScript 代码中：

m_oReportManager.GetReportAccessRights _
    CLng(m_lRptCod), CBool(bAllShared), CBool(bAllRunOnly), CBool(bAllCopy)

因为您正在作为参数传递 CBool​​(something)< /code> 等，您传递回临时变量（CBool​​(...) 的返回值），而不是实际变量 bAllShared 等。即使使用正确的 C++ 实现，返回值将作为中间值被丢弃。

您需要这样调用该方法：

m_oReportManager.GetReportAccessRights _
    CLng(m_lRptCod), bAllShared, bAllRunOnly, bAllCopy

没错。 您不需要“转换”这些值。 无论您做什么，VBScript 总是会传递 VARIANT。 别担心，正如我上面所说，即使对于 bool 等类型的输入参数，ATL 也会为您调用 CBool​​() 。

（ATL 调用 CBool​​()？这不是一个 VBScript 函数吗？是的，但是 CBool​​() 是 VariantChangeType() 的一个简单包装，这就是 ATL 所要做的为您打电话）

编辑：
我忘了提一件事：VBScript 不支持 [out] 参数； 仅[ref] 参数。 不要在 C++ 中将参数声明为 [out]。 如果您的方法声明了 [out] 参数，VBScript 将像它们是 [ref] 参数一样运行。 这将导致传入的参数值被泄露。 如果 [out] 参数之一最初是字符串，则该内存将被泄漏； 如果它有一个对象，那么该对象将永远不会被销毁。

Answer 2

在本例中实现的另一个糟糕的解决方案是使用 VB6 包装 C++ 函数调用，并提供 3 个引用变量作为 VB6 COM 对象的函数。

Option Explicit
Private bSharedaccess As Boolean
Private bRunOnlyaccess As Boolean
Private bCopyaccess As Boolean

Public Sub Initialize(ByVal oSession As Starbridge.Session, ByVal lReportID As Long)

    bSharedaccess = True
    bRunOnlyaccess = False
    bCopyaccess = True
    Call oSession.ReportManager.GetReportAccessRights(lReportID, bSharedaccess, bRunOnlyaccess, bCopyaccess)

End Sub

Public Function GetSharedAccess()
    GetSharedAccess = bSharedaccess
End Function

Public Function GetRunOnlyAccess()
    GetRunOnlyAccess = bRunOnlyaccess
End Function

Public Function GetCopyAccess()
    GetCopyAccess = bCopyaccess
End Function