delphi如何调用oracle下的存储过程和函数？

Question

如题！

Answer 1

try
    ADOStoredProc := TADOStoredProc.Create(nil);
    ADOStoredProc.Connection := ADOConnection;    ADOStoredProc.ProcedureName := 'SCount';
    ADOStoredProc.Parameters.CreateParameter('sid', ftInt, pdInput, 4, 0);
    ADOStoredProc.Parameters.CreateParameter('name', ftString, pdInput, 20, name);
    ADOStoredProc.Parameters.CreateParameter('Rcount', ftBoolean, pdReturnValue, 4, 0);    ADOStoredProc.Prepared := True;
    ADOStoredProc.ExecProc;
    Result := ADOStoredProc.Parameters.ParamByName('Result').Value;
  finally
    ADOStoredProc.Free;
  end;

Answer 2

try
    ADOStoredProc := TADOStoredProc.Create(nil);
    ADOStoredProc.Connection := ADOConnection;    ADOStoredProc.ProcedureName := 'SCount';
    ADOStoredProc.Parameters.CreateParameter('sid', ftInt, pdInput, 4, 0);
    ADOStoredProc.Parameters.CreateParameter('name', ftString, pdInput, 20, name);
    ADOStoredProc.Parameters.CreateParameter('Rcount', ftBoolean, pdReturnValue, 4, 0);    ADOStoredProc.Prepared := True;
    ADOStoredProc.ExecProc;
    Result := ADOStoredProc.Parameters.ParamByName('Result').Value;
  finally
    ADOStoredProc.Free;
  end;

Answer 3

我用的是dbexpress，应该怎么做呢？