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