如何编写正在读取的文件？

Question

我的应用程序缓慢地读取浮点数的 TextFile。有时情况会发生变化，必须重写文件。一些示例代码：

procedure TAMI_Column_Selector.read_continuously (file_name: string);
var infile: TextFile;
    f: Double;
begin
   AssignFile (infile, file_name);
   Reset (infile);
   try
      while not EOF (infile) do
      begin
         Read (infile, f);
         process (f); // this may take quite some time, seconds or even minutes
      end; // while
   finally
      CloseFile (infile);
   end; // try..finally
end; // read_continuously //

我怎样才能写出一个可以读取的文件？更具体地说：

1. 我怎样才能写一个可以读取的文件？
2. 当应用程序尝试读取当时的文件时如何防止崩溃 正在编写中
3. 我的应用程序如何知道文件已被重写？

我想我可以解决第一个问题，将文件读入内存并读取（是否有可以写入内存和从内存读取的 TextFile）？然后仍然是我如何测试文件已被覆盖。

谁有这个问题的（优雅的）解决方案？

提前致谢。

在 Windows 7 上使用 Delphi XE

Answer 1

要写入一个也可以读取的文件，通常不需要编写器执行任何特殊操作。如果打开文件的其他人都允许写入文件，那么预期的写入者可以打开文件进行写入，写入文件，然后关闭它。如果其他人没有允许写入文件，那么预期的写入者首先将不被允许打开文件，并且它无能为力。

如何打开文件进行读取同时还允许写入取决于所使用的打开方法。对于CreateFile，dwDesiredAccess 参数是通常的GENERIC_READ，dwShareMode 参数是FILE_SHARE_READ or FILE_SHARE_WRITE。如果您使用的是TFileStream，那么构造函数的mode 参数应该是fmOpenWrite or fmShareDenyNone。如果你使用AssignFile 和Reset，那么你需要设置FileMode 全局变量，但是它不支持任何共享模式，所以你不能使用Pascal 风格的I/O。

读取同时写入的文件不会导致崩溃。它当然不会在操作系统级别引起问题。如果您的程序崩溃，那是因为它不是为了预测读取失败而编写的。当您读取某些内容时，请检查 API 结果以确认您读取的字节数与请求的一样多。您还可以让读写应用程序相互通信。您可以使用同步对象来序列化对文件的访问，或者写入器可能会向读取器发送信号以指示文件已更改，并且先前的读取可能不再准确。细节由您决定。

如果阅读器要在内存中保留文件的副本，那么它可能不需要共享写访问权限。相反，它可以打开文件并仅共享读取权限，在内存中复制文件，然后关闭文件。然后作者可以打开文件，而不必担心会踩踏阅读器进程，因为没有什么可以踩踏的。它可以通知读者发生了一些变化，读者可以重新加载整个文件，也可以只加载发生变化的部分。 （不过，作者必须告诉读者哪个部分发生了变化；如果不阅读整个文件并查看它与内存副本有何不同，读者就无法检测到这一点。）

防止写入干扰读取的另一种方法是使用事务。不过，Transactional NTFS 正在逐步淘汰。 Microsoft 已发布a list of alternatives，因此您可以尝试找到符合您需求的内容。