delphi中间件

摘要： // Rtti调用类的方法 procedure TForm1.Button1Click(Sender: TObject);var obj: TMyClass; t: TRttiType; m1,m2: TRttiMethod; r: TValue; begin t := TRttiContext.Create.GetType(TMyClass); m1 := t.GetMethod('msg'); m2 := t.GetMethod('Add'); obj := TMyClass.Create(Self); m1.Invoke(obj, ['Delphi 阅读全文

摘要： TServerContainer = class(TDataModule) TCP_KeepAlive = record OnOff: Cardinal; KeepAliveTime: Cardinal; KeepAliveInterval: Cardinal; end;procedure TServerContainer.DSServerConnect( DSConnectEventObject: TDSConnectEventObject);var Val: TCP_KeepAlive; Ret: DWord; ClientConnection: TIdTCPConnection;begi 阅读全文

摘要： unit SqlQueryPool;interfaceuses Classes, Windows, SysUtils, forms, DB, SqlExpr, FMTBcd;type TSQLQueryPool = class(TObject) private FObjList:TThreadList; FTimeout: Integer; FMaxCount: Integer; FSemaphore: Cardinal; function CreateNewInstance(List:TList): TSQLQuery; function GetLock(List:TList;Index: 阅读全文

摘要： unit SqlStoredPool;interfaceuses Classes, Windows, SysUtils, forms, DB, SqlExpr, FMTBcd;type TSQLStoredPool = class(TObject) private FObjList:TThreadList; FTimeout: Integer; FMaxCount: Integer; FSemaphore: Cardinal; function CreateNewInstance(List:TList): TSQLStored; function GetLock(List:TList;Inde 阅读全文

摘要： //新的DATASNAP已经支持TPARAMS作为远程方法里面的参数，会自动序列TPARAMS，无需手动序列它。//在此只是记录一些JSON序列的用法，无实际意义unit uSerialize;interfaceuses System.SysUtils, Data.Win.ADODB, Data.DBXJSON, Data.DBXJSONReflect, System.Variants, Data.DB;type TSerialize = class public function Serialize(const ModuleId: string; SqlId: Integer; p: TPa 阅读全文

摘要： 支持DLL和BPL俩种格式的插件。没有使用三方控件。 阅读全文

摘要： 中间层服务对象全部作成对象池，因此中间层负载能力非常强大。所有池中的对象都是针对事件而不是某一个客户端。当一个事件执行完成，它所使用的对象会立即放回池中，以等待其它事情发生时再使用。对象只有在事件发生的那一瞬间被占用，这样对象的使用效率是很高的。 阅读全文

摘要： 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 阅读全文

摘要： 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 阅读全文

摘要： 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 阅读全文