如何解决Delphi:拒绝其他进程访问文件
| 如何拒绝其他进程访问(仅写)文件?我会一直读/写文件。 我用FileOpen(\'c:\\1.txt\',fmOpenReadWrite or fmShareDenyWrite)
但是(开始将文件加载到StringList)之后出现错误
无法打开文件C:\\ 1.txt。该进程无法访问该文件,因为其他进程正在使用该文件。\“
只有我打开文件。
解决方法
在这里,错误消息实际上是有点误导。无法加载到字符串列表的原因是因为您已经以读写方式打开了文件。
如果您检查TStrings.LoadfromFile的实现:
procedure TStrings.LoadFromFile(const FileName: string);
var
Stream: TStream;
begin
Stream := TFileStream.Create(FileName,fmOpenRead or fmShareDenyWrite);
try
LoadFromStream(Stream);
finally
Stream.Free;
end;
end;
您会看到它尝试以\“ DenyWrite \”条件打开文件,但是您已经以写模式打开文件。这就是它失败的原因。
您可以改用LoadFromStream来解决。
procedure TForm1.Button1Click(Sender: TObject);
var
Stream: TStream;
begin
Stream := TFileStream.Create(FileName,fmOpenRead or fmShareDenyNone);
try
Stringlist.LoadFromStream(Stream);
finally
Stream.Free;
end;
end;
请注意,您将需要使用fmShareDenyNone来在这种情况下工作。再说一遍,您可能可以重用从OpenFile获得的Read / Write句柄,也许可以执行以下操作:
procedure TForm1.Button1Click(Sender: TObject);
var
Stream: TStream;
iPosition : Int64;
begin
Stream := THandleStream.Create(FHandle); //FHandle is the read/write handle returned by OpenFile
try
iPosition := Stream.Position;
Stream.Seek(0,soFromBeginning);
Stringlist.LoadFromStream(Stream);
Stream.Position := iPosition;
//Restore stream position.
finally
Stream.Free;
end;
end;
但是请注意,这些方法可能会有一些我不知道的“陷阱”。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。