OLE: Вызвать функцию из общего модуля (Delphi) #420523

Пишу как в примере: 1С 8.1.12.101 Создал общий модуль "OLE", создал в нем функцию: Функция СправочникПолучить_OLE(ИдСправочника) ... КонецФункции Расставил галочки модулю: Клиент, Сервер, Внешнее соединение Не хочет вызываться! First chance exception at $7C812AFB. Exception class EOleError with message 'Method 'СправочникПолучить_OLE' not supported by automation object'. В чем может быть дело? Или через COM коннектор вызов функций из модуля не работает чтоли?

Экспорт

ой. домой пора :-) вот что значит незамыленным взглядом код окинуть!

Я код не смотрел. Это типовая ошипка.

Почитал статью. 4 способ: RefManager:=v81.NewObject('СправочникМенеджер.Контрагенты'); Аутор статьи - дьятель.

О! И не надо городить модули! Класс, спасибо!

> Method 'СправочникПолучить_OLE' not supported by automation object'                                                       """""""""" Галочку поставь соответствующую

(2 )А вот кстати, попутный вопрос, не в тему, конечно. Как в Delphi организовать обход коллекции без написания своих функций в общих модулях? К примеру: 1С: Для каждого ПланОбмена из Метаданные.ПланыОбмена Цикл Не смотря на то что for in появился в Delphi, для Olevariant он не работает: for ПланОбмена in v81.Метаданные.ПланыОбмена do begin ^^^ так работать не будет!

ППЦ МетаданныеПланыОбмена:=Метаданные.ПланыОбмена; for i:=0 to МетаданныеПланыОбмена.Количество-1 do begin end;

Пардон, МетаданныеПланыОбмена:=V81.Метаданные.ПланыОбмена;