Devart Forums

Code: Select all

declare
  ver integer;
  s_ver varchar2(500);
begin
  select banner into s_ver from v$version where rownum = 1;
  if instr(s_ver, '11') > 0 then
    execute immediate 'create or replace procedure test111 wrapped
a000000
ab
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
7
28 5d
VSgkSYV2QlRGIa+U88RXagsERmMwg5nnm7+fMr2ywFwWoWLRfyEhw6V0i8DAMv7ShglppZmB
CC2LwIHHLcmmpu4CnhQ=';
  else
    execute immediate 'create or replace procedure test111 is
begin
  null;
end;';
  end if;
end;

Code: Select all

procedure TForm1.Button2Click(Sender: TObject);
begin
  try
    OraSQL1.Execute;
  except
    on e : exception do
      ShowMessage(e.Message);  // show error
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    OraQuery1.Execute;
  except
    on e : exception do
      ShowMessage(e.Message); // e.Message is empty
  end;
end;