delphi – fmShareDenyWrite模式似乎不起作用

发布时间：2020-12-15 04:14:53 所属栏目：大数据来源：网络整理

导读：我正在使用TFileSteam打开日志文件.我希望能够从其他进程读取此日志文件.我认为fmShareDenyWrite模式允许这样做. 但是,如果我尝试从其他进程打开该文件,我会收到错误.例如,如果我尝试从命令行键入文件,我会得到“进程无法访问该文件,因为它正被另一个进程使

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

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

这是文件初始化代码：

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

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

解决方法

不知道这是否已经是D6中的一个错误,但这是一个明显的可能性.针对D2007：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类型的局部变量.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!