随笔分类 - delphi datasnap 中间件
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:
阅读全文
摘要: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
阅读全文