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

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

Как добавить что-то в конец файла?

kull ©   (2002-04-03 01:28:00) 

Привет народ!
Кто подскажет,как используя TFileStream добавить какие-либо данные в конец файла. Что-то я совсем ничего не соображаю.
Делаю так:

F := TFileStream.Create(Trim(edLogFile.Text),fmCreate or fmOpenWrite);
F.Seek(soFromEnd,0);
F.Write(SomeBuffer,BufferSize);

.............
ну и т.д. , так он падла все содержимое переписывает поверх....
:(

---

Rooman   (2002-04-03 09:31:00) [1]

хыхы:)

---

EveryonE   (2002-04-03 08:37:00) [2]

F := TFileStream.Create(Trim(edLogFile.Text),fmCreate or fmOpenWrite);
F.Seek(soFromEnd,0); <<<< ошибка
F.Write(SomeBuffer,BufferSize);

:)) Конечно не получиться.... нравяться мне такие ошибки

F.Seek(0, soFromEnd); <<< Так лучше :))
F.Write(SomeBuffer,SizeOf(SomeBuffer)); <<< так тоже :))

---

MBo   (2002-04-03 05:59:00) [3]

Логфайл - текстовый, наверно. Append-ом открывай

---

kull   (2002-04-03 02:02:00) [4]

Как же читали...
Да пробовал я fmOpenReadWrite - не катит, тоже все переписывает.

---

Alexander Ionov   (2002-04-03 01:50:00) [5]

Дык справку нужно читать. А там написано: "The open mode must be one of the following values". Так что использование "fmCreate or fmOpenWrite", мягко говоря, не катит. А в описании fmOpenWrite написано "Writing to the file completely replaces the current contents". А по поводу дописать в конец написано в следующей строке: "fmOpenReadWrite - Open the file to modify the current contents rather than replace them". Ы?

---

Наверх