Question

我正在使用TFileSteam打开日志文件。我希望能够从其他进程读取此日志文件。我认为fmShareDenyWrite模式允许这样做。

但是，如果我尝试从其他进程打开文件，则会出错。例如，如果我尝试从命令行键入文件，我会得到“进程无法访问该文件，因为它正被另一个进程使用”。

这是文件初始化代码：

if FileExists(AutoLogFileName) then
   _ActivityLogStream := TFileStream.Create(AutoLogFileName, 
          fmOpenReadWrite or fmShareDenyWrite)
else
   _ActivityLogStream := TFileStream.Create(AutoLogFileName, 
          fmCreate or fmShareDenyWrite);

注意：我正在使用Delphi版本6。

Answer 1

不知道这是否已经是D6中的一个错误，但这是一个明显的可能性。关于针对D2007报告的QC报告：QC 65767：http://qc.embarcadero.com/wc/qcmain.aspx?d=65767。该报告现已关闭，因为它已在D2010（准确地说是14.0.3467.22472）中得到解决。

更新（由Gabr的评论提示）：

您可以创建自己的TFileStream后代，它可以使用该模式。只需覆盖Create(const AFileName: string; Mode: Word; Rights: Cardinal)构造函数（有两个重载的构造函数）并自己处理mode参数。复制原始构造函数中的代码并更改

  if Mode = fmCreate then
  begin
    inherited Create(FileCreate(AFileName, Rights));

到

  if (Mode and fmCreate = fmCreate) then
  begin
    myMode := Mode and $FF;
    if myMode = $FF then
      myMode := fmShareExclusive;
    inherited Create(FileCreate(AFileName, myMode, Rights));

其中myMode是Word类型的本地变种。

Answer 2

mfCreate模式对任何共享属性的行为都不正常。要解决此问题，您必须自己创建文件句柄并将其传递给构造函数

啦啦队

fmShareDenyWrite模式似乎不起作用

2 个答案: