OberonCore

Библиотека  Wiki  Форум  BlackBox  Компоненты  Проекты
Текущее время: Суббота, 22 Сентябрь, 2018 08:03

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 5 ] 
Автор Сообщение
 Заголовок сообщения: Преобразование Files.File в TextModels.Model
СообщениеДобавлено: Среда, 15 Февраль, 2012 06:53 
Аватара пользователя

Зарегистрирован: Четверг, 08 Октябрь, 2009 15:00
Сообщения: 2180
Откуда: Красноярск
Не могу додуматься как преобразовать 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 
Модератор
Аватара пользователя

Зарегистрирован: Понедельник, 14 Ноябрь, 2005 18:39
Сообщения: 8989
Откуда: Россия, Орёл
Stores.Reader.ConnectTo(file);
Stores.Reader.ReadStore(s)
s(TextViews.View)


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: Среда, 15 Февраль, 2012 07:45 
Аватара пользователя

Зарегистрирован: Четверг, 08 Октябрь, 2009 15:00
Сообщения: 2180
Откуда: Красноярск
Илья Ермаков писал(а):
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)
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
Хотя файл точно не пустой, но в файле простой текст. Может поэтому он не может там не один Stores найти?


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: Среда, 15 Февраль, 2012 08:05 
Аватара пользователя

Зарегистрирован: Четверг, 08 Октябрь, 2009 15:00
Сообщения: 2180
Откуда: Красноярск
Ага, дошло. Без конвертера он ничего не понимает... попробую разобраться наконец к конвертерах.


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: Среда, 15 Февраль, 2012 08:42 
Аватара пользователя

Зарегистрирован: Четверг, 08 Октябрь, 2009 15:00
Сообщения: 2180
Откуда: Красноярск
Иван Денисов писал(а):
Ага, дошло. Без конвертера он ничего не понимает... попробую разобраться наконец к конвертерах.

Уф, разобрался. но использовал HostConverters. Выложу что получилось.


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 5 ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Вся информация, размещаемая участниками на конференции (тексты сообщений, вложения и пр.) © 2005-2018, участники конференции «OberonCore», если специально не оговорено иное.
Администрация не несет ответственности за мнения, стиль и достоверность высказываний участников, равно как и за безопасность материалов, предоставляемых участниками во вложениях.
Без разрешения участников и ссылки на конференцию «OberonCore» любое воспроизведение и/или копирование высказываний полностью и/или по частям запрещено.
Powered by phpBB® Forum Software © phpBB Group
Русская поддержка phpBB