2011年10月14日
简单到不能再简单的连接池
摘要： unit AdoconnectPool;interfaceuses Classes, Windows, SyncObjs, SysUtils, ADODB;type TADOConnectionPool = class(TObject) private FObjList:TThreadList; FTimeout: Integer; FMaxCount: Integer; FSemaphore: Cardinal; FConnectionString: string; function CreateNewInstance(List:TList): TADOConnection; functio 阅读全文
posted @ 2011-10-14 22:02 delphi中间件 阅读(508) 评论(0) 推荐(0) 编辑