文档章节

FIREDAC连接池配置

dillonxiao
 dillonxiao
发布于 2015/07/21 08:14
字数 164
阅读 1643
收藏 0

以下在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;  


本文转载自:

dillonxiao
粉丝 5
博文 83
码字总数 704
作品 0
盐城
高级程序员
私信 提问
数据库 性能对比

Insertion speedHere we insert 5,000 rows of data, with diverse scenarios: 'Direct' stands for a individual Client.Add() insertion;'Batch' mode will be described below;'Trans' in......

vga
2016/06/14
139
1
TClientDataSet的使用以及遇到的坑

在Delphi未加入之前,似乎是没有内存表控件的(也许有,可能我不知道吧),但是可以用控件来做内存表使用,即使有了可以使用,我还是觉得更好用一些。 做内存表使用 创建 排序 在定义字段后,...

业余码农
01/12
0
0
Delphi 10.1 Berlin 发布

Delphi 10.1 Berlin 发布了,Delphi是一个集成开发环境(IDE),使用的核心是由传统Pascal语言发展而来的Object Pascal语言,通过图形用户界面(Graphical User Interface,简称GUI)作为开发...

局长
2016/08/25
5.4K
56
领域驱动设计(DDD)框架--Synopse mORMot framework

Synopse mORMot framework, 原名Synopse SQLite3 Framework 。是一个Client-Server ORM和SOA框架,适用Delphi6到XE4,Win32或Win64. 可以创建从独立方案到复杂的领域驱动设计: 表示层 MVC ...

炽火
2013/12/03
4K
3
Tomcat7配置数据库连接池

在glassfish配置了数据库连接池,之后又想在tomcat7下配置mysql的,琢磨了2个小时遇到点挫折总算弄好了 经验分享如下: 一、首先配置连接池 1、tomcat下配置连接池在conf/server.xml中的Glo...

chenlinben
2013/09/17
0
0

没有更多内容

加载失败,请刷新页面

加载更多

OSChina 周二乱弹 —— 吾不好梦中插人

Osc乱弹歌单(2019)请戳(这里) 【今日歌曲】 @鱼豆腐233 :#今日歌曲分享# 分享My Chemical Romance的单曲《I Don't Love You》: 《I Don't Love You》- My Chemical Romance 手机党少年们...

小小编辑
今天
260
12
ss5 vpn 安装(linux版本)

1. 创建一个文件夹 /ss5 你也可以自定义,不过后续的地方需要注意自己的地址 2. 下载ss5文件(如果你的服务器没有安装wget请使用 yum -y install wget 命令安装 如果连yum都没安装自己查去)(下...

太黑_thj
今天
2
0
八、RabbitMQ的集群原理

集群架构 写在前面 RabbitMQ集群是按照低延迟环境设计的,千万不要跨越WAN或者互联网来搭建RabbitMQ集群。如果一定要在高延迟环境下使用RabbitMQ集群,可以参考使用Shovel和Federation工具。...

XuePeng77
今天
7
0
mac系统下,brew 安装mysql,用终端可以连接,navicat却连接不上?

问题: 1.报错? 2059 - Authentication plugin 'caching_sha2_password' cannot be loaded: dlopen(../Frameworks/caching_sha2_password.so, 2): image not found 2.自己通过设置,已经把密......

写bug的攻城狮
昨天
3
0
老生常谈,HashMap的死循环

问题 最近的几次面试中,我都问了是否了解HashMap在并发使用时可能发生死循环,导致cpu100%,结果让我很意外,都表示不知道有这样的问题,让我意外的是面试者的工作年限都不短。 由于HashMap...

群星纪元
昨天
8
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部