2012年1月11日
COM类型库---COM接口定义
摘要： 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中间件 阅读(1322) 评论(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中间件 阅读(894) 评论(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中间件 阅读(770) 评论(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中间件 阅读(977) 评论(0) 推荐(0) 编辑
COM线程池
摘要： // 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中间件 阅读(934) 评论(0) 推荐(0) 编辑
ADOStoredProc对象池
摘要： 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) 编辑
DatasetProvider对象池
摘要： 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) 编辑
ADOQuery数据集对象池
摘要： 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中间件 阅读(783) 评论(0) 推荐(0) 编辑
ADOConnection数据库连接池
摘要： 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中间件 阅读(1684) 评论(1) 推荐(0) 编辑