★★★★★delphi调用一个简单的oracle存储过程怎么不行？？100分相送！！！！！★★★★★

Question

oracle 存储过程如下：/* test */
create or replace procedure getcodename1(
p_codeid  in int,
p_out in out int)as
begin
   p_out:=7;
end;delphi调用：
procedure TForm1.Button1Click(Sender: TObject);
var
  ss:string;
begin
  StoredProc2.Close;
  StoredProc2.Params[0].Value:=1;
  StoredProc2.Open;
  ss:=inttostr(StoredProc2.Params[1].value));
  StoredProc2.Close;
  ShowMessage(ss);end;

Answer 1

http://expert.csdn.net/Expert/topic/1456/1456253.xml
http://expert.csdn.net/Expert/topic/1838/1838475.xml

Answer 2

StoredProc2.Close;
  StoredProc2.Params[0].Value:=1;
  StoredProc2.Execproc;
  ss:=inttostr(StoredProc2.Params[1].value));
  StoredProc2.Close;