OberonCore https://forum.oberoncore.ru/ |
|
Преобразование Files.File в TextModels.Model https://forum.oberoncore.ru/viewtopic.php?f=23&t=3846 |
Страница 1 из 1 |
Автор: | Иван Денисов [ Среда, 15 Февраль, 2012 06:53 ] |
Заголовок сообщения: | Преобразование Files.File в TextModels.Model |
Не могу додуматься как преобразовать Files.File в TextModels.Model. Подскажите, пожалуйста! Один вариант сохранить, а потом открыть вот таким образом: Код: v := Views.Old(Views.dontAsk, loc, fname, conv); или короче на форуме попадалосьt := v(TextViews.View).ThisModel(); Код: t := Views.OldView(loc, fname)(TextViews.View).ThisModel(); НО если файл создан типа temp то тогда он его не дает сохранить, там стоит ASSERT 20. И получить loc и name такого временного файла не нахожу пока способа... Что делать не знаю. |
Автор: | Илья Ермаков [ Среда, 15 Февраль, 2012 07:24 ] |
Заголовок сообщения: | Re: Преобразование Files.File в TextModels.Model |
Stores.Reader.ConnectTo(file); Stores.Reader.ReadStore(s) s(TextViews.View) |
Автор: | Иван Денисов [ Среда, 15 Февраль, 2012 07:45 ] |
Заголовок сообщения: | Re: Преобразование Files.File в TextModels.Model |
Илья Ермаков писал(а): Stores.Reader.ConnectTo(file); Stores.Reader.ReadStore(s) s(TextViews.View) Сделал вот так, как вас понял: Цитата: reader: Stores.Reader; s: Stores.Store; BEGIN reader.ConnectTo(ffile.file); reader.ReadStore(s); t := s(TextViews.View).ThisModel(); StdCoder.DecodeAllFromText(t, 0, FALSE); Пишет. Код: TRAP 20 (precondition violated) Хотя файл точно не пустой, но в файле простой текст. Может поэтому он не может там не один Stores найти?
no Stores.Store to read at this file position Stores.Reader.ReadStore [000023C5H] .a Stores.Alien NIL .comment INTEGER 1269411888 .down INTEGER 6418396 .downPos INTEGER 1266787008 .id INTEGER 0 .kind SHORTCHAR "S" .len INTEGER 6419220 .next INTEGER 2964939 .nextElemId INTEGER 0 .nextStoreId INTEGER 1 .nextTypeId INTEGER 0 .path Stores.TypePath elements .pos INTEGER 1 .pos1 INTEGER 6418416 .rd Stores.Reader fields .save Stores.ReaderState fields .t POINTER NIL .type Stores.TypeName "纯俴纯a跀纯a꺰纬跀纯跀纯a冁篃跀纯尀纉俴纯a俴纯俴纯" ... .x Stores.Store NIL |
Автор: | Иван Денисов [ Среда, 15 Февраль, 2012 08:05 ] |
Заголовок сообщения: | Re: Преобразование Files.File в TextModels.Model |
Ага, дошло. Без конвертера он ничего не понимает... попробую разобраться наконец к конвертерах. |
Автор: | Иван Денисов [ Среда, 15 Февраль, 2012 08:42 ] |
Заголовок сообщения: | Re: Преобразование Files.File в TextModels.Model |
Иван Денисов писал(а): Ага, дошло. Без конвертера он ничего не понимает... попробую разобраться наконец к конвертерах. Уф, разобрался. но использовал HostConverters. Выложу что получилось. |
Страница 1 из 1 | Часовой пояс: UTC + 3 часа |
Powered by phpBB® Forum Software © phpBB Group https://www.phpbb.com/ |