delphi中间件

2012年2月11日

摘要： 1.连接SQL SERVER数据库procedure TForm1.Button1Click(Sender: TObject);var p: TSQLConnection;begin try p := TSQLConnection.Create(nil); try p.ConnectionName := 'MSSQLConnection'; p.DriverName := 'MSSQL'; p.GetDriverFunc := 'getSQLDriverMSSQL'; p.KeepConnection := true; p.LoginPrompt 阅读全文

posted @ 2012-02-11 22:10 delphi中间件阅读(3440) 评论(0) 推荐(0)

datasnap对象池

摘要： {之前说到中间层通过向客户端暴露方法的方式提供服务，实现数据库数据的读取和更新。方法调用的方式，其潜在的意义，就是说中间层不保存客户端状态信息，就像WEB服务一样，客户端需要自己保存自己的状态信息。进一步说，就是中间层具体提供方法的业务对象实例，不是也不应该专属于某个客户端，它应该能够为不同的客户端调用提供服务。如果我们把业务对象实例放到对象池中集中存放，调用方法时随用随取，方法结束即放回池中。这样就可以实现业务对象实例服务于不同的客户端调用请求。更重要的是，利用对象池，能够最大化服务器各种资源的使用效率，而且对客户端的响应也更快了，因为业务对象实例早就创建好了，取来即用。其实，DataSna 阅读全文

posted @ 2012-02-11 22:09 delphi中间件阅读(1847) 评论(0) 推荐(0)

rtti

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

posted @ 2012-02-11 22:04 delphi中间件阅读(564) 评论(0) 推荐(0)

xe 心跳

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

posted @ 2012-02-11 22:03 delphi中间件阅读(876) 评论(0) 推荐(0)

SqlQuery池

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

posted @ 2012-02-11 22:00 delphi中间件阅读(1112) 评论(0) 推荐(0)

SqlStoredProc池

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

posted @ 2012-02-11 21:59 delphi中间件阅读(873) 评论(0) 推荐(0)

2012年2月10日

json序列化对象

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

posted @ 2012-02-10 19:25 delphi中间件阅读(2997) 评论(1) 推荐(0)

2012年1月15日

我的插件框架运行效果图

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

posted @ 2012-01-15 18:09 delphi中间件阅读(2501) 评论(2) 推荐(2)

我的MIDAS中间层服务器运行效果图

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

posted @ 2012-01-15 17:28 delphi中间件阅读(1235) 评论(0) 推荐(0)

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中间件阅读(1334) 评论(0) 推荐(0)

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