delphi广域网indy接收后保存文件为0KB

Question

      sFile := TFileStream.Create(Ftmpdir+'\'+FFileName, fmCreate); //创建待写入的 文件
      cnt := FFileSize;
      SetLength(Fdata,FileRecSize);
      if cnt >FFileSize then
      begin
        while True do
        begin
          AContext.Connection.IOHandler.ReadBytes(Fdata,FileRecSize);
          sFile.Write(Fdata,FileRecSize);
          cnt := cnt -FileRecSize;
          if cnt< FileRecSize then
            Break;
        end;
      end;
      SetLength(Fdata,cnt);
      AContext.Connection.IOHandler.ReadBytes(Fdata,cnt);
      sFile.Write(Fdata,cnt);
      sFile.Free;

Answer 1

跟踪一下代码，看看服务端接收时，Fdata里是否有数据