delphiDIOCP开源项目连接池

最新推荐文章于 2025-03-21 10:30:51 发布
原创 最新推荐文章于 2025-03-21 10:30:51 发布 · 379 阅读 · 0
本文介绍了作者在使用DI/OCPP（Delphi IOCP）实现数据库连接池时遇到的问题及解决方案。在测试中，作者发现服务端连接数在并发100个线程时仅为7个，且频繁的连接关闭可能导致连接问题。经过调整，确认DI/OCPP能够应对高并发场景，连接池表现稳定。

https://git.oschina.net/ymofen/diocp-samples/tree/master/Common

转：http://www.cnblogs.com/DKSoft/archive/2013/06/09/3127886.html

今天群里有个朋友说他们医院项目采用直连数据库，高峰时期sqlserver的连接数达到7000多,于是我准备做个用diocp做个demo，服务端用连接池。白天的时候我在想，并发如果7000个。如果用diocp做三层服务器，连接池应该在100个左右。今天晚上奋斗了一晚上，准备把测试过程中碰到的问题总结一下。

所有的代码测试代码写完后，准备开始测试，配置后服务端的连接池(config\dbpool.config)

{
   "main":   
   {
     "host": ".",
     "user": "sa",
     "password": "efsa",
     "database": "EF_DATA"
   },
}
最低0.47元/天 解锁文章
az7772010
关注
delphi 数据库链接池
07-08
delphi数据连接池设置出数据并发产生数据连接中断，提高上数据查询速度
只支持Delphi7的MQTT包，且支持中文发送
09-26
网上多数的MQTT包和控件都不是在delphi7环境下运行，部分可以运行但与MQTT通信也有问题，现本人修改了一个真正支持delphi7的Mqtt包文件，内含demo和一个uShowMQTTD7.pas单元，请放心下载使用
【控件功能】我来做练习-第51课-Unidac连接池
大龙软件工作室
05-08 1285
Unidac连接池
DIOCP开源项目-测试数据库性能
06-09 243
今天群里有个朋友说他们医院项目采用直连数据库，高峰时期sqlserver的连接数达到7000多,于是我准备做个用diocp做个demo，服务端用连接池。白天的时候我在想，并发如果7000个。如果用diocp做三层服务器，连接池应该在100个左右。今天晚上奋斗了一晚上，准备把测试过程中碰到的问题总结一下。 所有的代码测试代码写完后，准备开始测试，配置后服务端的连接池(config\dbp...
Diocp学习笔记
吹口哨的兔子
03-14 1058
没有自己开发直接使用的是框架内的DEMO进行研究修改学习 使用的是通讯框架下面地址 https://download.csdn.net/download/z123191456/11021119 里面的diocp-v5-master\samples\ChatDEMO By 彩蛋 DEMO进行的学习。 ...
DELPHI使用UniDAC执行储存过程
wozengcong的专栏
12-06 5097
方法一：使用UniQuery UniQuery. SQL.Clear; UniQuery. SQL.Add (' INSERT INTO kvartal_prem.tReports (name, remark, report, dotmatrix) '); UniQuery. SQL.Add (' SELECT name, remark, report, dotmatrix from kvart
delphi dac for mysql_delphi unidac 连接mysql
weixin_33370255的博客
01-19 403
unit Unit13;interfaceusesWinapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, DBAccess, Uni,Vcl.StdCtrls, Aero...
一个可自动回收的数据库连接池
07-07
一个可自动回收的数据库连接池 发生连接错误后自动销毁当前连接 数据库重启，网络重连接无需重启动系统 使用： //读取连接池大小,数据库连接 PoolSize:=10; ConnectionString:='Provider=SQLOLEDB.1;Password=myPassword;Persist Security Info=True;User ID=sa;Initial Catalog=DBName;Data Source=myserver'; ADOConnectionPool:=TADOConnectionPool.Create(PoolSize,5); //删除空闲5分钟的数据连接 ADOConnectionPool.ConnectionString := ConnectionString;
一个好用的连接池类,用于数据库连接等方面
11-07
该连接池类,用于一些资源的连接,分成两个链,一个是在用的,一个是空闲的 关键是思想,搞好了可又用于其它的资源分配等.
diocpv5-20160303(D7测试可用).zip
02-22
DELPHI7下面可以用的DIOCP服务器，可以承载很大的连接，比IDSERVER稳定也好很多，开源最好的服务器，非常稳定，欢迎下载。目前diocp已经不再支持d7，需要修改代码，这个完美支持，而且稳定。
DIOCP 运作核心探密
疯流人物
04-25 494
再调用IocpCore.Bind将当前连接的SocketHandle绑定到IOCP端口，如果成功会调用Context的DoConnected方法，在DoConnected里面会为当前连接分配一个标识句柄（实际上是一个计数器），设置Active状态为True，添加到在线列表，然后产生OnContextConnected事件，并调用OnConnected方法（你可以在子类中在这个地方做额外的处理），Context将状态设置为连接成功状态，并请求接收数据。Send函数同样也是异步的，会立即返回。
Delphi语言的数据库连接池
最新发布
2501_91275982的博客
03-21 531
数据库连接池是为了提高数据库访问性能而设计的一种技术。通常情况下，建立和关闭数据库连接都是相对耗时的操作，尤其是在高并发的情况下，频繁地建立连接可能会导致性能瓶颈。连接池通过维护一个可重用的连接集合，允许多个用户或线程共享连接，从而显著减少建立连接的时间。数据库连接池作为一种重要的性能优化手段，在Delphi应用程序的开发中起着至关重要的作用。通过合理的实现和配置，连接池能显著提高数据库访问的性能，降低资源消耗并提升用户体验。希望本文提供的理论分析与实用示例能够帮助开发者更好地理解和运用数据库连接池技术。
Delphi中多线程下使用使用 UniDAC+MSSQL 需要注意的问题
xxhh07的专栏
12-29 1152
一般解决方法是在线程开始启用 CoInitialize(nil)，线程结束调用 CoUninitialize 。如果你使用多种数据库连接，比如三层中经常切换到MSSQL和Oracle，我们只需在判断 TUniConnection 的连接前事件 OnBeforeConnect 写下如下代码： procedure TServDBFunc.ServConnBeforeConnect(Sender: TObject); begin if (ServConn nil) and SameText(ServCon
datasnap xe连接池_DataSnap中连接池的应用
weixin_39875675的博客
12-22 190
当开发人员开始创建Delphi的DataSnap应用时很常见的数据库连接定义方式是每个数据模块建立一个连接。这样做将产生大量的数据库连接，并产生很多问题。从Delphi XE开始，EMB提供了Session管理，更容易实现控制客户端连到服务器的数据库连接。客户端应用程序不会知道这些，服务器将完成所有的事情。当我们创建一个DataSnap服务器时，最好的做法就是定义一个服务器容器(或数据模块)如Se...
Diocp学习笔记 3、服务端连接、发送、接收（以实际例子记录）（DELPHI 通讯框架）
吹口哨的兔子
03-15 1737
服务器通过TDiocpCoderTcpServer类进行创建，并设置相应值 一、创建服务 var FTcpServer: TDiocpCoderTcpServer; //声明全局变量 //创建服务 procedure TfrmServer.FormCreate(Sender: TObject); begin FUILocker := TIocpLocker.Create('界面异步操作锁...
Diocp学习笔记 4、客户端连接、发送、接收（DELPHI 通讯框架）
吹口哨的兔子
03-15 1833
客户端是通过建立 TIocpCoderRemoteContext 类对服务器进行连接操作，传输的值。以通讯传值类进行传递 1、创建连接 在全局变量处创建 var DiocpContext: TIocpCoderRemoteContext; 2、启动连接 DiocpContext.Host := '192.168.127.130'; DiocpContext.Port := 605...
Delphi数据库连接池源码
记性不好，笔记而已
05-06 6966
1.连接池基类THL_RTC_DBPool，可以在这个类基础上继承实现具体数据库的连接池 unit THighlander_rtcDatabasePool; // RTC SDK Test proyect // freeware // Font used in Delphi IDE = Fixedsys { Database parameters: Set bef
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值