1

我需要使用 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;
4

2 回答 2

2

发送代码可以简化为 

  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 和 TidTCPClient 传输记录时发现只有传输方向相反）

于 2012-12-03T09:24:59.880 回答
1

直接发送流并保存正在制作的字节的另一个副本。特别是在您的示例中 - 删除提到 WriteBuffer 的 3 行代码。

根据流的大小和并发客户端的数量，您可能会通过使用您并不真正需要的大型缓冲副本来破坏内存管理器。您对大传输的目标是限制某些东西必须处理整个流的次数。

于 2012-12-02T16:39:18.540 回答