OCI_INVALID_HANDLE if use OraSQLMonitor and XMLTYPE

[dimon_adv]

Oracle 11, Delphi2010
DB

Code: Select all

  procedure TST_XML(p_TSTXML SYS.XMLTYPE) is
  begin
    null;
  end;

In source use runtime create components:

procedure TForm3.btn1Click(Sender: TObject);
var
OraSes2: TOraSession;
begin
OraSes2 := TOraSession.Create(nil);
try
OraSes2.Username := 'PSO_DATA';
OraSes2.Password := 'test';
OraSes2.Server := 'dbserver';
OraSes2.Connect;
OraStoredProc1.Session := OraSes2;
OraStoredProc1.StoredProcName := 'PKG_PSO_TEMPLATE_DESCRIPTOR.TST_XML';
OraStoredProc1.Prepare;
OraStoredProc1.ParamByName('P_TSTXML').AsXML.OCISvcCtx := OraSes2.OCISvcCtx;
OraStoredProc1.ParamByName('P_TSTXML').AsXML.AsString := '';
OraStoredProc1.Execute;
finally
OraSes2.Free;
end;
end;

First run - OK
Second run -
---------------------------
Project3
---------------------------
OCI_INVALID_HANDLE.
---------------------------
ОК
---------------------------

If SQLMonitor.Active = False - OK All times.

[bork]

Hello

Thank you for information. We have reproduced this problem and fixed it. This fix will be included in the next ODAC build.