devart unidac 存储过程 (输入、输出参数)

procedure TForm2.btn1Click(Sender: TObject);

var

  usp: TUniStoredProc;

begin

  usp := TUniStoredProc.Create(nil);

  usp.Connection := UniConnection1;

  usp.StoredProcName := 'GetAImage_ID';

  usp.PrepareSQL();

  usp.ParamByName('pUSER_ID').AsInteger := 1024;

  usp.ParamByName('pProcess').AsInteger := 3;

  usp.ParamByName('pSteps').AsString := '1';

  usp.ParamByName('pBatch_ID').AsInteger := 1;

  usp.ParamByName('pFrom_ID').AsInteger := 1;

  usp.ParamByName('pTo_ID').AsInteger := 1;

  usp.ExecProc;

  Caption := usp.ParamByName('pSteps').AsString;  // 输出参数

  usp.Free;

end;