“类型不匹配”从 COM+ 访问 ref 返回的数组时出错； （VB脚本）

Question

我有一个 .NET 3.5 程序集，它作为 COM+ 服务器组件运行，我想从 VBScript（经典 ASP 页面）调用此类中的方法。

这是方法概要；

public bool FillArray(ref string[] arrayToFill)
{
    ...
}

我的 VBScript 如下；

Dim myComponent, result, myArray

Set myComponent = Server.CreateObject("MyComponentProgID")
result = myComponent.FillArray(myArray)

Response.Write("IsArray = " & IsArray(myArray) & "<br/>")
Response.Write("UBound = " & UBound(myArray) & "<br/>")
Response.Write("TypeName = " & TypeName(myArray) & "<br/>")
Response.Write("Element 1 = " & myArray(1))

这会导致以下错误（由我调用 FillArray 的行触发）；

错误类型：Microsoft VBScript 运行时 (0x800A0005) 无效的过程调用或 参数：'FillArray'

启动 OLEView，IDL 如下所示；

HRESULT FillArray(
                [in, out] SAFEARRAY(BSTR)* arrayToFill, 
                [out, retval] VARIANT_BOOL* pRetVal);

我尝试将方法签名更改为以下内容；

public bool FillArray(ref object[] arrayToFill)

这导致了以下 IDL；

HRESULT FillArray(
                [in, out] SAFEARRAY(VARIANT)* arrayToFill, 
                [out, retval] VARIANT_BOOL* pRetVal);

但仍然是相同的“无效的过程调用或参数'FillArray'”错误。

最后，我尝试将我的方法签名更改为简单的：

public bool FillArray(ref object arrayToFill)

其中给出了以下 IDL；

HRESULT FillArray(
                [in, out] VARIANT* arrayToFill, 
                [out, retval] VARIANT_BOOL* pRetVal);

现在这会产生一个新的错误；

Microsoft VBScript 运行时 (0x800A000D) 类型不匹配

此错误现在仅在最后一行（即当我尝试访问数组的元素时）触发。如果我注释掉最后一行，那么我会得到以下输出；

IsArray = True

UBound = 39

类型名称 = String()

因此，显然该变体被识别为数组，且类型正确。此外，UBound 返回了正确数量的元素，但由于某种未知原因我无法访问任何元素。

有谁知道可能是什么原因造成的？我自己做了一些研究，发现了以下链接；

http://connect.microsoft.com/VisualStudio /feedback/details/331632/marshaler-bug-with-vbscript-arrays

我不能 100% 确定这是完全相同的问题，因为我没有在 VBScript 代码中以相同的方式声明我的数组。我真诚地希望这不是同一个问题，因为我没有升级到 .NET 4.0 的空间。

Answer 1

我自己设法解决了这个问题。

事实证明，VBScript 不处理非 Variant 类型的数组。所以，在我的 C# 代码中我尝试了这个；

public bool FillArray(ref object arrayToFill)
{
    string[] tmpArrayToFill = (string[])arrayToFill;
    ...
    arrayToFill = (object[])tmpArrayToFill
}

“...”指的是通过 ref 传递 arrayToFill 的进一步调用。

不幸的是，这产生了完全相同的错误。

让我走上解决这个问题的道路的是“TypeName()”VBScript 函数仍然将类型视为“String()”。我很好奇 .NET 代码中发生了什么，因此编写了一个小测试；

string[] stringArray = new string[1];
Console.WriteLine(stringArray.GetType());

object[] objectArray = (object[])stringArray;
Console.WriteLine(objectArray.GetType());

产生以下内容；

系统字符串[]

系统字符串[]

这对我来说是新闻 - 我没有意识到情况会如此。我认为预期 Object[] 为第二种类型是合理的。

无论如何，无论如何，我编写了一个小的扩展方法来生成一个新对象[]，

public static Array ToObjectArray(this Array input)
{
    if (input != null)
    {
        object[] objArray = new object[input.Length];
        input.CopyTo(objArray, 0);
        return objArray;
    }
    else
    {
        return null;
    } 
 }

这只是一个粗略的初步尝试 - 将添加更强大的错误处理和对锯齿状数组的支持。

所以我的代码现在看起来像；

public bool FillArray(ref object arrayToFill)
{
    string[] tmpArrayToFill = (string[])arrayToFill;
    ...
    arrayToFill = tmpArrayToFill.ToObjectArray();
}

现在，在 VBScript 中，TypeName 返回 Variant()，我可以按预期访问该数组。

希望这对将来遇到此问题的其他人有所帮助。

Answer 2

很难理解为什么脚本解释器在索引数组时犹豫不决。这可能与数组的下限为零有关，VBScript 中没有 Option Base 语句。在 .NET 中创建一个不从零开始的数组在技术上可以通过 Array.CreateInstance() 实现，它的重载之一允许您创建一个具有非零下限的数组。我会提到 VariantWrapper 类，但认为它不相关。使数组作为返回值是另一种可以尝试的解决方法。

Answer 3

这是我根据 C.McAtackney 的回答所做的：

Private _lastErrors As List(Of Object)
''' <summary>
''' Expose error array to COM object consumer
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks>Type is Object() because VBScript requires a variant type.</remarks>
Public Property LastErrors As Object()

    Get
        If _lastErrors Is Nothing Then
            _lastErrors = New List(Of Object)
        End If

        Return _lastErrors.ToArray
    End Get
    Private Set(value As Object())
        If _lastErrors Is Nothing Then
            _lastErrors = New List(Of Object)
        End If

        _lastErrors.AddRange(value)
    End Set
End Property

Answer 4

我在将双精度数组从 VB 6.0 程序传递到
用 VB.net (2010) 编写的 COM 服务器。

将 VB.net 函数声明为：

Public Function GetSpatialResults(ByRef Results() As Double) As Long

会给我一个类型不匹配错误，其中 as ：

Public Function GetSpatialResults(ByRef Results As Object) As Long
    Results(1) = 1
    Results(2) = 2
    Results(3) = 3
    GetSpatialResults = 0

工作正常，但是，我必须使用从 1 开始的数组索引，而不是 0。