Галактика в вопросах и ответах

Проблема с вызовом процедуры из vih ((((

Нашёл в справке L_Smeta.chm

ObjInterface L_SMETA::OSmetaServ
Содержит методы для работы со сметами. 

Методы
Procedure SmetaRaschet (cRec : Comp); 
Расчет показателей локальной сметы, отсутствующих в АРПС.
Procedure RaschLZ (acSm : Comp); 
Расчет лимитированных затрат объектной сметы. 
Реализован в объектах
L_SMETA::SmetaServ 

Информация
Версия : Компонент L_SMETA 8.10.16.0

Нашёл файл
SmetaServ.vih
в котором есть описание SmetaRaschet

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

#ifdef ComponentVersion
#component "L_Smeta"
#endif

#doc
Содержит методы для работы со сметами.
#end
ObjInterface OSmetaServ;
  #doc
  Расчет показателей локальной сметы, отсутствующих в АРПС.
  #end
  Procedure SmetaRaschet(cRec : comp);
  #doc
  Расчет лимитированных затрат объектной сметы.
  #end
  Procedure RaschLZ(acSm : comp);

end;

VipInterface SmetaServ implements OSmetaServ
#ifdef ATL51
  Licensed (FREE)
#endif
;

У себя в vip пытаюсь вызвать

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

var SmetaS     :OSmetaServ;
var smetanrec : comp;
...
smetanrec := SmetaStry.nrec;
...
OSmetaServ(SmetaS).SmetaRaschet(smetanrec);

либо так

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

var SmetaS     :OSmetaServ;
var smetanrec : comp;
...
smetanrec := SmetaStry.nrec;
...
SmetaS.SmetaRaschet(smetanrec);

В обоих случаях код компилируется, но при вызове метода вылетает сообщение

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

Возникло необработанное исключение
ExObjIfcNoInit (ExRef)
ссылка не была инициализирована

"Да" - Продолжить, "Нет" - Отлаживать в окне отладчика
"Отмена" - Не выдавать больше это сообщение - Да !

Подскажите, что я делаю неправильно (((((

У себя в vip:

#define ComponentVersion
#include SmetaServ.vih

есть?

#include SmetaServ.vih - был прописан

#define ComponentVersion - не был прописан, дописал

однако ситуация не изменилоась

А если так?
var SmetaS : SmetaServ;

для "O"SmetaServ(obj,i) требуется типа loadinterface - удобно когда есть несколько фейсов с одинаковым набором функций и надо использовать их по очереди, в остальных случаях лучше писать имя фейса, а не его описания - не надо следить за инициализацией и освобождением - все делается в автомате.

Спасибо

Всё заработало

var SmetaS : SmetaServ;

SmetaS.SmetaRaschet(smetanrec);

ex3em
Отлично.
Почему в данном случае SmetaServ, а не OSmetaServ edward_K уже объяснил.

Галактика в вопросах и ответах

Вызов процедуры из vih

Вызов процедуры из vih