我正在使用 TIdHTTPServer 创建一个简单的 Indy 网络服务器。在几乎所有请求中，服务器都需要与数据库进行通信（通过 TAdoConnection）。看到数据库连接在资源方面有点贵，想创建一个池化机制来复用连接；而不是在每个请求上建立连接。
我没有成功搜索示例。 Embarcadero 论坛上的This Link 建议对 TIdSchedulerOfThreadPool 和 TIdThreadWithTask 的后代进行子分类。但我仍然无法将它们全部组合在一起。
我是否需要重写 TIdSchedulerOfThreadPool.NewThread 方法并让它返回我的子类 TIdThreadWithTask 对象，而该对象又会有它自己的 TAdoConnection强> 对象？
有人有例子吗？我应该不用担心这个，只需在每个请求上打开数据库连接吗？
【问题讨论】：
标签： delphi connection-pooling indy
你为什么不自己管理游泳池？
您有一个连接列表。它开始是空的。每次请求到来时，您都会查找可用连接（处于活动状态但未使用的连接）。如果没有找到，则创建一个并将其放入列表中，因为不可用。请求结束后，您将连接设置为可用。
去过那里，做到了，一点也不后悔！几个关注点：
【讨论】：
您还必须确保在每个线程中正确设置 COM，并调用该对：CoInitialize/CoUnitialize
以下是要包含在您的项目中的示例单元。在您的 HTTP 服务器构造函数中，只需创建您的自定义调度程序，Indy 将使用它而不是默认值。
如果您这样做，那么每个客户端线程都将针对 COM 正确初始化，您还可以添加其他将由所有客户端线程共享的项目。
我还为每个连接创建了一个自定义的 TIdServerContext 后代（并在 HTTP Server 构造函数中设置了 ContextClass 属性。）不同类型的服务器有不同的 TIdServerContext 后代，但它们都使用 TsoIndyCOMEnabledSchedulerOfThread 基线程类，因为它们都这样做某种COM。
我不会将 ADO 连接放入线程中，而是放入上下文中……尤其是如果您将其进一步放入线程池中。
unit ExampleStackOverflow;
interface
uses
SysUtils, Classes,
ActiveX,
IdThread, IdSchedulerOfThreadDefault;
type
//Meant to be used with a custom TIdSchedulerOfThreadDefault descendant
//to ensure COM support on child threads.
TsoIndyComThreadWithTask = class(TIdThreadWithTask)
protected
//Ensure COM is setup before client connection/thread work
procedure BeforeExecute; override;
//Graceful COM cleanup on client connection/thread
procedure AfterExecute; override;
end;
TsoIndyCOMEnabledSchedulerOfThread = class(TIdSchedulerOfThreadDefault)
public
constructor Create(AOwner:TComponent); reintroduce;
end;
implementation
procedure TsoIndyComThreadWithTask.BeforeExecute;
begin
CoInitialize(nil);
inherited;
end;
procedure TsoIndyComThreadWithTask.AfterExecute;
begin
inherited;
CoUninitialize();
end;
constructor TsoIndyCOMEnabledSchedulerOfThread.Create(AOwner:TComponent);
begin
inherited;
//the whole reason for overriding default scheduler of thread is to setup COM
//on client threads
ThreadClass := TsoIndyComThreadWithTask;
Name := Name + 'COMEnabledScheduler';
end;
【讨论】：