delphi - 使用 Indy 提高传输速度

Question

我需要使用 INDY10 组件将许多文件从一个 tcp indy 服务器传输到客户端。有没有办法通过为 TCP 客户端或服务器通信设置任何参数来提高传输速度。

文件大小:~ 10 MBYte .... 50 Mybte

文件大小是否有限制，我的电脑使用的是 WIN 7 x64 和 32 GBYTE RAM 我们的网络是 LAN.100 其他位置 LAN 已经改进为 GIGABIT LAN

  function SendStream(AContext: TIdContext; AStream: TStream): Boolean; overload;
  var
    StreamSize: LongInt;
  begin
    try
      Result := True;
      try
        StreamSize := (AStream.Size);

        // AStream.Seek(0, soFromBeginning);

        AContext.Connection.IOHandler.Write(LongInt(StreamSize));
        AContext.Connection.IOHandler.WriteBufferOpen;
        AContext.Connection.IOHandler.Write(AStream, 0, False);
        AContext.Connection.IOHandler.WriteBufferFlush;
      finally
        AContext.Connection.IOHandler.WriteBufferClose;
      end;
    except
      Result := False;
    end;
  end;

Answer 1

发送代码可以简化为

  function SendStream(AContext: TIdContext; AStream: TStream): Boolean;
  begin
    Result := True;
    try
      AContext.Connection.IOHandler.Write(AStream, 0, True);
    except
      Result := False;
    end;
  end;

第三个参数使 Indy 将流大小作为 Integer 或 Int64(取决于 TIdIOHandler.LargeStream 属性的值)值写入客户端。

然后客户端可以读取流大小和流使用

// reads the stream size then reads the stream data
Client.IOHandler.ReadStream(MyStream, -1, False);

(在 Delphi TidTCPServer and TidTCPClient transferring a record 中找到，其中只有传输方向相反)