OberonCore

Неплохо было бы дополнить документацию.
Например, нигде не нашёл описания модуля COM, также отсутствуют сведения по квадратным скобкам. В следующем контексте:
TYPE LaLa=RECORD [здесь может быть строка, или слово untagged, а может и ещё что нибудь] и далее как обычно. Также они встречаются в описаниях массивов и формальных параметров. Что означают - непонятно. Может, есть ещё какие-то нераскрытые темы.

Не существует такого модуля COM. Это псевдомодуль, compiler-magic, так же, как и SYSTEM. Дает возможность описывать интерфейсы COM, например, указывая GUID в квадратных скобках, как в Дельфе...

Про SYSTEM и квадратные скобки можно прочесть в Platform-Specific-Issues (Особенности платформы). Про COM - частично там же. Если же использовать расширенные возможности Direct-To-Com Compiler (в первую очередь полезны для серверов COM) - то это подсистема COM и ее документация, пока что не переведенная.

А еще есть подсистема Ctl, содержащая интерфейсы автоматизации к MS Office и кое-какую документацию. На нашем сайте мы ее из дистрибутива вырезали, т.к. она весит добрую половину пакета. Если требуется, закачайте полный ББ на oberon.ch.

Вот именно описание псевдомодуля COM больше всего и интересует...
Пытаюсь подключаться к OLE-серверам, используя disp-интерфейс. В документации к OLE-серверам имеются только имена свойств иметодов. Вот, например что за функция COM.ID(???) - я её даже использую, но не знаю что она делает. С untagged массивами жуткая проблема. Чтобы вызвать метод WinOleAut.IDispatch.Invoke, необходимо заполнить структуру

Но как распределить память под POINTER TO ARRAY [untagged] OF VARIANTARG - я не понимаю. Процедура NEW - не работает. А что делать???

Пока с этим не работал. Вообще-то, такие типы выделять можно системными вызовами WinApi.VirtualAlloc или HeapAlloc, как это под Win32 и принято. Может быть, есть где-то функция-оболочка под них.

А вообще, Oberon Micrsosystems рекомендует использовать подсистему Com и Direct-To-Com Compiler. Просто до версии 1.5 он не входил в поставку, а продавался отдельно, и приходилось использовать записи с процедурными полями.

А подсистема Ctl у Вас есть?

Распределите память под обычный массив нужной длины.
Адрес нулевого элемента присвойте своему untagged-указателю.
В таком духе.

Тоже самое на другом форуме
http://progz.ru/forum/viewtopic.php?t=20135

А пример можно? Как там будет с совместимостью по присваиванию? И как получить адрес нулевого элемента? Насколько я знаю, функции получения адреса в BlackBox возвращают INTEGER, а не POINTER.

В таких "низкоуровневых" случаях в ББ действительно есть compiler-magic - нетипизированное преобразование SYSTEM.VAL(T - имя типа, к которому приводим, x - значение любого другого типа).

Там же в "Особенности платформы" эти вещи описаны. Правильно сказал Trurl на progs.ru - что [untagged] - это чужая память. Распределяется обычно системой. Например, менеджером кучи Windows.

Так делать очень опасно по одной простой причине: если untagged-указатель уйдет "налево" - в другую dll или в системный вызов, то сборщик мусора это не отследит и может прибить объект в самый неподходящий момент. Да даже внутри среды: если все tagged-указатели на память уйдут из области видимости, то память будет освобождена, и untagged-ссылки окажутся висячими!

Привяжите объект глобально.

Это как? (Извините, что надоедаю....)

Очень полезное и информативное замечание! Спасибо, я не знал о таких тонкостях.

Держать ссылку на память в глобальной переменной. Этакий "якорь". Тогда память не освободится, пока не будет выгружен модуль. Но зачем? [untagged] - это системные объекты, и память под них лучше выделять системно, помимо менеджера памяти ББ.

Еще один вариант объявить

а его уже размещать в памяти.

Уверен, что это не сработает.

спасибо за "наводку", про SYSTEM.VAL - не знал. Однако, это тоже не поможет. Дело в том, что в модуле WinOleAut описание типа выглядит так:
То есть поле rgvarg имеет безымянный тип, который несовместим по присваиванию ни с чем....
Уточняю свой первоначальный вопрос: Можно ли заполнить структуру WinOleAut.DISPPARAMS, не исправляя сам модуль WinOleAut?

Нашёл, как говорится Эврика!

,где n - число параметров вызываемого метода.

Всем спасибо за участие. Без вашей помощи я бы долго ковырялся.