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在CODE上查看代码片派生到我的代码片

  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在CODE上查看代码片派生到我的代码片

  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;  


转载于:https://my.oschina.net/u/2343604/blog/481013

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值