![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
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 - вот она-то тебе и нужна...