Public Data() as Byte

VB 6 такого не позволяет. Ругается на то, что типизированные данные нельзя так высовывать. Т.е байтовый массив можно отдать только через функцию или свойство.

Public Property Get Data() as Byte()
  'Data = ....
End Property

Public Function GetData() as Byte()
  'Data = ....
End Function

Но такой подход подразумевает отдачу данных с копией массива.

Задумался над методом с Variant параметром

Public Sub Test(Data)
   Dim bData() as byte
   bData() = Data
   Data = bData
End Sub

Пробовал вечером, возможно ошибся. Наружу получил "пустоту". Проверял по MsgBox. Возможно не прав. Надо поизучать содержимое. Попробую завтра.

Если мы отдаём массив через spMemoryStream.GetData то он уходит в функцию безвозвратно. Т.к генерится копия в момент вызова метода и уже она отдаётся "наружу".

Ошибаюсь ?

Dim spMemoryStream, i, Data, retArray
Set spMemoryStream = CreateObject("SAPI.spMemoryStream")
For i=0 to 1000
    spMemoryStream.Write CByte(0)
Next

Obj.Read 0, spMemoryStream.GetData

retArray = spMemoryStream.GetData

Т.е retArray получит исходный массив, который мы заполнили до вызова.

Или есть ещё варианты его заполучить ?

2 YMP: Вот я собственно поэтому и предположил, что передача напрямую "пройдёт", но не будет иметь смысла, т.к связи с этим массивом мы уже иметь не будем.

Я правильно понимаю ?

Думаю, будем. По значению-то передаётся (копируется) не сам массив, а указатель на него.

Я правильно понимаю ?

Решил протестировать на самодельном COM компоненте.

Создал Project1.Class1 объект в VB6

С методом TestSub

Sub TestSub(data() As Byte)
    MsgBox TypeName(data), vbInformation, "TestSub"
End Sub

Написал скрипт

Test1

Test2

Sub Test1
    Dim spMemoryStream, i, Data
    Set spMemoryStream = CreateObject("SAPI.spMemoryStream")
    For i=0 to 1000
        spMemoryStream.Write CByte(0)
    Next

    Set P = CreateObject("Project1.Class1")
    P.TestSub spMemoryStream.GetData
End Sub

Sub Test2
    Dim spMemoryStream, i, Data
    Set spMemoryStream = CreateObject("SAPI.spMemoryStream")
    For i=0 to 1000
        spMemoryStream.Write CByte(0)
    Next

    Dim tmp
    tmp = spMemoryStream.GetData
    Set P = CreateObject("Project1.Class1")
    P.TestSub tmp
End Sub

И как я и наблюдал ранее - Первая процедура отрабатывает, вторая "падает". Из чего я когда то давно сделал вывод, что передача "напрямую" и через переменную отличается.

Поясните пожалуйста - я ошибаюсь ?
http://file.qip.ru/file/oTxR29FB/Test.html

Исходник, скомпилированый вариант и тестовый скрипт, сложил по ссылке.

Вот я как раз и ждал Вашего мнения коллега. ) Т.к всех тонкостей этого вопроса я не знаю. Изучал как говорится методом проб и ошибок. )

2 JSman: К сожалению не помогло. Видимо ситуация немного сложнее.

Предполагаю, что передача напрямую пройдёт нормально, но при этом смысл такой передачи теряется. Т.к массив уйдёт напрямую в функцию и обратно мы его уже не получим.

Что за передача напрямую? Скрипт с методами напрямую не работает. Он с ними работает через метод Invoke интерфейса IDispatch. В Invoke передаётся dispid нужного метода и его параметры в виде массива Variant'ов. То, что Вы в скрипте не пишете значение в переменную, ничего не изменит.

Видимо, просто нужен Variant типа VT_SAFEARRAY, он и будет после передачи в Invoke корректно преобразован в массив байтов, который и будет передан методу. В JScript такого типа данных нет, и те объекты, что здесь испробованы, не его возвращают, а VT_ARRAY.

В результате такой код:

Dim spMemoryStream, i, Data
Set spMemoryStream = CreateObject("SAPI.spMemoryStream")
For i=0 to 1000
    spMemoryStream.Write CByte(0)
Next

Data = spMemoryStream.GetData

Obj.Read 0, Data

вызывает Type Mismatch. Из-за того, что байтовый массив укладывается в Varinat "оболочку" переменной Data.

Dim spMemoryStream, i, Data
Set spMemoryStream = CreateObject("SAPI.spMemoryStream")
For i=0 to 1000
    spMemoryStream.Write CByte(0)
Next

Obj.Read 0, spMemoryStream.GetData

Предполагаю, что передача напрямую пройдёт нормально, но при этом смысл такой передачи теряется. Т.к массив уйдёт напрямую в функцию и обратно мы его уже не получим.

Пока решено поэкспериментировать с промежуточным COM объектом.

Вы уверены, что пробовали именно так ?

Да, только в VBScript так:

Obj.Read 0, Data

без скобок (ещё раз проверил... Type mismatch)

Золотые слова :-) я уже так намучился с этим промежуточным объектом...

Можно просто написать ActiveX компонент с одним объектом и методом, который требует параметр SAFEARRAY * * и попытаться ему его передать из скрипта. :-)

Вы уверены, что пробывали именно так ?

Dim spMemoryStream, i, Data
Set spMemoryStream = CreateObject("SAPI.spMemoryStream")
For i=0 to 1000
    spMemoryStream.Write CByte(0)
Next

Data = spMemoryStream.GetData

Obj.Read 0, Data

На выходе из GetData Вы получаете тот самый SafeArray.

P.S Если интерфейс хранилища оформлен в виде ActiveX COM, то Вам в 99% случаев не нужен никакой промежуточный объект.

----------------------------

Подумал.... Всё таки если так не сработает (и предположительно метод у COM объекта описан не совсем так как Вы написали), то возможно в той обёртке, которую Вы используете нужно получить указатель на первый элемент массива. К сожалению не владею знаниями о Delphi, поэтому предположу как это должно быть на Visual Basic 6.0

Вам нужно получить указатель на первый элемент байтового массива VarPtr(arr(0))

Значит метод у COM должен быть наподобии

Public Sub SendByteArray(data)
      Dim b() as Byte
      b = data
      ApiObject.SomeMethod(0,VarPtr(b(0)))
End Sub

Это в самом грубом варианте. Без проверок на типы данных и границы массива. В этом случае в SomeMethod уйдёт указатель типа Long. Сишные функции в массе своей именно так принимают массивы. Но ещё раз повторюсь - это предположение на случай если первый вариант не сработает.

И всё таки очень хотелось бы наладить связь через альтернативные средства обмена сообщениями. Так проще экспериментировать.