摘要：
datasnap的初步-回调函数服务器端TServerMethods1 =class(TComponent) private { Private declarations } public { Public declarations } functionTest(funcCallBack: TDBXCallback):boolean; end; functionTServerMethods1.Test(funcCallBack: TDBXCallback):boolean;begin funcCallBack.Execute(TJSONNumber.Create(2... 阅读全文
摘要：
一、为DataSnap系统服务程序添加描述这几天一直在研究Delphi2010的DataSnap，感觉功能真是很强大，现在足有理由证明Delphi7该下岗了。DataSnap有三种服务模式，其中ServiceApplication方式建立的windows服务没有描述，描述部分是空的，感觉总是欠缺点什么。现找到办法添加描述：procedureTServerContainer2.ServiceAfterInstall(Sender:TService);varreg:TRegistry;beginreg:=TRegistry.Create;trywithregdobeginRootKey:=HKEY 阅读全文