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

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

PStream [Delphi, Windows]


Immortal_Death ©   (2003-09-11 21:31:00) 

Не подскажите почему у меня не получаеться скопировать файл с помощью PStream.
Пишу так:

var
FBig, FResult: PStream;
begin
FBig :=  NewReadFileStream('1.txt');
FResult :=   NewWriteFileStream('2.txt');
FBig.Seek(0,spCurrent);
FResult.Seek(0,spCurrent);
FResult.Write(FBig, FBig.Size);
FBig.Free;
FResult.Free;
end;

Файл '1.txt' существует, запускаю прогу, создаеться файл '2.txt', но остаетьтся пустой :(


Immortal_Death   (2003-09-12 01:59:00) [1]

Угу, благадарю, разобрался.


Dimaxx   (2003-09-12 00:22:00) [2]

Существует такая функция Stream2Stream - вот она-то тебе и нужна...


Наверх

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