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

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

TFileStream [D7, XP]


Footballer ©   (2006-12-29 10:53:00) 

В общем есть 2 TFileStream: FS1 и FS2
Надо переместить в FS1 в некую позицию x и оттуда скопировать вторую часть в FS2. Проблема в реализации. Делаю так:
FS1.Position:= x;
FS1.Read(FS2, FS1.Size - x + 1)
Но чё-то не работает, может его надо по буферам считывать, но с этим у меня проблемы. Если не сложно, объясните...

ЗЫ Если плохо объяснил, вот пример: надо считать вторую половину FS1 в FS2, то есть FS2 является второй половиной FS1


Footballer   (2006-12-29 11:08:00) [1]

Спасибо, буду пробовать


Palladin   (2006-12-29 11:01:00) [2]

fs1.seek(x,sofrombeginning);
fs2.copyfrom(fs1,fs1.size-x-1);


Джо   (2006-12-29 11:01:00) [3]

Есть еще метод TStream.CopyFrom, кстати.


Джо   (2006-12-29 11:00:00) [4]

Смотри в справке описание параметров метода Read.


Наверх

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