JScript: ссылка на SafeArray

SomeObj.SomeMethod(new VBArray(dictionary.Items()).toArray())

Не рублю JScript практически, поэтому извиняйте если скажу глупость, но разве не это нужно ?

На сколько я понял код

new VBArray(dictionary.Items()).toArray()

тут dictionary.Items преобразовывается в SafeArray. Его и надо скормить методу.

Хотя - наверное ошибаюсь, но вроде бы dictionary.Items уже возвращает SafeArray. Который можно напрямую отдавать COM объекту. Но видимо каких то тонкостей JS не знаю.

--------------
Добавлено чуть позже.

А можно поглядеть на реальный код передачи массива ?

Т.е в какой именно метод этой библиотеки вы обращаетесь ?

Меня терзают подозрения, что тут Вам и не особо то нужен "переходник"

Большое спасибо за ответы.
Попробовал в VBScript, результат тот же: Type mismatch
Передавал как экземпляр Dictionary.Items, так и родной массив VBScript-а...

Вот что пишет производитель COM о данном методе:

Такой код в интерфейсе данного объекта сгенерил midl:

virtual HRESULT STDMETHODCALLTYPE Read( 
    double Offset,
    SAFEARRAY * *Buffer) = 0;

Такой сгенерил Delphi:

procedure Read(Offset: Double; var Buffer: PSafeArray); safecall;

Метод записывает данные в массив, указатель на SafeArray которого надо передать.

В C++ и Delphi я создаю массив байт, заполняю структуру SafeArray (либо руками либо через API), и передаю указатель на неё данному методу и всё прекрасно работает... есть ли способ проделать аналогичные действия в JScript?

Большое спасибо! :-)
Попробую...

Существует сервер с защищенным хранилищем данных, у этого хранилища есть свои API оформленные в виде ActiveX COM. Существует необходимость работать с данными, находящимися в этом хранилище, из скрипта под Windows.

По поводу ссылки на chilkat, я просто пользовался объектом CkData для передачи массива данных из моего COM скрипту, он не относится к выше упомянутым API.

Подсунуть надо пустой (например, заполненный нулями) массив, в него метод запишет данные из заданного файла защищенного хранилища.

Да в принципе, не важно что за API и что за данные... Просто если есть способ передать в некий метод объекта какого-то COM указатель на SafeArray, хотелось бы его найти :-)

Ещё раз спасибо.

Да, так я уже попробовал и получил Type mismatch при передаче Data методу :-(

В Delphi, например, работает так:

arr: array of Byte; 
SA: TSafeArray;
pSA: PSafeArray;

...

arr := nil;
SetLength(arr, 1000);

SA.cDims := 1;
SA.fFeatures := FADF_AUTO;
SA.cbElements := SizeOf(Byte);
SA.pvData := arr;
SA.rgsabound[0].cElements := 1000;
pSA := @SA;

Obj.Read(0, pSA);

Можешь куда-нибудь выложить?

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

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. Сишные функции в массе своей именно так принимают массивы. Но ещё раз повторюсь - это предположение на случай если первый вариант не сработает.

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

Посмотрите мой пост выше. Возможно вариант на VB 6 Вам подойдёт. Если нужно - могу скомпилить. Но тогда опять же нужны подробности. Хранилище даром не нужно, а вот на ActiveX я всё таки хотел бы "посмотреть".

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

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

2 YMP:

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

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

Да, в VBS разница есть. При "прямой" передаче Variant, переданный в Invoke, имеет тип VT_ARRAY | VT_UI1, т.е. он содержит указатель на первое число массива. При передаче через переменную имеем такую связку: VT_BYREF | VT_VARIANT —> VT_ARRAY | VT_UI1, т.е. в Invoke передаётся Variant, содержащий указатель на другой Variant, который уже содержит указатель на первое число массива. Проще говоря, в первом случае происходит передача по значению (ByVal), а во втором по ссылке (ByRef).

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

А, ну если GetData делает копию самих чисел массива, тогда конечно.