delphi多层架构多参数传递处理（前端、服务端）

前端代码：
var
  vParam:TParams;
  sMsg:string;
  sKindStr:string;
  I:Integer;
begin
  vParam:=TParams.Create;
  try          
    AddParam(vParam,'THE_CNT',ftInteger,ptInput,kmtb_Check.RecordCount);
    AddParam(vParam,'KIND_STR',ftString,ptInput,sKindStr);
    try
      ExcuteMySQLProcedure('AddArticlepreferential',vParam,sMsg);
    except
       on e: Exception do
       begin
         Application.MessageBox(PChar(sMsg),PChar('gevraagd'),MB_ICONERROR);
         exit;
       end;
    end;
  finally
    freeAndNil(vParam);
  end;
end;

function ExcuteMySQLProcedure(sProcedureName:string;var vParam:TParams;var sMsg:string):Boolean;
var
  oleParam:OleVariant;
  vData:Binary;
  I:Integer;
begin
    if trim(sProcedureName)='' then exit;
    vData:=Binary.Create;
    result:=false;
     try
         oleParam:=ParamsToVariant(vParam);
         vData:=BinaryFromVariant(oleParam);

         FService := (acsStdFuncDataModule.rmsMain as IacsDataService); // rest of the run on the server
         //Call a stored procedure and return value
         FService.ExecuteProcedure(sProcedureName,vData,sMsg);
         vParam.Clear;
         oleParam:=ReadVariantFromBinary(vData);
         VariantToParams(oleParam,vParam);
        result:=true;
     finally
       freeAndnil(vData);
     end;
end;

服务端代码：
function ExecuteProcedure(const procedureName: AnsiString; var pParam: Binary; var sMsg: AnsiString): Boolean;
var
   I:Integer;
   vParam:TParams;
   vData:OleVariant;
begin
  Result := false;
  if Trim(procedureName)='' then
  begin
    Result := false;
    sMsg := GloRs_IDsSQLStrIsEmpty;
    _WriteError(tLogError,GloRs_DataBaseErrorCode + GloRs_IDsSQLStrIsEmpty);
    Exit;
  end;

  vParam:=TParams.Create;
  try
    vData:=ReadVariantFromBinary(pParam);
    VariantToParams(vData,vParam);
    with MyStoredProc1 do begin
      try
        Close;
        StoredProcName:=procedureName;
        Params.Clear;
        for I:=0 to vParam.Count-1 do
        begin
          Params.CreateParam(vParam.Items[I].DataType,vParam.Items[I].Name,vParam.Items[I].ParamType);
          ParamByName(vParam.Items[I].Name).Value:=vParam.Items[I].Value;
        end;
        ExecProc;
        for I:=0 to vParam.Count-1 do
        begin
          if (vParam.Items[I].ParamType=ptOutput) or (vParam.Items[I].ParamType=ptInputOutput) then
          begin
             vParam.Items[I].Value :=ParamByName(vParam.Items[I].Name).AsString;
          end;
        end;
        pParam.Clear;

        vData:=ParamsToVariant(vParam);
        WriteVariantToBinary(vData,pParam);
      finally
        MyStoredProc1.Close;
      end;
    end;

    Result := true;

    sMsg := GloRs_IDsSQLDSSuccess;
  Except
    on e: Exception do
      begin
          sMsg := GloRs_IDsGetData;
          _WriteError(tLogError,GloRs_DataBaseErrorCode + GloRs_IDsGetData + e.Message);
          _WriteError(tLogError,GloRs_IDsSQLError + procedureName);
          Result := false;
      end;
  end;
end;

用到的函数：
procedure VariantToParams(input:OleVariant;par:TParams);
// TParam 's property: fieldType, paramName, ParamType, value, size
// paramType default value ptinput
// size = sizeof(value)
var
  n, i:integer;
begin
  try
    n:=0;
    i:=0;
    par.Clear;
    while VarArrayHighBound(input,1)>=(n+4)do
    begin
      par.CreateParam(TFieldType(input[n+1]),input[n+2],input[n+4]);
      par.Items[i].Value := input[n+3];
      par.Items[i].Size :=SizeOf(input[n+3]);
      n:=n+4;
      i:=i+1;
    end;
  except
    Exit;
  end;
end;

function ParamsToVariant(par:TParams): OleVariant;
// TParam 's property: fieldType, paramName, ParamType, value, size
// paramType default value ptinput
// size = sizeof(value)
var
  tmpv:OleVariant;
  n,i:integer;
begin
  try
    tmpv:=VarArrayCreate([1,par.Count*4],VarVariant);
    n:=0;
    i:=0;
    while par.Count>i do
    begin
      tmpv[n+1]:=Ord(par.Items[i].DataType);   
      tmpv[n+2]:=par.Items[i].Name;
      tmpv[n+3]:=par.Items[i].Value;
      tmpv[n+4]:=par.Items[i].ParamType;
      i:=i+1;
      n:=n+4;
    end;
    result:=tmpv;
  except
    Exit;
  end;
end;

procedure AddParam(Params: TParams; const ParamName: string;
  DataType: TFieldType;ParamType:TParamType;Value: OleVariant);
// only for client load
var
  p: TParam;
begin
  try
    p := Params.CreateParam(DataType, ParamName, ParamType);
    p.Value := Value;
    p.Size := SizeOf(Value);
  except
    exit;
  end;
end;

其中ReadVariantFromBinary、WriteVariantToBinary、BinaryFromVariant函数用到RemObjects 的uROBinaryHelpers单元