In DB create package with this procedure:
Code: Select all
procedure TST_XML(p_TSTXML SYS.XMLTYPE) is
begin
null;
end;
Code: Select all
OraStoredProc1.ParamByName('P_TSTXML').AsXML.OCISvcCtx := OraSession1.OCISvcCtx;
OraStoredProc1.ParamByName('P_TSTXML').AsXML.AsString := '';
OraStoredProc1.Execute; // Access violation if SQLMonitor.Active = True