随笔分类 -  delphi datasnap 中间件

上一页 1 ··· 6 7 8 9 10
delphi datasnap 中间件
摘要: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中间件 阅读(1097) 评论(0) 推荐(0) 编辑
摘要: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中间件 阅读(865) 评论(0) 推荐(0) 编辑
摘要://新的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中间件 阅读(2976) 评论(1) 推荐(0) 编辑

上一页 1 ··· 6 7 8 9 10
点击右上角即可分享
微信分享提示