Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.05.06;
Скачать: CL | DM;

Вниз

Совместная работа с файлами   Найти похожие ветки 

 
Strate ©   (2007-04-11 22:46) [0]

Здравствуйте товарищи =)

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


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


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

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


 
GreyWolf ©   (2007-04-11 23:45) [1]

А так не получится?

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


 
Strate ©   (2007-04-12 00:51) [2]

GreyWolf ©   (11.04.07 23:45) [1]

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

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


 
StriderMan ©   (2007-04-12 08:59) [3]


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

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

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


 
Strate ©   (2007-04-16 00:02) [4]

StriderMan ©   (12.04.07 8:59) [3]

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



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

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

Наверх




Память: 0.47 MB
Время: 0.027 c
15-1175936121
ЭРИКА
2007-04-07 12:55
2007.05.06
ПОЗДРАВЛЕНИЕ С ДНЕМ РОЖДЕНИЯ


15-1175977434
Danilka
2007-04-08 00:23
2007.05.06
Есть ли Бог на Марсе?


3-1171369985
Layner
2007-02-13 15:33
2007.05.06
Можно ли через ADOConnection узнать все SQL запросы


2-1176529067
Romm
2007-04-14 09:37
2007.05.06
Помогите найти ошибку


15-1176060159
Суслик
2007-04-08 23:22
2007.05.06
Дайте модуль grids.pas от д7 или д6