delphi - 如何写入正在读取的文件？

Question

我的应用程序读取 float 的文本文件速度很慢。有时情况会发生变化，文件必须重写。一些示例代码:

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. 我的应用程序如何知道文件已被重写？

我想我可以解决第一个问题，将文件读入内存并读取它(是否有一个可以写入内存和从内存中读取的文本文件)？然后仍然是如何测试文件是否已被写入。

有人对这个问题有(优雅的)解决方案吗？

提前致谢。

在 Windows 7 上使用 Delphi XE

Answer 1

要写入同时打开以供读取的文件，写入者通常不需要执行任何特殊操作。如果打开该文件的其他人都允许写入该文件，则预期的写入者可以打开该文件进行写入、写入该文件，然后关闭它。如果其他人不允许写入该文件，那么目标写入者首先将不被允许打开该文件，并且对此无能为力。

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

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

如果读者打算在内存中保留文件的副本，那么它可能不需要费心共享写访问权限。相反，它可以打开文件并仅共享读取访问权限，在内存中创建文件的副本，然后关闭文件。然后，写入者可以打开文件，而不必担心会破坏读取器进程，因为没有什么可以破坏的。它可以通知读者某些内容发生了变化，并且读者可以重新加载整个文件或仅加载已更改的部分。 (作者必须告诉读者哪一部分发生了变化；读者如果不读取整个文件并查看它与内存副本有何不同，就没有其他方法可以检测到这一点。)

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