FIREDAC连接池配置

以下在delphi XE7下测试

[delphi] view plaincopy

1. fdphysrcldrvrlnk1: TFDPhysOracleDriverLink;  

2. fdgxwtcrsr1: TFDGUIxWaitCursor;  

3. fdphysmysqldrvrlnk1: TFDPhysMySQLDriverLink;  

[delphi] view plaincopy

1. var  

2.   adm:TFDManager;  

3.   oParams: TStrings;  

[delphi] view plaincopy

1. begin  

2.   adm:=TFDManager.Create(nil);  

3.   oParams := TStringList.Create;  

4.   try  

5.     oParams.Add('Database=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=ip)(PORT=1521))(CONNECT_DATA=(SERVER=dedicated)(SERVICE_NAME=sid)))');  

6.     oParams.Add('User_Name=dbuser');  

7.     oParams.Add('Password=dbpwd');  

8.     oParams.Add('Pooled=True');  

9.     oParams.Add('CleanupTimeout=0');  

10.     oParams.Add('ExpireTimeout=0');  

11.     oParams.Add('PoolMaximumItems=20');  

12.     adm.AddConnectionDef('Oracle_Pooled', 'Ora', oParams);  

13.     oParams.Clear;  

14.     oParams.Add('Server=ip');  

15.     oParams.Add('Port=port');  

16.     oParams.Add('Database=dbname');  

17.     oParams.Add('CharacterSet=utf8');  

18.     oParams.Add('User_Name=dbuser');  

19.     oParams.Add('Password=dbpwd');  

20.     oParams.Add('Pooled=True');  

21.     oParams.Add('PoolMaximumItems=10');  

22.     adm.AddConnectionDef('Mysql_Pooled', 'Mysql', oParams);  

23.   finally  

24.     oParams.Free;  

25.   end;  

26. end;  

[delphi] view plaincopy

1. procedure TConnectThread.Execute;  

2. var  

3.   oConn:  TFDConnection;  

4.   oQuery: TFDQuery;  

5.   i: Integer;  

6. begin  

7.   oConn  := TFDConnection.Create(nil);  

8.   oQuery := TFDQuery.Create(nil);  

9.   try  

10.     oQuery.Connection := oConn;  

11.     oConn.ConnectionDefName := 'Oracle_Pooled';  

12.     for i := 1 to 5 do begin  

13.       oQuery.SQL.Text := 'select count(1) from table';  

14.       oQuery.Open;  

15.       oConn.Close;  

16.       Synchronize(FForm.Executed);  

17.     end;  

18.   finally  

19.     oConn.Free;  

20.     oQuery.Free;  

21.   end;  

22. end;