DataSnap到了Delphi2010有了很大的变化,已经可以完全抛弃DCOM之类的东西了,在以前版本中建立一个DataSnap,需要使用DCOMConnection或者SockConnection来连接到服务器,而在Delphi2010中提供了一个新的连接组件:TDSProviderConnection,可以更方便地来连接服务器.
先来学习一个简单的DataSnap:
新建一个工程,在Delphi Project中选择DataSnap Server组,然后选择其中的DataSnap Server,点击确定,然后选择缺省设置即可.系统会生成一个工程框架.其实现在你什么代码都不用写,就已经建立好了一个DataSnap的服务器,那么这个服务器可以提供什么呢?它输出了一个类,这个类只有一个方法:
function EchoString(Value: string): string;
我们来测试一下这个服务器,建立一个普通的VCL From Application,然后在窗体中放入下面控件:
一个TSQLConnection,设置其Driver为DataSnap,并且Connected置为True.因为在本机测试,所以其他参数都不需要更改.(当然,需要先运行刚才建立的服务另,要不然会报告错误)
一个TSqlServerMethod,将其SQLConnection属性设为刚才的SQLConnection,然后在ServerMethodName属性中可以选择TServerMethods1.EchoString.这时你选择Params属性,会出现两个参数:Value和ReturnParameter,前者是方法EchoString传人的参数,后者是EchoString输出的值.
OK,到这里一切都设定好了,我们一句代码都没有编写,太说不过去了,还是放个按钮,然后在里面写下这几句代码吧:
SqlServerMethod1.ParamByName('Value').AsString:='Hello,Garfield !';
SqlServerMethod1.ExecuteMethod;
ShowMessage(SqlServerMethod1.ParamByName('ReturnParameter').AsString);
运行一下客户端,可以看到一个对话框,里面显示信息:Hello,Garfield !