devart.oracle 参数,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;