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

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

TFileStream добавление файла в конец

HSD ©   (2004-08-20 12:00:00) 

Не получается копировать
Файл1(50Kb) в конец Файла2(10Kb)
после кода файл будет не 60,а 50 Kb!
TRY
FileName:='test3.sat';
Stream := TFileStream.Create(FileName, fmOpenRead or fmShareExclusive  );
FileName:='test.sat';
Stream2 := TFileStream.Create(FileName, fmCreate or fmShareDenyWrite);

Stream2.Seek(0,soFromEnd);// в конец но не работает
Stream2.CopyFrom(Stream,Stream.Size);
EXCEPT
END;
Stream.Free;
Stream2.Free;
end;

---

HSD   (2004-08-20 13:28:00) [1]

>me, fmOpenWrite or
да наверное тут ошибка(у меня)

---

афвуд   (2004-08-20 12:47:00) [2]

Может быть всё-таки:

Stream2 := TFileStream.Create(FileName, fmOpenWrite or fmShareDenyWrite);  

?

---

Sandman25   (2004-08-20 12:03:00) [3]

Stream2 := TFileStream.Create(FileName, fmCreate or fmShareDenyWrite);

Файл создается заново

---

Семен Сорокин   (2004-08-20 12:03:00) [4]

Stream.Position := 0; ?

---

Наверх