Объявить dataset

[savov]

Пожалуйста, дайте консультацию
Пробую объявить datastream:
файл MyInt.vih:
vipInterface Myint;
public:
dataStream Sm;
end;

при компиляции ошибка : Требуется Implements после MyInt!
В ДОКЕ ТА НЕТУ НИКАКОГО IMPLEMENTS!!!
Чего делать? Почему не компилит? или дока корявая иля я неструганый???

[Den]

Из доки :

Синтаксис прототипа Vip-интерфейса:

VipInterface <имя Vip-интерфейса> Implements <имя объектного интерфейса> [,<имя объектного интерфейса>…] ;

Пример:
VipInterface MyPublicVip implements Obj2, ObjExample;

[savov]

Но я свой пример тоже из доки взял! Там прописано как делать отчет по fastReport по шагам (дока vipprog.chm - поставка Гал-ки). И это объявление datastream без implements (и еще куча примеров без implements!). А что можно вообще ставить после implements, если я объявляю свой datastream???? Есть какой то стандартный datastream или еще какой то объект??

[savov]

Ну кто-нибудь, покажите пример объявления datastream!!!! Плиз!!! Очень надо.....

[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.

[savov]

Большое спасибо!!!

[savov]

Во, блин! Пишет ожидалось public, procedure... в строке 2 файла vih!!!!

[Max_Fin]

А у вас случаем не 7.12?

[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."

[Max_Fin]

Точно! Именно эта ошибка и проявляется на Атлантисе 3.03.xx

[savov]

У нас 7.12! Значит нам не видать как ушей FastReport и datastream?
А с какой же версии работает 5 Атлантис ? С 8?

[Max_Fin]

Да, конвертируйтесь и обрящите