Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TMemoryStream


Stager ©   (2004-07-13 15:40:00) 

Возникла такая задача - нужно накачать TStringList из потока класса TMemoryStream; Проблема: почему-то без всяких сообщений об ошибках накачивается пустой список.

FTemplates.Streams[Result].SaveToFile('c:\test.1');
FStringList.LoadFromStream(FTemplates.Streams[Result]);
FStringList.SaveToFile('c:\test.2');


Вставил две отладочные строчки. Файл test.1 содержит нужные строчки, файл test.2 - пустой. При этом если вместо FStringList.LoadFromStream поставить FStringList.LoadFromFile - все работает.

Подскажите, пожалуйста, откуда такая беда?


Digitman   (2004-07-13 15:49:00) [1]


> Вставил две отладочные строчки.


"вставлять" чего-то там куда-то там - удел нерадивых, не владеющих до сих пор изящными встроенными в ИДЕ инструментами отладки Делфи-приложений

"вставлять" то же туда же при наличии исх.текстов класса TStrings - удел тех же

FTemplates.Streams[Result].SaveToFile('c:\test.1');
FTemplates.Streams[Result].Position := 0;
FStringList.LoadFromStream(FTemplates.Streams[Result]);
FStringList.SaveToFile('c:\test.2');


Stager   (2004-07-13 15:48:00) [2]

Огромное спасибо, все работает. Каюсь за дурацкий вопрос - первый раз в жизни работаю с потоками, еще не разобрался.


Семен Сорокин   (2004-07-13 15:46:00) [3]

про Stream.Position := 0 перед LoadFromStream не забыл?


Наверх

Титульная страница Поиск, карта сайта Написать письмо