5

我正在尝试使用 TFilestream 写入网络共享（本地）。如果网络连接不中断，一切正常。

但是，如果我拉网线然后重新连接它，由于访问限制，后续打开文件流的尝试会失败。我什至无法删除资源管理器中的文件！似乎 TFilestream 锁定了文件，解决此问题的唯一方法是重新启动。

在我的应用程序中，我在写入文件的整个过程中保持文件打开（它是每秒写入一次的日志文件）。

我失败的代码如下：

procedure TFileLogger.SetLogFilename(const Value: String);
var line : String;
Created : Boolean;
begin
  if not DirectoryExists(ExtractFilePath(Value)) then //create the dir if it doesnt exist
  begin
       try
         ForceDirectories(ExtractFilePath(Value));
       except
         ErrorMessage(Value); //dont have access to the dir so flag an error
         Exit;
       end;
  end;
  if Value <> FLogFilename then //Either create or open existing
  begin
      Created := False;          
      if Assigned(FStream) then
         FreeandNil(FStream);
      if not FileExists(Value) then   //create the file and write header
      begin
           //now create a new file
           try
              FStream := TFileStream.Create(Value,fmCreate);
              Created := True;
           finally
             FreeAndNil(FStream);
           end;
           if not Created then //an issue with creating the file
           begin
                ErrorMessage(Value);
                Exit;
           end;
           FLogFilename := Value;
           //now open file for writing
           FStream := TFileStream.Create(FLogFilename,fmOpenWrite or fmShareDenyWrite);
           try
              line := FHeader + #13#10;
              FStream.Seek(0,soFromEnd);
              FStream.Write(Line[1], length(Line));
              FSuppress := False;
           except
              ErrorMessage(Value);  
           end;
      end else begin //just open it
           FLogFilename := Value;
           //now open file for writing
           FStream := TFileStream.Create(FLogFilename,fmOpenWrite or fmShareDenyWrite); //This line fails if the network is lost and then reconnected
      end;
  end;
end;

如果有人有任何建议，将不胜感激。

4

2 回答 2

7

尝试使用Network Share API关闭文件，即NetFileEnum和NetFileClose函数。另请参阅相关问题

于 2012-08-23T04:52:18.450 回答
0

我做类似的事情，但不要使用TFileStream. 我使用来自SysUtils. 这基本上是我所做的，适合您的情况：

// variables used in pseudo-code below
var
  fHandle, bytesWriten: Integer;
  Value: string;
  • 使用 . 打开输出文件fHandle := FileOpen('filename', fmOpenReadWrite or ...)。
  • 验证 is fHandle > -1，如果不是，则 sleep 并循环。
  • 写输出bytesWritten := FileWrite(fHandle, Value, Length(Value));。
  • 检查bytesWritten，他们应该= Length(Value)。
  • 如果bytesWritten是0，您就知道文件句柄丢失了。我try ... finally在所有代码周围放置了一个块并执行if fHandle > -1 then try FileClose(fHandle); except end;，以便它强制系统释放文件句柄，即使该文件不再可访问。
  • 如果bytesWritten是0，则睡眠几秒钟，然后重试。

在添加代码之前，我似乎遇到了与您描述的类似的问题：

if fHandle > -1 then
  try
    FileClose(fHandle);
  except
  end;

我使用这种方法将千兆字节文件复制到远程（慢速）网络共享，并且网络共享在复制过程中丢失了几次。一旦网络共享再次可用，我就可以恢复复制。你应该能够对你的日志文件做类似的事情......

于 2012-08-23T05:23:37.817 回答