Текущий архив: 2004.04.18;
Скачать: CL | DM;

Вниз

PStream   Найти похожие ветки 

← →
Immortal_Death ©   (2003-09-11 21:31) [0]

Не подскажите почему у меня не получаеться скопировать файл с помощью 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", но остаетьтся пустой :(

---

← →
Dimaxx ©   (2003-09-12 00:22) [1]

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

---

← →
Immortal_Death ©   (2003-09-12 01:59) [2]

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

---

Страницы: 1 вся ветка

Текущий архив: 2004.04.18;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.044 c