Общий доступ к файлу [D6]
Ivan © (2004-04-08 12:24:00)
Как по-проще организовать доступ к текстовому файлу для
считывания и добавления в него строк при работе с двух
станций?
wild_arg (2004-04-08 13:44:00) [1]
Сделай так, чтобы на станциях в твоих приложениях этот файл не
был постоянно открыт. Если надо прочитать информацию оттуда -
считывай ее в какой-нибудь stream и сразу закрывай файл, аналогично
при записи. Еще когда какая-либо прога открывает этот файл на любую
операцию пусть она про это пишет в какой-нить инишник... ну типа
так:
...
F1 : TextFile;
fLock : boolean;
begin
....
with TIniFile.Create('mycfg.ini') do begin
fLock :=
ReadBoolean('Common','FileLocked',False);
if not fLock then
WriteBoolean('Common','FileLocked',True);
Free;
end;
if not fLock then begin
...
end
else ShowMessage('Файл занят и все такое');
...
и типа твои проги всегда будут знать открыт кем-то файл или
нет, еще можно туда же сохранять кем открыт файл и зачем...
Наверх 
ЧАТ |
Орешник |
|
