Цитата:
Сообщение от
NeNavision
Почему не возможно? Все возможно. Только не нужно.
Таким заклинаниями это не сделать. Нужно вот такое волшебство.
Код:
Object.GET(Object.Type::Table,'',17);
NewObject.INIT;
NewObject.TRANSFERFIELDS(Object);
NewObject.ID := 50000;
NewObject.Name := 'new';
Object.CALCFIELDS("BLOB Reference");
Object."BLOB Reference".CREATEINSTREAM(InStream1);
NewObject."BLOB Reference".CREATEOUTSTREAM(OutStream1);
COPYSTREAM(OutStream1, InStream1);
NewObject.INSERT; Большое спасибо, то что надо!