Передать указатель на array в программу.

[MEMBER]

Имеем dll которая получает указатель на array и может с ним работать. Как из dll запустить программу и передать ей указатель на array.
ЗЫ Как запустить программу писать не надо. Надо, панимашь, комплексно.
Спасибо.

[GSerg]

Элементарно. Byref arr(lbound(arr)) или Byval varptr(arr(lbound(arr))).

[MEMBER]

Это пойдёт как параметр командной строки?
Или сначала надо будет дождаться, пока программа запуститься?
И ещё вопрос, это в какую функцию\процедуру уйдёт-то?
---
ЗЫ Не делал я такого, потому и пристаю.
Поэтому чуть подробней, если можно.

[GSerg]

Ого!
Тогда поподробней, плз. Как это - получить указатель на массив, чьё имя задано ключом строки?

[MEMBER]

Нет, ну я же написал "или дождаться запуска программы".
Давайте плясать от печки.
Есть запущенное приложение, есть dll, надо из dll отправить указатель на массив в приложение.
Вот.

[GSerg]

Ага, так это activex dll
Ну тогда встаёт проблема взаимного управления. Которая рассматривалась подробно, но не найдёт её никто никогда

Короче. Приложение создаёт экземпляр класса из библы. А этот класс должен содержать метод, через который передаётся массив, обычный GetArray(arr()).

Или я опять не понял?

[MEMBER]

Ага... Мысль.
Принцип:
VBScript создаёт массив, передаёт указатель на массив в dll, dll запускает программу, дожидается её запуска, после запуска программы она (программа) создаёт экземпляр класса из dll, получает указатель на массив, обрабатывает его.
Вот меня смущать начинает отсюда: "после запуска программы она (программа) создаёт экземпляр класса из dll, получает указатель на массив"
---
Ладно, теорию надо практикой проверять, вот и проверю.

[MEMBER]

Киньте что-ли в меня ссылкой на проект, который это делает, или описанием, как это делать.

[GSerg]

MEMBER, бывалоча, как спросит...
Но марку держать надо
Итак...

Тут два основных пути. Первый – это то, что запускаемая из dll программа является activex exe, а значит можно ей определить публичный интерфейс с методом GetArray и вызвать сей метод из dll.

Второй – это когда программа обычный exe. Тут интереснее. Потому что получить указатель на массив извне в виде числа можно, но работать с ним крайне геморно – это либо прямая арифметика с указателями через CopyMemory, либо прямой вызов функций работы с SAFEARRAY, что, мне кажется, предпочтительнее. Кроме того, встаёт проблема выбора способа межпроцессной коммуникации, коих не один. И третья проблема – когда процесс подгружает себе библиотеку, она маппится в его адресное пространство, а когда библиотека запускает процесс, адресное пространство создаётся новое, и указатель на массив не имеет смысла для запущенной программы, поскольку не относится к её адресному пространству. Так что для чтения этого массива придётся применять ReadProcessMemory – ох и гемор же...

Попробуем так. Пусть dll запускает программу с параметром командной строки в виде числа varptr(arr(lbound(arr))) (первый) и ID процесса dll (второй). Первое число есть не что иное как SAFEARRAY**. Размер этой структуры, думаю, найдёшь... Теперь, зная размер и указатель, копируем эту структуру себе через ReadProcessMemory (причём сначала мы читаем по этому адресу четыре байта – это новый адрес! и вот из него уже копируем). Теперь имеем структуру у себя. В ней есть вся информация для функции SafeArrayCreate. Вызываем её. Получаем указатель на пустой SAFEARRAY с теми же характеристиками, но уже в нашем адресном пространстве. И тогда просто делаем ещё разок ReadProcessMemory, на сей раз подставив в качестве pDest byval Safearray.pvData новой структуры, а в качестве pSource – аналогичный член скопированной структуры.

НО
Всё написанное является плодом моего воображения, хотя, в принципе, может работать

[GSerg]

Спорол чушь в одном месте, сейчас, соберусь с мыслями и исправлю...

[MEMBER]

А что, вопрос слишком тупой? Ну это, звиняйте...
Буду изучать и, как пишут некоторые, пробЫвать. Спасибо.

[GSerg]

Да нет, батенька, вопрос слишком не тупой!

Такой вот у меня вопрос: массив одномерный?

[GSerg]

Короче, не получается ни фига.
OpenProcess с флагом VM_READ работает, хэндл возвращает.
А ReadProcessMemory не читает, возвращает ноль, что значит доступ закрыт.
И даже если вызывающий процесс с помощью VirtualProtect разрешает полный доступ к нужному куску памяти (завершается успешно!), то всё равно не читает.

[GSerg]

Нет, всё-таки задача интересная
А потому вот решение.

Здесь я закрываю shared memory object сразу после использования, но можно и не закрывать - тогда останется кусок общей памяти у двух процессов.

[MEMBER]

Спасибо, буду пробовать.