Out params in TOraPackage with NET option

dstrenz · Post by **dstrenz** » 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;
--------------------------------------------------

dstrenz · Post by **dstrenz** » Fri 11 Aug 2006 18:23

FYI, I just tried TOraStoredProc on the same package and it works fine using both the NET or OCI.

Plash · Post by **Plash** » Mon 14 Aug 2006 07:07

We have fixed this problem. The fix will be included in next build of ODAC.