TIdTCPClient 连接池

Question

我想使用TIdTCPClient 从使用 Delphi 和 TWebModule 制作的 Web 服务器应用程序连接到 Redis。

目前在创建 WebModule 时，我创建了一个新的 TIdTCPClient 并连接到 Redis，例如：

procedure TWebService.WebModuleCreate(Sender: TObject);-
begin
    FClient := TIdTCPClient.Create();
    FClient.Connect('REDIS_HOST', 6379);
end;

在 web 模块销毁时，我断开连接并释放资源，例如：

procedure TWebService.WebModuleDestroy(Sender: TObject);
begin
   FClient.Disconnect;
   FClient.Free;
end;

一切正常...但是这样我会在每个新请求上创建一个新连接，并且经过很长时间后，TIME_WAIT 套接字的数量会越来越多。

我想实现一个全局连接池，它始终打开固定数量的连接（例如：50），并且只使用这些连接池。

Indy 有什么东西可以管理 TCP 连接池吗？

Answer 1

不，Indy 不提供任何用于池化 TCP 连接的功能。您必须在自己的代码中实现自己的 TIdTCPClient 对象池。