SAFEARRAY, FileMapping и Variant Array

[Avtopic]

Здравствуйте!

1. один из этих трех массивов

Код: Выделить всё

Arr(0 To 2, 0 To N, 0 To M) As Variant
Arr(0 To N, 0 To 2, 0 To M) As Variant
Arr(0 To N, 0 To M, 0 To 2) As Variant

Можно или нет представить себе как двухмерный массив, с тремя Page-ми,
т.е. три двухмерных массива расположенный в области памяти один за другим, если да, какой, и нет ли где ни будь готового указателя на эти Pages.

2. Как я понимаю размер двухмерного Variant массива в VB состоит:
4-байта для указателя
8-байта для размера элемента
4-адрес данных (дальше pData)
8-первая размерность
8-Втарая размерность
В самой области, куда указывает pData, для каждого элемента по 16-байт.


Если все правильно, то объясните следующее:
В качестве pData передаю адрес проецируемого Mapping File-а
Как может помещаться Arr(0 To 9, 0 To 24) As Variant массив в файл
у которого dwMaximumSizeLow=1
и как не может помещаться Arr(0 To 9, 0 To 25) As Variant массив в файл
у которого dwMaximumSizeLow=4096 и опять же как может помещатся в dwMaximumSizeLow=4096 + 1
тогда как я подсчитываю для первого массива нужен как минимум
10Х25Х16=4000 байт
а для второго 10Х26Х16=4160 байт

[Viper]

вот ведь... Все тебе нужное есть в кирпичах тут, тут и здесь. Также стоит глянуть статью GSerg вот здесь вот

[Avtopic]

Первым делом, спасибо!
Все четыре и их содержание почти наизусть знаю, и вообще, если что понимаю в этом, тоже оттуда, и в проекте один модуль ваш другой GSerg-а.
но там (по ссылкам, и не только там) не смог найти ответ на эти вопроси.
только один раз помню, встречал, кто-то кого-то благодарил, что ему объяснили про первые 4000 баит если dwMaximumSizeLow=1 и то не смог найти.
Да, раз уж упомянули эти ссылки, еще всегда хотел спросит но не знал где разместить вопрос, нигде не смог найти что из себя представляет "переобъявление" и как это работает

переобъявляем функцию VarPtr под именем ArrPtr:
Declare Function ArrPtr Lib "msvbvm60" Alias "VarPtr" (arr() As Any) As Long

[Viper]

Э... а в чем проблема то с "переобъявлением"? Такое объявление VarPtr позволяет получить адрес структуры SAFEARRAY для массива.

[tyomitch]

Явный ответ на первый вопрос: первый индекс меняется быстрее всего, последний медленнее всего. Три страницы будет в последнем варианте.

[Viper]

по второму вопросу:

4 байта указатель на SAFEARRAY
16 байт структура +8 байт на каждую размерность SAFEARRAY
16 байт минимум на каждый элемент VARIANT (для строк, UDT и объектов размер бужет еще больше)

По поводу собстно вопроса помещения/непомещения в проекцию массива Variant, а что у тебя в Variant и как ты это помещаещь в проекцию?

[Avtopic]

"переобъявлением" никаких проблем, интересует сущность

Повторяю все что написано в лынках работает и в маем проекте, причем очень хорошо.
в первом варианте, меня интересует не созданный описанным в лынках способом массивы, а обвяленные Dim, и являются ли они непрерывным адресным пространством, начиная с pData, и располагаются или нет по page-но один за другим

Во втором вопросе меня интересует размер mapping файла, который нужно выделить чтобы там поместился определенный двумерный массив, мой расчет не совпадает с реально требующим (примеры выше).

[Avtopic]

пока писал ответ, пропустил два ответа.
в Variant массиве у меня Long, Double, строки.

[tyomitch]

1) Да, являются непрерывным.
2) Как ты определяешь, поместился массив или нет?

[Avtopic]

Я уже думал что мою подсет запретили, еле зашел на форум.

2) Как ты определяешь, поместился массив или нет?

например при dwMaximumSizeLow=4096
Arr(9, 25) = “чему-то” сбивается. (вылетает программа)
при dwMaximumSizeLow=4097
Arr(9, 25) = “чему-то” работает.

а на что сбивается, нахожу методом последовательного приближения.

...но почему спросили? тут наверно что-то кроется.


Нужный размер всегда крутится вокруг да около
(1-вая размерность + 1) * (2-вая размерность + 1) * 16 – 4096
(проверял для всяких размерностей, от 1Х1 до 100000Х40).

В принципе, почему “– 4096” как то могу понять, наверно первые 4096 выделяются обязательным образом, если dwMaximumSizeLow>0 и это “смещение” постоянно присутствует,
и (1-вая размерность + 1) * (2-вая размерность + 1) * 16 понимаю, но почему завысимость непостоянна, не смог понять. Для проверенных вариантов (размерностей от 1Х1 до 100000Х40) ошибка в вычислении меняется от - 48 до плюс 2086 байт.

[tyomitch]

Нет, не угадал.
Просто запрошенный тобой размер округляется вверх до числа, кратного 4Кб.

[Avtopic]

как писал, адрес mapping области устанавливаю как адрес данных Variant массива.
В другом процессе, все открывается, и массив (в качестве адреса данных та же область), работает также исправна, как массив в первом процессе.
Все корректно, если Variant данные помещаются в 16 байт, т.е. пока там данные, а не указатели. Как только там оказываются указатели, (доп. часть данных содержит строку) программа грохается.
Причина наверно ясна, в первом процессе мы подменили адрес данных на mapping область, но в Variant элементах совсем не обязательно, что адрес, куда они будут указывать, тоже попадут в этот mapping и sharing область. Как результат, второй процесс жалуется на error 14 Out Of space, это в лучшем случае, в худшем, просто падает.
Из этого положения есть выход?

[tyomitch]

Есть. Перестать изобретать велосипед с квадратными колёсами, и сделать ActiveX EXE.

[Avtopic]

tyomitch

Один процесс, получает данные в Variant массив, много данных, одновременно.
Этот же процесс, после приема, должен выставить эти данные на общее пользование, для двух или трех других процессов. Очень желательно не на диск.
Это можно сделать на ActiveX еxe с круглимы колесами?

[tyomitch]

Можно. Причём безо всяких API. И работать, на самом деле, будет через такую же шаренную память; только тебе не нужно будет об этом заботиться самому.

[Avtopic]

Ваш ответ, спровоцировал меня, наконец-то разобраться в COM технологии. После него не написал ни одной строчки кода, только читаю.
Из всего прочитанного вынес заключение, что мне нужен, действительно, ActiveX EXE, Спасибо!

Допустим, имею Процесс - A и Процесс - C
Для простейшего эксперимента сделал ActiveX EXE, назовем “B”?
открыл в нем модуль и только одну строчку Public MyArre as Variant
и класс для работы с массивом MyArre.
В Процессе C заполняю массив в B а в Процессе A читаю. Чудесааа! видит!

tyomitch, я правильно понял наставления или опять не в ту сторону пру?
если все правильно, тогда имею такой вопрос,
в Процессе C массив С передаю в класс в В и тот заполняет MyArre.
в Процессе А массив А обращается к классу в В и тот заполняет массив А.

Что находится в А? указатель на MyArre, указатель на массив С, или сами данные?

[tyomitch]

Я не понимаю, что значит "массив обращается к классу".

[Avtopic]

плохо написал, вызывается функция

Код: Выделить всё

Public Function getArray() As Variant
    getArray = MyArre
End Function

(Property get, просто для примера выбрал функцию)

[tyomitch]

Такое присваивание копирует данные массива.