Out params in TOraPackage with NET option
Posted: Fri 11 Aug 2006 14:33
Using odac 5.70.1.34, Oracle 10g. When running this with the NET option, I get an Access Violation. Works fine with OCI.
Code: Select all
create or replace package pkg_test is
procedure CalcPressCntNetFeet(
OrderQty number, LabelsAcross number, CtoCaround number, OverrunPct number, SheetWastePct number,
PressCounts out number, NetFootage out number );
end pkg_test;
create or replace package body pkg_test is
procedure CalcPressCntNetFeet(
OrderQty number, LabelsAcross number, CtoCaround number, OverrunPct number, SheetWastePct number,
PressCounts out number, NetFootage out number ) is
begin
PressCounts := 10;
NetFootage := 20;
end;
end pkg_test;
--------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
PkgTestOraPackage.ExecProcEx('CalcPressCntNetFeet',
['OrderQty', 1,
'LabelsAcross', 2,
'CtoCaround', 3,
'OverrunPct', 4,
'SheetWastePct', 5,
'PressCounts', 0,
'NetFootage', 0
] );
showmessage( format( 'PressCounts: %s, NetFootage: %s',
[PkgTestOraPackage.Params.ParamByName('PressCounts').AsString,
PkgTestOraPackage.Params.ParamByName('NetFootage').AsString] ));
end;
--------------------------------------------------