firedac的TFDStoredProc动态创建并调用存储过程

1）中间件执行存储过程

sp.Close;
sp.StoredProcName := procName;
sp.Prepare; // 生成存储过程的参数列表，无任何OUTPUT的存储过程，也会自动生成一个@ReturnValue的返回值参数
params := TFDParams.Create;
try
UnpackFDParams(inParams, params); // 还原客户端上传的参数
for i:=0 to params.Count -1 do
for h:=0 to d.procOpen.ParamCount-1 do
if sp.Params[h].Name = params[i].Name then
begin
sp.Params[h].Value := params[i].Value; // 给存储过程的参数赋值
Break;
end;
finally
params.Free;
end;
sp.open;
2）客户端调用远程方法执行存储过程

procedure TfrmMain.Button2Click(Sender: TObject);
begin
cds2.Params.Clear;
cds2.Params.CreateParam(ftString,'@workno',ptInput).Value :='1'; // 参数前面记得要加@
cds2.Data := ProcOpen('9999','3',PackageParams(cds2.Params));
end;