客户端传文件流到服务器的问题

[lldelphi]

客户端建立文件流传到服务器，文件流大小就成0了；为什么 ？代码如下
客户端
服务器

[tanqth]

const BufSize = $F000; var Buffer: TBytes; ReadCount: Integer; begin if Stream.Size = -1 then // 大小未知则一直读取到没有数据为止 begin SetLength(Buffer, BufSize); repeat ReadCount := Stream.Read(Buffer[0], BufSize); if ReadCount > 0 then FS.WriteBuffer(Buffer[0], ReadCount); if ReadCount < BufSize then break; until ReadCount < BufSize; end else // 大小已知则直接复制数据 FS.CopyFrom(Stream, 0); Result := True;