随笔分类 -  midas中间层

midas中间层的完整实现
摘要:unit AdoconnectPool;interfaceuses Classes, Windows, SysUtils, ADODB, IniFiles, forms;type TADOConnectionPool = class(TObject) private FObjList:TThreadList; FTimeout: Integer; FMaxCount: Integer; FSemaphore: Cardinal; function CreateNewInstance(List:TList): TADOConnection; function GetLock(List:TList 阅读全文
posted @ 2012-01-11 22:35 delphi中间件 阅读(1686) 评论(1) 推荐(0) 编辑

点击右上角即可分享
微信分享提示