Llamada a procedimiento Oracle

[hackerinblues]

Hola, este es el primer hilo que abro despues de leer muchos otros que me han servido de mucha ayuda pero para el problema que se me presenta actualmente no he encontrado respuesta.
La pregunta es la siguiente:
Estoy utilizando ADO+Oracle en una aplicacion hecha en Builder 2006.
Accedo a una BBDD remota en donde se encuenta un procedimiento almacenado que quiero ejecutar pero no encuentro la forma correcta.
El procedimiento tiene la forma siguiente:

procedimiento(
aaa IN number,
bbb IN number,
ccc IN number,
ddd IN number,
eee IN number,
codigo_error OUT number
)

El tema es que no se como conseguir el dato codigo_error ...

Yo tengo algo asi pero me falta saber como recuperar el ultimo parametro...
DECLARE
salida number;
BEGIN
procedimiento(a,b,c,d,e,???);
???????
END;

(Siento si he escrito alguna tonteria pero no estoy acostumbrado a pl sql)

Gracias.

[jachguate]

ADO tiene un componente TAdoStoredProc. Configuralo con el nombre del procedimiento y ceará automáticamente los parámetros, tanto de entrada como de salida.

Así, podes finalmente tener algo como:

Código Delphi [-]
  spProcedimiento.Params.ParamByName('aaa').AsInteger := 1;
  spProcedimiento.Params.ParamByName('bbb').AsInteger := 2;
  spProcedimiento.Params.ParamByName('ccc').AsInteger := 3;
  spProcedimiento.Params.ParamByName('ddd').AsInteger := 4;
  spProcedimiento.ExecProc;
  CodigoError := spProcedimiento.Params.ParamByName('codigo_error').AsInteger;
  if CodigoError <> 0 then
    raise EErrorEnProcedimiento.CreateFmt('Error No %d', [CodigoError]);

Hasta luego.

[hackerinblues]

gracias por la respuesta, es mucho mas comodo utilizar ese componente (no sabia que existia), ahora tengo otro problema: cuando hago el ExecProc me devuelve el siguiente error:
"One or more errors occurred during processing of command"

El codigo es este:

//cargo los valores de entrada del procedimiento
proc->Parameters->ParamByName("aaa")->Value = xxx;
proc->Parameters->ParamByName("bbb")->Value = xxx;
proc->Parameters->ParamByName("ccc")->Value = xxx;
proc->Parameters->ParamByName("ddd")->Value = xxx;
proc->Parameters->ParamByName("eee")->Value = xxx;

//ejecuto el procedimiento
proc->Prepared = true;
proc->ExecProc();

//luego recogeria el dato que devuelve el procedure ...

[jachguate]

Empezado por hackerinblues

cuando hago el ExecProc me devuelve el siguiente error:
"One or more errors occurred during processing of command"

Hola.

Detesto ADO... no lo uso mas que cuando sea necesario, precisamente por esto: sus mensajes de error no son nada claros. Lamento no ser de mucha ayuda. Lo que se me ocurre es probar en el SQL*Plus la ejecución del procedimiento directamente usando los parámetros con los que se invoca desde delphi, y si hay información de estado en el contexto (sesión, valores en tablas, etc.), pues que el estado también sea el mismo.

Esto porque es MUY probable que se esté elevando una excepción desde el propio Oracle, pero que ADO se trague el mensaje de error original y lo sustituya por uno propio. (no es la primera vez que lo haría).

Hasta luego.

[hackerinblues]

Pues no, mucho no me aclara ese error no. De todos modos gracias por la respuesta. Voy a seguir mirando de donde puede venir el fallo y cuando lo solucione lo comento aqui. Un saludo.

[hackerinblues]

bueno el TADOStoredProc me esta dando unos problemillas asi que estoy intentando ejecutar el procedimiento desde consultas "a mano".
El tema es que no controlo mucho de PL SQL y no se como recoger el parametro de salida del procedimiento...

Tengo algo asi:
(codigo c++)

consulta = new TADOQuery(NULL);
consulta->Connection = ADOConnection1;
consulta->SQL->Add("declare codigo number; begin nombre_procedimiento(100,1,1,1,1,codigo); end; ");
consulta->Prepared = true;
consulta->ExecSQL();

.....

Esto me funciona bien y dentro del procedimiento se modifica el valor del
parametro 'codigo'. Ahora lo que necesito es recuperar ese valor y guardarlo en una variable int (por ejemplo) en mi aplicacion y no se como...