delphi FireDAC的数据连接池

FireDAC的数据连接池

之前就想搞个数据连接池，结果太麻烦就放弃了，不想却在TFDConnection中看到了Pooled属性，就一路挖了下来，还真就是那么回事！

TFDManager

之前只知道，放上TFDManager控件后，什么都不用做，就可以在别的单元引用该单元后直接连接到TFDConnection控件了；现在，数据连接池还是要通过TFDManager来实现。

设置数据连接池参数

//指定动态库

FDPhysMySQLDriverLink.VendorLib := 'libmysql.dll';

//设置连接参数

with FDManager.ConnectionDefs.AddConnectionDef do

begin

  Name := 'MySQL_Conn';

  Params.DriverID := 'MySQL';

  Params.Add('CharacterSet=csUtf8mb4');

  Params.Add('Server=127.0.0.1');

  Params.Add('Port=3306');

  Params.Database := 'test';

  Params.UserName := 'root';

  Params.Password := '123456';

  Params.PoolMaximumItems := 10;

  Params.Pooled := True;

end;

以上是以MySQL为例，其它数据库参照即可。

打开连接池

FDManager.Open;

获取连接

FDConnection.ConnectionDefName := 'MySQL_Conn';

FDConnection.Connected := True;

归还连接

FDConnection直接放到窗体上，或动态创建，写上如下代码即可，无需在设计器里设置任何东西。

FDConnection.Connected := False;

关闭连接池

FDManager.Close;

来源：https://my.oschina.net/afrusrsc/blog/4486089