如何建立DBX连接代码池？(How do I set up DBX connection pooli

我有德尔福XE专业。 它配备了相当数量的DBX的东西，包括DBXPool包含池支持的连接单元，但它不具有完整的DBX支持进来XE企业。 特别是，很多设计时支持的是不存在的。

我并不特别介意。 直到我需要连接池我已经能够做到所有我需要的东西，没有它，上涨。 现在，我想要得到那个工作，我不能完全弄清楚如何使它发挥作用。 我可以添加DBXPool到我的程序，并验证它初始化，但后来当我开始做数据库请求， TDBXPoolConnection.Create不会被调用。

下面是连接，在BeforeConnect事件处理我的设置代码。 任何人都知道我在做什么错误，以及如何得到它的权利？

procedure TMyDataModule.connectionBeforeConnect(Sender: TObject);
begin
   connection.DriverName := 'Firebird';
   connection.Params.Values['User_Name'] := FUserName;
   connection.Params.Values['Password'] := FPassword;
   connection.Params.Values['Database'] := FDatabasePath;
   connection.Params.Values['ServerCharSet'] := 'UTF8';
   connection.Params.values['DelegateName'] := 'DBXPool';
   connection.Params.values['DelegateConnection.MaxConnections'] := '32';
end;

编辑：如果有人遇到这在未来有同样的问题，这里就是我不得不将它设置为使其工作的权利。 相反，上面的最后两行，

connection.Params.values['DelegateConnection'] := 'DBXPoolConnection';
connection.Params.values['DBXPoolConnection.DriverName'] := 'DBXPool';
connection.Params.values['DBXPoolConnection.MaxConnections'] := '32';

由于Sertac为把我在正确的道路！

Answer 1:

您需要设置DBXPoolConnection到DelegateConnection参数。

请参阅： 连接池 。

文章来源: How do I set up DBX connection pooling in code?