代码之家 › 专栏 › 技术社区 › Aheho

fmShareDenyWrite模式似乎不起作用

delphi-2007 delphi-2009 delphi

Aheho · 技术社区 · 14 年前

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

以下是文件初始化代码:

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

注: 我使用的是Delphi版本6。

2 回复 | 直到 14 年前

Marjan Venema 14 年前

不知道这是否已经是D6中的一个错误,但这是一个明显的可能性。根据D2007:QC 65767: http://qc.embarcadero.com/wc/qcmain.aspx?d=65767 . 此报告现已关闭,因为它在2010年2月解决(确切地说是14.0.3467.22472)。

您可以创建自己的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));

APZ28 14 年前

mfCreate模式与任何共享属性的行为/工作不正确。要解决这个问题,您必须自己创建文件句柄并将其传递给构造函数

欢呼

推荐文章

Some1Else · 函数在Delphi中重新创建TForm

3 年前

MarkoZaaz · Delphi TwebuUpdate E2003未声明的标识符_WIN32_FIND_数据

3 年前

Agmcz · Delphi安卓库。so未安装(AAB)

3 年前

nader · 如何使用delphi在web上提交表单

6 年前

Freddie Bell · Delphi中的位补码。(翻译C#运算符)

6 年前

kwadratens · Delphi中的卡方分布函数代码

6 年前

user9672569 · 如何从确定的点向ListView的第三列添加数据?

6 年前

user9672569 · 如何在完整的位图图像中绘制阴影效果?

7 年前

mmmm · MSBuild(用于Delphi)Make-like功能

7 年前

Den · TabTip的大小和位置。Windows 10上的exe(虚拟键盘)?

7 年前