Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];




Вниз

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


kull   (2002-04-03 01:28) [0]

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

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

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



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

Дык справку нужно читать. А там написано: "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". Ы?



kull   (2002-04-03 02:02) [2]

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



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

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



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

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)); <<< так тоже :))



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

хыхы:)




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.038 c
14-46489          Shaman_Naydak         2002-03-06 13:09  2002.04.15  
Еще про объекты


14-46499          MBo                   2002-03-07 11:08  2002.04.15  
Поздравляю с 8 Марта!


1-46327           Yuraz                 2002-04-01 17:32  2002.04.15  
Мастера, не могу правильно выйти из потока, делаю:


3-46243           Praco                 2002-03-22 09:41  2002.04.15  
Увы, опять Excel.


14-46513          Burmistroff           2002-03-06 14:17  2002.04.15  
Как мне поступить? Что ответить?