delphi中间件

2012年1月11日

摘要： 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) 编辑

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) 编辑

2011年10月10日

SimpleObjectBroker

摘要：首先要设SimpleObjectBroker的loadBalanced的属性为True，并保证所有的应用服器已向SimpleObjectBroker注册，当客户端应用程序查觉原来的应用服器出现故障后立刻调用TSimpleObjectBroker的SetConnectedStatus(False)通知TSimpleObjectBroker应用服务器发生故障，然后调用GetComputerForProgID要求TSimpleObjectBroker查找另外一台提供相同服务的应用程序服务器给客户端应用程序只要把XXXConnection的ObjectBroker属性设为某个SimpleObjectB 阅读全文

posted @ 2011-10-10 21:18 delphi中间件阅读(951) 评论(0) 推荐(0) 编辑

2011年10月5日

ParamsToVariant and VariantToParams

摘要： function ParamsToVariant(Params: TParams; Macro, Compatible: Boolean): Variant;var I: Integer; Tmp: Variant;begin if (Params.Count = 0) then Result := Null else begin Result := VarArrayCreate([0, Params.Count - 1], varVariant); for I := 0 to Params.Count - 1 do with Params[I] do begin if Compatible 阅读全文

posted @ 2011-10-05 22:16 delphi中间件阅读(219) 评论(0) 推荐(0) 编辑

2011年10月1日

rtti多国语言

摘要： procedure TBaseForm.SetControlCaptions(Container: TWinControl);var I: Integer; sCaption, sNewCaption, sLanguage: string; T: TRttiType; P: TRttiProperty;begin if AppConfig.Language = lgOrigal then Exit; T := TRttiContext.Create.GetType(Container.ClassInfo); P := T.GetProperty('Caption'); if P 阅读全文

posted @ 2011-10-01 21:59 delphi中间件阅读(265) 评论(0) 推荐(0) 编辑

QQ:254072148；中间件QQ群：92449782；有源码的中间件才放心，有配套CS\BS\APP开发框架的才是好中间件