摘要: unit MidServer_TLB;// ************************************************************************ //// WARNING // ------- // The types declared in this file were generated from data read from a // Type Library. If this type library is explicitly or indirectly (via // another type library referring to t 阅读全文
posted @ 2012-01-11 23:10 delphi中间件 阅读(1324) 评论(0) 推荐(0) 编辑
摘要: unit uMain;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, TlHelp32, ExtCtrls, DB, DBClient, Grids, DBGrids, ADODB, Provider, AppEvnts;type TForm1 = class(TForm) DataSource1: TDataSource; DBGrid1: TDBGrid; QryPooling: TADOQuery; DataSetProv 阅读全文
posted @ 2012-01-11 23:07 delphi中间件 阅读(794) 评论(0) 推荐(0) 编辑
摘要: unit uDM;interface{$WARN SYMBOL_PLATFORM OFF}uses SysUtils, Classes, Controls,DB, DBClient, MConnect, SConnect, Dialogs, Variants, ADODB, IniFiles, Forms, MidServer_TLB, uFun;type TSvrRec = record // socketConnection's property Address: string; Port: Integer; ServerName: string; end; Tdm = class 阅读全文
posted @ 2012-01-11 22:56 delphi中间件 阅读(895) 评论(0) 推荐(0) 编辑
摘要: unit uFun;interfaceuses SysUtils, Variants, db, adodb, Classes, EncdDecd;function ParametersToVariant(par:TParameters): OleVariant;procedure VariantToParameters(input:OleVariant;par:TParameters);function ParamsToVariant(par:TParams): OleVariant;procedure VariantToParams(input:OleVariant;par:TParams) 阅读全文
posted @ 2012-01-11 22:46 delphi中间件 阅读(771) 评论(0) 推荐(0) 编辑
摘要: unit uTestSvr;{$WARN SYMBOL_PLATFORM OFF}interfaceuses Windows, Messages, SysUtils, Classes, ComServ, ComObj, VCLCom, DataBkr, DBClient, MidServer_TLB, StdVcl, DB, ADODB, Provider, Variants, Forms, ThreadComLib;type TsvrDM = class(TRemoteDataModule, ITest) private { Private declarations } function G 阅读全文
posted @ 2012-01-11 22:44 delphi中间件 阅读(980) 评论(0) 推荐(0) 编辑
摘要: // TThreadedClassFactory.Create (ComServer, TsvrDM, CLASS_Test, // create com thread pooling// ciMultiInstance);unit ThreadComLib;{$IFDEF VER100}{$DEFINE D3}{$ENDIF}interfaceuses Windows, ActiveX, Classes, ComObj, Controls, ExtCtrls, Grids, Variants, VCLCom, forms ;{ General COM threading types }typ 阅读全文
posted @ 2012-01-11 22:42 delphi中间件 阅读(938) 评论(0) 推荐(0) 编辑
摘要: unit ProcPool;interfaceuses Classes, Windows, SysUtils, ADODB, forms;type TProcPool = class(TObject) private FObjList:TThreadList; FTimeout: Integer; FMaxCount: Integer; FSemaphore: Cardinal; function CreateNewInstance(List:TList): TADOStoredProc; function GetLock(List:TList;Index: Integer): Boolean 阅读全文
posted @ 2012-01-11 22:39 delphi中间件 阅读(659) 评论(0) 推荐(0) 编辑
摘要: unit DSPPool;interfaceuses Classes, Windows, SysUtils, Provider, forms;type TDSPPool = class(TObject) private FObjList:TThreadList; FTimeout: Integer; FMaxCount: Integer; FSemaphore: Cardinal; function CreateNewInstance(List:TList): TDatasetProvider; function GetLock(List:TList;Index: Integer): Bool 阅读全文
posted @ 2012-01-11 22:38 delphi中间件 阅读(1025) 评论(0) 推荐(0) 编辑
摘要: unit AdoqueryPool;interfaceuses Classes, Windows, SysUtils, ADODB, forms;type TADOQueryPool = class(TObject) private FObjList:TThreadList; FTimeout: Integer; FMaxCount: Integer; FSemaphore: Cardinal; function CreateNewInstance(List:TList): TADOQuery; function GetLock(List:TList;Index: Integer): Bool 阅读全文
posted @ 2012-01-11 22:37 delphi中间件 阅读(785) 评论(0) 推荐(0) 编辑
摘要: 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中间件 阅读(1685) 评论(1) 推荐(0) 编辑