如何通过ClientDataSet向DataSetProvider传递多个参数？

问题背景 #

我在服务器端使用包含ADOConnection、ADOQuery和DataSetProvider的DataModule，在ADOQuery的SQL属性中定义了带有多个参数的查询。现需在客户端通过ClientDataSet向服务器端数据集传递多个输入参数（如Edit1.Text和Edit2.Text），目前仅掌握传递单个参数的方法，代码如下：

with ClientDataSet1 do 
begin
  Data:= DataRequest(Edit1.Text); 
  Open; 
end;

请问如何在DataRequest函数中指定多个查询输入参数？

解决方案 #

其实DataRequest的参数是Variant类型，天生支持传递多种复杂数据结构，用来打包多个参数非常方便。下面给你几种实用的实现方式：

方法1：用变体数组传递（最直接）

把多个参数塞进一个变体数组，客户端打包、服务器端解析即可：

客户端代码：

var
  Params: Variant;
begin
  // 创建包含2个元素的变体数组，索引从0开始
  Params := VarArrayCreate([0, 1], varVariant);
  Params[0] := Edit1.Text;
  Params[1] := Edit2.Text;

  with ClientDataSet1 do
  begin
    Data := DataRequest(Params);
    Open;
  end;
end;

服务器端DataSetProvider的OnDataRequest事件处理：

procedure TDataModule1.DataSetProvider1DataRequest(Sender: TObject;
  Input: OleVariant; var Output: OleVariant);
var
  ParamArray: Variant;
begin
  ParamArray := Input;
  // 给ADOQuery的参数赋值，注意要和SQL里的参数名对应
  ADOQuery1.Parameters.ParamByName('Param1').Value := ParamArray[0];
  ADOQuery1.Parameters.ParamByName('Param2').Value := ParamArray[1];
  
  ADOQuery1.Open;
  Output := ADOQuery1.Data;
end;

方法2：用命名参数传递（更清晰）

如果参数数量多，用命名的方式能避免顺序搞错，可读性更强：

客户端代码：

var
  Params: Variant;
begin
  // 用数组存储键值对：[参数名1, 参数值1, 参数名2, 参数值2]
  Params := VarArrayOf(['UserName', Edit1.Text, 'UserAge', Edit2.Text]);

  with ClientDataSet1 do
  begin
    Data := DataRequest(Params);
    Open;
  end;
end;

服务器端处理：

procedure TDataModule1.DataSetProvider1DataRequest(Sender: TObject;
  Input: OleVariant; var Output: OleVariant);
var
  i: Integer;
  ParamName, ParamValue: string;
begin
  // 步长为2遍历数组，取出每个参数的名称和值
  for i := 0 to VarArrayHighBound(Input, 1) step 2 do
  begin
    ParamName := Input[i];
    ParamValue := Input[i+1];
    ADOQuery1.Parameters.ParamByName(ParamName).Value := ParamValue;
  end;
  
  ADOQuery1.Open;
  Output := ADOQuery1.Data;
end;

注意事项 #

• 确保服务器端ADOQuery的SQL语句里已经定义了对应参数（比如:UserName、:UserAge），参数名称要和代码里的ParamByName完全匹配。
• 如果参数是数值、日期类型，服务器端要做类型转换（比如StrToInt(ParamValue)），避免变体类型不兼容的问题。
• 若传递敏感数据，建议在参数传递前做加密处理，防止明文泄露。

内容的提问来源于stack exchange，提问作者Nick Sheinov