摘要:
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中间件
阅读(520)
评论(0)
推荐(0)