InitServKAU и coGetTune

[Alexander]

делаю пустой интерфейс,
В инит вызываю
InitServKAU;
и
coGetTune('FIN.USER.CPLANSSCH');

на любой из этих функций Галактика умирает.... в чем может быть причина??

В интерфейсе кроме обработчика событий ничего нет....

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

#include external.inc
Interface test 'test' doaccept, cyan;
   Create View;
   handleEvent
      cmInit:{
     message(comp(coGetTune('FIN.USER.CPLANSSCH')));
     Message(InitServKAU);
     DoneServKAU;
      }
   end;
End.

[edward_K]

InitServKAU(0)
ужо надо
потом могет быть coGetTune
странно что вообще компилятор пускает
потренеруйтесь сначала на конфигураторе.

[aleks1232321]

Вообще-то InitSerKau без параметров

// Проинициализировать сервис
function InitServKau : boolean;
{$ifndef ForExport} external LibName name 'INITSERVKAU';{$endif}
// Проданить сервис
procedure DoneServKau;
{$ifndef ForExport} external LibName name 'DONESERVKAU';{$endif}

[Alexander]

edward_K
InitServKAU(0);
Ошибка: недопустимый тип параметра

[Alexander]

edward_K
Причем Support на InitServKau говорит false, а coGetTune('FIN.USER.CPLANSSCH') возвращает 0. а вот галактика дохнет.... ничего не понимаю, 2-й день бьюсь...

[Alexander]

Вопрос решился так:
#include external.inc
Убираем, подключаем extfun.res
Все компилится и работает!
ПОЧЕМУ????

[edward_K]

видимо потому что InitServKAU(0)
у вас просто старое описание функций
либо добудьте новое а еще лучше подключать их описание из реса - так надежней.