Создание потомка стандартного объектного интерфейса
Добавлено: 11 янв 2008, 11:42
Всем привет!.. Возникла необходимость создать потомка стандартного интерфейса. Написал, примерно, следующее:
Файл: MakeSoprByBuff.vih
Файл: MakeSoprByBuff.vip
Компилятор выдает ошибку:
Если кто сталкивался, подскажите что я сделал не так... Галактика 8.0, Платформа: Pervasive
Файл: MakeSoprByBuff.vih
Код: Выделить всё
#include MakeNakl.vih
objInterface MakeSoprByBuffObj2 (MakeSoprByBuffObj);
function TestFunc: Boolean;
end;
vipInterface MakeSoprByBuff2 (MakeSoprByBuff) implements MakeSoprByBuffObj2;Код: Выделить всё
interface MakeSoprByBuff2;
create view
from
KatSopr;
function TestFunc: Boolean;
{
Result := False;
}
end.Код: Выделить всё
MakeSoprByBuff.vip(1)Runtime error 216 (rtl: попытка обращения к некорректному дескриптору) in streams_.dll at 00028650