Delphi - 在共享环境中写入/读取文件

Question

我对放置在 LAN 中的文件有一些问题:有一个 Delphi 程序(服务器)应该写入一些文件，这些文件只能由多个 Deplhi 程序(客户端)读取。 我在服务器中使用这些简单的指令进行写入(DataList 是一个 TStrings):

Stream:=TFileStream.Create(filePath,fmOpenWrite or fmShareDenyWrite);
try
 DataList.SaveToStream(Stream);
finally
 Stream.Free;
end;

客户端每 5 秒检查一次上述文件是否被修改(只需检查 FileAge)，如果发生修改，它们会按以下方式加载 DataList:

try
 Stream:=TFileStream.Create(filePath,fmOpenRead or fmShareDenyNone);
 DataList.LoadFromStream(Stream);
finally
 Stream.Free;
end;

通常情况下一切正常，但有时服务器或客户端会因为“该文件正在被其他进程使用”而引发异常。 我不明白问题出在哪里:我尝试了很多替代方案，但是只有服务器和只有一个客户端运行时也会发生这种情况。

有什么想法吗？

谢谢!

Answer 1

从设计上来说，网络文件系统是不可信的。至少，NFS(在 Linux 中)和 SMB(在 Windows 中)没有经过验证的锁定功能:并发访问并不安全。

您需要使用客户端-服务器协议(protocol)来确保共享数据的安全。您可以使用 TCP/IP、HTTP 或任何其他方式。

我建议使用真正的服务实现，例如 DataSnap、RemObjects 或我们的 Open Source mORMot .