Ошибка несоответствия типов при доступе к массиву, возвращаемому ссылкой из COM + (VBScript)

Я сам справился с этим.

Оказывается, VBScript не обрабатывает массивы, не относящиеся к типу Variant. Итак, в моем коде C # я пробовал это;

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

... относится к дальнейшим вызовам, которые передаются по arrayToFill по ссылке.

К сожалению, это привело к точно такой же ошибке.

На путь решения этой проблемы меня поставило то, что функция VBScript TypeName () ВСЕ ЕЩЕ видела тип как String (). Мне было любопытно, что происходит в коде .NET, поэтому я написал небольшой тест;

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

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

Что произвело следующее:

System.String []

System.String []

Для меня это было новостью - я не понимал, что так будет. Я счел разумным ожидать 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 (), и я могу получить доступ к массиву, как и ожидалось.

Надеюсь, это поможет любому, кто столкнется с этой проблемой в будущем.

Трудно понять, почему интерпретатор скриптов отказывается индексировать массив. Это может иметь какое-то отношение к нулю нижней границы массива, в VBScript нет оператора Option Base. Создание массива, который не начинается с нуля в .NET, технически возможно с помощью Array.CreateInstance (), одна из его перегрузок позволяет создавать массив с ненулевыми нижними границами. Я упомяну класс VariantWrapper, но не думаю, что это актуально. Сделать массив возвращаемым значением - это еще один способ решения проблемы.

Это то, что я сделал, основываясь на ответе К. МакАтакни:

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

У меня была аналогичная проблема с передачей массива двойников из программы VB 6.0 на COM-сервер, написанный на VB.net (2010).

Объявление функции VB.net как:

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

даст мне ошибку несоответствия типа, где:

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

Работает нормально, однако мне пришлось использовать индексы массива, начинающиеся с 1, а не с 0.