DELPHI invokes an Oracle stored procedure and returns an example of a dataset.

oracle| Stored Procedures | Data Environment: WIN2000 + Oracle92


First, build a package in Oracle
CREATE OR REPLACE PACKAGE pkg_test
As
TYPE Myrctype is REF CURSOR;
PROCEDURE get (i_test integer,p_rc out myrctype);
End Pkg_test;

CREATE OR REPLACE PACKAGE body pkg_test
As
PROCEDURE get (i_test integer,p_rc out Myrctype) is
BEGIN
IF i_test = 0 THEN
OPEN P_RC for SELECT sysdate from dual;
ELSE
OPEN P_RC for SELECT * from Tab;
End IF;
End get;
End Pkg_test;

Second, with Delphi call
Build a form and drag controls AdoConnection1, ADOStoredProc1, and Button1.
Procedure Tform1.button1click (Sender:tobject);
Begin
Try
With ADOConnection1 do
Begin
connectionstring:=
' Provider=oraoledb.oracle.1; '
+ ' password= password; '
+ ' Persist security info=true; '
+ ' user id= username; '
+ ' data source= database name; '
+ ' Extended properties= ' plsqlrset=1;
Open;
End
Except
ShowMessage (' connection unsuccessful ');
Exit
End

Try
With ADOStoredProc1 do
Begin
Connection: = ADOConnection1;
Parameters.clear;
procedurename:= ' Pkg_test.get ';
Parameters.createparameter (' P1 ', ftinteger,pdinput,10,1);
Open;
End
Except
ShowMessage (' Unable to execute process. ');
End
End