Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Совместная работа с файлами

Strate © (2007-04-11 22:46:00)
Здравствуйте товарищи =)

Вопросик такой: Я в своей программе открываю файл для записи логов так:

LogHandle := CreateFile(PChar(LogsPath+NewCaption+'.log'), GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ, nil, OPEN_ALWAYS, 0,0);

Открытый в таком виде файл нормально открывается другими прогами, даже совместно с моей (например тоталовским Lister'ом)

Нужно в некоторый момент времени из моей программы его открыть ещё раз, но только уже для анализа этих самых логов (но логи продолжают вестись). AssignFile - Reset не работает, TFileStream тоже. Как сделать не подскажете?

Strate (2007-04-16 00:02:00) [1]
StriderMan © (12.04.07 8:59) [3]

Как ни странно работает =) Дошёл до этого экспериментально.

StriderMan (2007-04-12 08:59:00) [2]

> FileStream := TFileStream.Create(FileName, fmShareDenyNone);

и работает? может так лучше:

FileStream := TFileStream.Create(FileName, fmCreate or fmShareDenyNone);

Strate (2007-04-12 00:51:00) [3]
GreyWolf © (11.04.07 23:45) [1]

Может и получится, но я выкрутился так:

FileStream := TFileStream.Create(FileName, fmShareDenyNone);

GreyWolf (2007-04-11 23:45:00) [4]
А так не получится?

LogHandle := CreateFile(PChar(LogsPath+NewCaption+'.log'), GENERIC_READ , FILE_SHARE_READ, nil, OPEN_ALWAYS, 0,0);

Наверх

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