Hi, I'm using TFileStream to save files. It works without issues when writing to my filesystem, but hangs (does not return) when the path is a mounted NFS one.

I must add the user has write permissions on the mounted path, in fact before posting this I've tried creating a text file without using TFileStream and it worked without an issue, so I assume the problem is with TFileStream:

     // This works:
     AssignFile(f, '/mnt/data_vultr/documents/test.txt');
     {$I-}
     Rewrite(f);
     {$I+}
     if IOResult =0 then
     begin
       System.WriteLn(f, 'aaaa');
       System.WriteLn(f, 'bbb');
     end;
     System.Close(f);
     // this doesn't work
     lFileStream := TFileStream.Create(lFile, fmCreate);
     AMemStream.Position := 0;
     lFileStream.CopyFrom(AMemStream,AMemStream.Size);

The program is a CGI running on Ubuntu Server 14.04 x64. Lazarus 1.7 compiled from trunk on 2016-05-13 (SVN 52282M) FPC 3.1.1

Regards,

An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20160804/2b758c1d/attachment.html>

Hi This is almost issue of mine: http://mantis.freepascal.org/view.php?id=30135 Closed as wont fix.

No, NFS returns normal file size information.
I work with Lazarus on NFS without problem.

Mattias

Try
lFileStream := TFileStream.Create(lFile, fmCreate or fmShareDenyNone);

NFS often does not support locking.

AMemStream.Position := 0; lFileStream.CopyFrom(AMemStream,AMemStream.Size);

Mattias

I'll try that, meanwhile it worked using this:

       var lBinaryFile: file;
       ...
       lFile := '/path/to/mounted/nfs/file.bin';
       AssignFile(lBinaryFile, lFile);
       {$I-}
       Rewrite(lBinaryFile);
       {$I+}
       if IOResult = 0 then
       begin
         BlockWrite(lBinaryFile, AMemStream.Memory, AMemStream.Size);
         System.Close(lBinaryFile);
       end;

Regards,