请问一个服务器普通的方法的代码

Question

在服务器添加一个方法GetData([in] BSTR str, [out] VARIANT * data, [out] short * succ );
当客户端传个sql语句给服务器像这样,下面是客户端的代码
var
  data:OleVariant;
  succ:integer;
begin
dm.SocketCon.AppServer.getdata('select * from t1',data,succ);
if succ=1 then
  dm.CDS_dept.Data:=data;
end;
在服务器这个getdata这个方法的代码要怎么写

Answer 1

procedure TRemoteDM.GetData(....);
begin
  try
  // 假定用 ADOQuery 组件,可以是静态创建或动态创建
    with ADataSetProvider.DataSet as TADOQuery do
    begin
      Close;
      SQL.Text:=str;
      Open;
    end;
    Data:=ADataSetProvider.Data;
    succ:=True;
  except
    succ:=False;
  end;
end;