Страница 1 из 1
Объявить dataset
Добавлено: 23 янв 2007, 17:54
savov
Пожалуйста, дайте консультацию
Пробую объявить datastream:
файл MyInt.vih:
vipInterface Myint;
public:
dataStream Sm;
end;
при компиляции ошибка : Требуется Implements после MyInt!
В ДОКЕ ТА НЕТУ НИКАКОГО IMPLEMENTS!!!
Чего делать? Почему не компилит? или дока корявая иля я неструганый???
Добавлено: 23 янв 2007, 19:26
Den
Из доки :
Синтаксис прототипа Vip-интерфейса:
VipInterface <имя Vip-интерфейса> Implements <имя объектного интерфейса> [,<имя объектного интерфейса>…] ;
Пример:
VipInterface MyPublicVip implements Obj2, ObjExample;
Добавлено: 24 янв 2007, 10:11
savov
Но я свой пример тоже из доки взял! Там прописано как делать отчет по fastReport по шагам (дока vipprog.chm - поставка Гал-ки). И это объявление datastream без implements (и еще куча примеров без implements!). А что можно вообще ставить после implements, если я объявляю свой datastream???? Есть какой то стандартный datastream или еще какой то объект??
Добавлено: 25 янв 2007, 10:59
savov
Ну кто-нибудь, покажите пример объявления datastream!!!! Плиз!!! Очень надо.....
Добавлено: 25 янв 2007, 11:39
Max_Fin
mytest.vih
Код: Выделить всё
ObjInterface ObjMyTest;
DataStream dsTest;
end;
VipInterface iMyTest Implements ObjMyTest;
maytest.vip
Код: Выделить всё
interface iMyTest '';
.......
dataStream dsTest
(
[Fld1] Value1;
.......
[FldN] ValueN;
table Tabel1
(
[TFld1] Table1.Fld1;
.......
[TFldN] Table1.FldN;
);
)
HandleEvent table Table1
cmOnProcess: if not NextVisual BreakProcess;
end;
HandleEvent
cmPreProcess: StartNewVisual(vtRotateVisual, vfTimer+vfBreak+vfConfirm, 'Формирование', 0);
cmPostProcess: StopVisual('', 0);
end;
end;
.......
end.
Добавлено: 25 янв 2007, 14:45
savov
Большое спасибо!!!
Добавлено: 25 янв 2007, 14:56
savov
Во, блин! Пишет ожидалось public, procedure... в строке 2 файла vih!!!!
Добавлено: 25 янв 2007, 15:38
Max_Fin
А у вас случаем не 7.12?
Добавлено: 25 янв 2007, 15:45
Max_Fin
Вот специально сейчас решил проверить
Код: Выделить всё
ObjInterface ObjMyTest;
DataStream dsTest;
end;
VipInterface iMyTest Implements ObjMyTest;
Код: Выделить всё
#include my.vih
interface iMyTest '';
create view
var wNONE: Word;
;
dataStream dsTest
(
[MyOrg] sGetTune('MYORG');
)
HandleEvent
cmPreProcess: StartNewVisual(vtRotateVisual, vfTimer+vfBreak+vfConfirm, 'Формирование', 0);
cmPostProcess: StopVisual('', 0);
end;
end;
end.
Пример рабочий.
Может моя предыдущая догадка верна?
В доке черным по белому
"Версия
Атлантис 5.0.
Расширение потоков данных введено начиная с Атлантис 5.1.2x."
Добавлено: 25 янв 2007, 15:53
Max_Fin
Точно! Именно эта ошибка и проявляется на Атлантисе 3.03.xx
Добавлено: 25 янв 2007, 17:48
savov
У нас 7.12! Значит нам не видать как ушей FastReport и datastream?
А с какой же версии работает 5 Атлантис ? С 8?
Добавлено: 25 янв 2007, 17:59
Max_Fin
Да, конвертируйтесь и обрящите