Страница 1 из 1
InitServKAU и coGetTune
Добавлено: 18 дек 2006, 15:44
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.
Добавлено: 18 дек 2006, 17:35
edward_K
InitServKAU(0)
ужо надо
потом могет быть coGetTune
странно что вообще компилятор пускает
потренеруйтесь сначала на конфигураторе.
Добавлено: 18 дек 2006, 18:57
aleks1232321
Вообще-то InitSerKau без параметров
// Проинициализировать сервис
function InitServKau : boolean;
{$ifndef ForExport} external LibName name 'INITSERVKAU';{$endif}
// Проданить сервис
procedure DoneServKau;
{$ifndef ForExport} external LibName name 'DONESERVKAU';{$endif}
Добавлено: 19 дек 2006, 08:15
Alexander
edward_K
InitServKAU(0);
Ошибка: недопустимый тип параметра
Добавлено: 19 дек 2006, 08:18
Alexander
edward_K
Причем Support на InitServKau говорит false, а coGetTune('FIN.USER.CPLANSSCH') возвращает 0. а вот галактика дохнет.... ничего не понимаю, 2-й день бьюсь...
Добавлено: 19 дек 2006, 10:02
Alexander
Вопрос решился так:
#include external.inc
Убираем, подключаем extfun.res
Все компилится и работает!
ПОЧЕМУ????
Добавлено: 19 дек 2006, 18:26
edward_K
видимо потому что InitServKAU(0)
у вас просто старое описание функций
либо добудьте новое а еще лучше подключать их описание из реса - так надежней.