delphi如何调用oracle的存储过程？

Question

在delphi中用什么控件调用oracle的存储过程？

Answer 1

try
    ADOStoredProc := TADOStoredProc.Create(nil);
    ADOStoredProc.Connection := ADOConnection;    ADOStoredProc.ProcedureName := 'sp_Monitors_Login';
    ADOStoredProc.Parameters.CreateParameter('UserName', ftString, pdInput, 20, UserName);
    ADOStoredProc.Parameters.CreateParameter('Password', ftString, pdInput, 20, Password);
    ADOStoredProc.Parameters.CreateParameter('Result', ftBoolean, pdReturnValue, 1, 0);    ADOStoredProc.Prepared := True;
    ADOStoredProc.ExecProc;
    Result := ADOStoredProc.Parameters.ParamByName('Result').Value;
  finally
    ADOStoredProc.Free;
  end;