关于DataSnap 的一个问题？

Question

服务端定义一个方法返回值的function GetValue(const SQLStr:string):variant;    SQLDataSet1.commandText:=SQLStr;
    SQLDataSet1.Open;
   result:=SQLDataSet1.fieldvalues[0];客户端直接调用这个方法

Answer 1

服务端写好后，运行服务端程序。
客户端放一个SQLConnection 右键点击,点"Generate DataSnap Client Classes"，就会产生一个客户端用的服务端代理类看看DataSnap的演示教程

Answer 2

要在服务器中，定义一个方法，该方法使用参数SQLStr，返回值（数据集、字符串、OleVariant）
参考代码：
function TTServer.DataSetProvider1DataRequest(Sender: TObject;
  Input: OleVariant): OleVariant;
begin
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text:=Input;
  ADOQuery1.open;
end;