Delphi2010开发DataSnap服务器（一）

今天简单的研究了一下Delphi开发DataSnap服务器，以下是简单的例子，各位见笑了。
第一步创建一个DataSnap Server

这里选择默认

选择好了以后这里生成3个文件，我将这3个文件重新命名。

来到TServerMethods这个文件里面的代码页，我们添加一个方法
GetMessage。
function TServerMethods.GetMessage(User: string): string;
begin
Result:=’我是用户：’+User+’ 谢谢你的关临！’;
end;
然后启动服务端程序。

然后我们在创建一个Vcl客户端程序。
放一个TSQLConnection控件
Driver选择Datasnap
HostName我们输入当前电脑的IP地址。
Port端口我们输入服务端DSTCPServerTransport的端口，默认是211
客户端这边的SQLConnection打开Connected
右键Generate DataSnap client classes自动生成服务端的Delphi文件。

我这里将文件命名为DSClient.pas，我们会看到刚刚服务端的写的方法过程在这里显示出来了。

procedure TfrmMain.btn2Click(Sender: TObject);
begin
if not SQLConnection.Connected then
begin
Application.MessageBox(‘客户端没有启动！’,’提示’,MB_OK+MB_ICONINFORMATION);
Exit;
end;
with TServerMethodsClient.Create(SQLConnection.DBXConnection) do
begin
ed_InFo.Text:=GetMessage(‘Admin’);
Free;
end;
end;
这个是调用的方法，这样基本就OK了。