使用经典 ASP 从 COM 对象检索字符串数组

Question

我有一个 .NET 类，它包含通过访问器方法可用的简单字符串数组，如下所示；

namespace Foo.Bar {
    [ComVisible(true)]
    [Guid("642279A0-85D4-4c7a-AEF5-A9FAA4BE85E5")]
    public class MyClass {
        private string[] _myArray;
        public MyClass() { }

        public MyClass(string[] myArray) {
            _myArray = myArray;
        }

        public string[] MyArray {
            get { return _myArray; }
        }
    }
}

我使用 Classic ASP 使用此类；

Dim foo 
Set foo = Server.CreateObject("Foo.Bar.MyClass")

if IsArray(foo.MyArray) then Response.Write("IsArray") & "<br />"
Response.Write(typename(foo.MyArray)) & "<br />"
Response.Write(UBound(foo.MyArray)) & "<br />"

这导致；

IsArray
String()
1

但是，当我尝试使用以下方式访问数组的内容时：

Response.Write(foo.MyArray(0)) & "<br />"

我明白了；

Microsoft VBScript 运行时 (0x800A01C2) 参数数量错误或 无效的属性分配：'MyArray'

非常感谢任何帮助。

编辑 这是为了在消化给出的答案后提供更多信息（谢谢）

当将 MyArray 属性的实现更改为时；

public object[] MyArray {
    get { return (object[])_myArray; }
}

然后我收到以下错误，

Microsoft VBScript 运行时 (0x800A000D) 类型不匹配：“MyArray”

因此我尝试将每个字符串单独转换为一个对象；

public object[] MyArray {
    get {
        object[] tmp = new object[_myArray.Count()];
        for (int x = 0; x < _myArray.Count(); x++) {
            tmp[x] = (object)_myArray[x];
        }
        return tmp;
    }
}

然后我又回到了，

Microsoft VBScript 运行时 (0x800A01C2) 参数数量错误或 无效的属性分配：'MyArray'

编辑在如何正确地将 VB 脚本数组编组到用 COM 编写的组件或从 COM 组件中编组C#

C#

public object MyArray {
    get { return _myArray.Cast<object>().ToArray(); }
}

VBScript

Dim foo 
Set foo = Server.CreateObject("Foo.Bar.MyClass")

bar = foo.MyArray
Response.Write bar(0)

关键是公开 object 而不是 object[] ，正如 AnthonyWJones 所建议的那样，在使用数组之前将其分配给变量。

再次感谢。

Answer 1

问题是 VBScript 实际上无法使用 String 数组。它只能使用Variant数组。

尝试更改 MyClass 以公开 object[]。

Answer 2

除了安东尼的建议

我不确定这是否是最好的方法，但在过去我使用类似于以下的代码来处理一维数组。

public object MyArray(int ix = -1){
    string[] tmp = new string[] {"one", "two", "3", "4"};
    return (ix == -1) ? (object)tmp : tmp[ix];
}

<在 ASP 中：

Response.Write(TypeName(foo.MyArray)) 'string()
Response.Write(TypeName(foo.MyArray(0))) 'string

Answer 3

VBScript 不理解诸如 List 之类的通用集合，也不理解字符串数组。

我在 Interface 类中编写了一个公共函数，以将任何通用集合转换为 ArrayList

public ArrayList toArrayList(IEnumerable collection)
{
        var arrayList = new ArrayList();
        foreach (object element in collection)
        {
            arrayList.Add(element);
        }
        return arrayList;
}

然后可以在 VBScript 中使用此代码，如下所示

 dim connector
 set connector = model.getRelationByID(connectorID)
 'get the related elements
 dim relatedElements
 set relatedElements = model.toArrayList(connector.relatedElements)
 addRelatedElementoAutoDiagram relatedElements(0), relatedElements(1), model

这种方法的优点是我不需要更改任何方法或属性的签名在 C# 中，但我仍然可以在 VBScript 中使用它们

Answer 4

此代码演示了如何处理 COM 和 ASP 之间的数组：

<% @Language="VBScript" %>
<% Option Explicit %>
<%
Dim tcs
Dim rc
Dim vntInput(0,4)
Dim i

vntInput(0,0) = Request.QueryString("strUser")
vntInput(0,1) = Request.QueryString("intCreate")
vntInput(0,2) = Request.QueryString("intDelete")
vntInput(0,3) = Request.QueryString("intModify")
vntInput(0,4) = Request.QueryString("intView") 

Set tcs = Server.CreateObject("TestCases.ArrayFailure")
rc = tcs.AcceptArray(vntInput)

For i = 0 to UBound(vntInput, 2)
    Response.write "Loop Count " & i & " " & vntInput(0,i) & "<BR>"
Next

%>

这是我在其中找到此代码的文章的链接：
http://202.102.233.250/b2000/ASP/articles/component/pv990826.htm