fireDac连接池使用

Params := TStringList.Create;
try
	Params.Clear;
	Params.Add('Server=' + Server);
	Params.Add('Port=' + Port);
	Params.Add('Database=' + Database);
	Params.Add('CharacterSet=utf8');
	Params.Add('User_Name=' + User_Name);
	Params.Add('Password=' + Password);
	Params.Add('Pooled=true');
	Params.Add('POOL_MaximumItems=1000');
	Params.Add('POOL_CleanupTimeout=60000');
	// 线程不用后过多少时间清除单位毫秒
	Params.Add('POOL_ExpireTimeout=10000');
	FDMainManager.AddConnectionDef('', 'MSSQL', Params);
finally
	Params.Free;
end;