fmShareDenyWrite模式似乎不起作用

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类型的局部变量.