When creating wrapped packages with
Code: Select all
TOraQuery.ExecSQL('create or replace package body ...')Wrapped package cannot be installed using ODAC
Wrapped package cannot be installed using ODAC
ODAC 5.70.1.34, Delphi 7 (Build 8.1), Oracle 9.2.0.6
When creating wrapped packages with most of them are compiled ok, but at least one fails and package body is empty.
When creating wrapped packages with
Last edited by scarecrow on Wed 16 Aug 2006 13:20, edited 1 time in total.
The problem caused by a literal string constant declared in the package body with only a single ampersand. Below is a small example reproducing the problem.
Source:
After wrapping:
Source:
Code: Select all
create or replace package pk_a is
procedure p;
end;
/
create or replace package body pk_a is
a constant varchar2(1) := '&';
procedure p is
begin
null;
end;
end;
/
Code: Select all
create or replace package pk_a is
procedure p;
end;
/
create or replace
package body pk_a wrapped
0
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
3
b
9200000
1
4
0
9
2 :e:
1PACKAGE:
1BODY:
1PK_A:
1A:
1CONSTANT:
1VARCHAR2:
11:
1&:
1P:
0
0
0
22
2
0 :2 a0 97 87 :2 a0 51 a5 1c
6e 1b b0 9a b4 55 6a 4f
b7 a4 b1 11 68 4f b1 b7
a4 11 b1 56 4f 1d 17 b5
22
2
0 3 7 b 36 19 1d 21
24 25 2d 32 18 3d 15 51
55 59 5b 5d 61 63 6f 73
75 77 79 7d 89 8b 8e 90
91 9a
22
2
0 1 9 13 3 5 e 17
16 e 1d 5 3 d 0 :2 3
5 :a 3 :6 1
22
4
0 :3 1 :9 2 3
0 :2 3 5 :2 4
:8 3 :6 1
9c
4
:3 0 1 :3 0 2
:3 0 3 :6 0 1
:5 0 :2 5 :3 0 6
:3 0 7 :2 0 3
6 8 :6 0 8
:4 0 c 9 a
1c 4 :6 0 9
:a 0 16 2 :7 0
e :2 0 16 d
f :3 0 12 7
15 :3 0 15 0
15 14 12 13
:6 0 16 1 0
d f 15 1c
:3 0 1b 0 1b
:3 0 1b 1c 19
1a :6 0 1d :2 0
9 0 3 1b
20 :3 0 1f 1d
21 :8 0
c
4
:3 0 1 7 1
4 1 11 2
b 16
1
4
0
20
0
1
14
2
3
0 1 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0
4 1 0
d 1 2
3 0 1
0
/