Как корректно закрыть файл лога?

← →
kyn66 © (2005-10-17 13:03) [0]

Здравствуйте мастера! Вопрос такой. В программе в начале некоторой опрерации для ведения лога я делаю следующее:
Var RepOut : TextFile; ... AssignFile(RepOut,"Info.log"); Rewrite(RepOut); ...
После окончания операции выполняю закрытие файла
... CloseFile(RepOut); ...
А как мне поступить в ситуации, которая может возникнуть в тот момент, когда операция ешшо не закончилась,
а юзер нажал на кнопку закрытия формы (CloseQuery)
Как мне правильно отследить закрытие файла, чтобы все было корректно?

← →
Digitman © (2005-10-17 13:06) [1]

> когда операция ешшо не закончилась

какая операция ?

← →
kyn66 © (2005-10-17 13:10) [2]

Да любая, нечто делаю, нечто записываю, короче некий процесс в некотором блоке.

← →
Anatoly Podgoretsky © (2005-10-17 13:15) [3]

kyn66 © (17.10.05 13:10) [2]
Давай подробнее, что же это такое, что не завершилось. TextFile только синхронные операции. Покажи нам свое чудо.

← →
Digitman © (2005-10-17 13:21) [4]

> нечто записываю

то бишь вызываешь нечто вида Read[Block/Ln] ?

это - синхронные вызовы.

если они выполняются в осн.код.потоке, то юзер хоть обкликается на форме но прервать выполнение таких вызовов не сможет вплоть до их завершения (корректного или по исключению)

← →
kyn66 © (2005-10-17 13:59) [5]

Начинается блок...
С клавы ввожу число 1...
в лог файл пишу "Введено число 1"
С клавы ввожу число 2...
в лог файл пишу "Введено число 2"
С клавы ввожу число 3...
в лог файл пишу "Введено число 3" и т.д.
К примеру это мне нужно сделать до 10. А если юзеру надоело раньшее. Т.е. в конце этого блока ввода стоитCloseFile(Repout). Только после этого файл появится на диске. А если форма закрыта раньше этой процедуры закрытия файла?. Вот в чем вопрос. Я тут нашел нечто File mode/ Вот его как-то нужно прикрутить

← →
Digitman © (2005-10-17 14:04) [6]

> Начинается блок...

какой такой "блок" ?

иллюстрируй свое понимание "блока" в коде/псевдокоде ..

иначе под "блоком" можно понимать все что угодно ...

← →
TUser © (2005-10-17 14:18) [7]

try ... finally

В данном случае - операция, очевидно, в потоке, поэтому
procedure TYourThread.Execute;
begin
assignfile
rewrite ()
try
while not Terminated do
DoWork
finally
ClesewFile()
end
end;

← →
Leonid Troyanovsky © (2005-10-17 14:27) [8]

> TUser © (17.10.05 14:18) [7]

> В данном случае - операция, очевидно, в потоке, поэтому

Неочевидно.
Очевидно, что в "Начинающие".

--
Regards, LVT.

← →
TUser © (2005-10-17 14:38) [9]

А все равно finally надо написать, чтобы гарантированно сохранить лог.

PS. Операцию, которую пользователь может прервать на половине - в отд. поток все-таки желательно.

kyn66 © (17.10.05 13:59) [5]
Это надо делать атомарно, на каждую нажатую клавишу и это пахнет шпионом. Опять вирус пишем?

Да кокой к черту вирус. Ну попробуйте сами... уже устал объяснять. А поклавишно просто пример привел. Не буду-ж все структуру программы описывать. Конкретно, как проверить , не закрыт идентификатор файла?

> Ну попробуйте сами...

Чего пробовать? У нас логи работают без проблем.

С чем Вас и поздравляю. Пока объяснял, уже сам придумал выход. Всем спасибо

Как корректно закрыть файл лога? Найти похожие ветки