IMHO.WS - Как открыть файл?

IMHO.WS (https://www.imho.ws/index.php)

- Программирование (https://www.imho.ws/forumdisplay.php?f=40)

- - Как открыть файл? (https://www.imho.ws/showthread.php?t=58675)

Как открыть файл?

Здравствуйте, господа программисты. Подскажите, кто чем может...

Имеется 2 программы: одна пишет в файл, другая - соответственно - читает. Делают они это через непредсказуемые промежутки времени, и вполне вероятно, что попытаются сделать одновременно.
Можно ли каким-либо образом в "читающей" программе (у "пишущей" необъяснимо исчезли исходники последних 14-и версий) открыть файл незаметно для "писателя"?
(В качестве более чем идеального примера могу привасти FAR'овский view'ер, который не только не блокирует view'ымый файл, но и периодически обновляет его содержимое)

А на чем пишешь?

А что за файл? ИМХО потоком открывай...

Цитата:

Сообщение от ivahaev

А на чем пишешь?

На Delphi.

Цитата:

Сообщение от ivahaev

А что за файл

Обычный текстовый, с log'ами метров на 15-20...

А причем тут потоки (если я правильно понял)? Это и так 2 разных программы

Читай хелп по FileMode

2 Anthony
поток и процесс - несколько разные вещи...
Я к тому, что можно не держать файл открытым постоянно, а через промежутки времени или по флагу modify, или еще каким либо из способом потоком вытаскивать данные из файла например в другой файл или в компонент... не знаю как в дельфи (о позор мне:)) но вот в С есть fstream - файловый поток. Для текстовиков архи удобная весчь :)

Код:

iFileHandle := FileOpen(LName, fmShareDenyNone);

и т.д. по тексту хелпа... Работает.

А не намекнет ли кто-нибудь, как средствами SysUtils сотворить что-то подобное ReadLN?

Anthony, вот вариант из DelphiWorld

Цитата:

Даже если файл открыт с низкими привелегиями (используя ReadOnly, ShareReadWrite) , иногда открытие уже открытого файла может приводить к ошибкам, особенно, если это файл интенсивно используется другим приложением. Самый простой способ решить эту проблемму - это использовать MemoryStream вместо непосредственного доступа к файлу:

Код:

var

  Memory: TMemoryStream;

begin

  Memory := TMemoryStream.Create;

  try

    Memory.LoadFromFile('DelphiWorld.dat'); // это он!!

    ...

    Memory.read(...); // Вы можете использовать методы чтения как у файлов

    Memory.Seek(...);

    FileSize := Memory.Size;

    ...

  finally

    Memory.Free;

  end;

end;

Данный способ никогда не открывает файл, а заместо этого создаёт копию его в памяти. Конечно Вы можете и записать в поток (Stream) в Памяти(Memory), но изменения не будут записаны на диск до тех пор, пока Вы не запишете их в файл (командой SaveToFile).

Цитата:

Memory.LoadFromFile('DelphiWorld.dat');

А вот так-вот я пробовал и Delphi все равно ругалась на то, что файл занят другим процессом:(