fmShareDenyWrite 模式似乎不起作用答案

【问题标题】：fmShareDenyWrite mode doesn't appear to workfmShareDenyWrite 模式似乎不起作用
【发布时间】：2010-06-27 20:23:37
【问题描述】：

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

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

这里是文件初始化代码：

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

注意：我使用的是 Delphi 版本 6。

【问题讨论】：

其他应用打开它使用什么模式？

标签： delphi delphi-2009 delphi-2007

【解决方案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) 构造函数（有两个重载的构造函数）并自己处理模式参数。从原始构造函数中复制代码并更改

  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 类型的本地变量。

【讨论】：

那个QC条目也提供了解决方案。

【解决方案2】：

mfCreate 模式无法与任何共享属性一起正常运行/工作。要解决此问题，您必须自己创建文件句柄并将其传递给构造函数

欢呼

【讨论】：