|
Проблема вызова ХП Оракла при передаче массива структур
#38038779
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
Участник
Откуда: Moscow
Сообщения: 1 059
|
|
GooSergey...
В ответ получаю ошибку "Unsupported argument type in DLL function message at line 23 in function uf_ib_messagefile of object ..."
Подскажите в чем может быть проблема?Ну, эхотаг какбэ намекает, что не может передать параметр типа структура.
Теперь, если не шашечки, а ехать, то надо сделать обертку примерно так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
CREATE OR REPLACE PROCEDURE PB_MESSAGE
(
out_error OUT INTEGER,
client_absid IN INTEGER,
document_subject IN VARCHAR,
document_text IN VARCHAR,
daf_attachedfiles_name IN VARCHAR2,
daf_attachedfiles_val IN BLOB,
p_client_abs IN VARCHAR
)
IS
FILEINF FILEINF_T;
BEGIN
FILEINF := FILEINF_T(daf_attachedfiles_name, daf_attachedfiles_val);
MESSAGE(
out_error ,
client_absid ,
document_subject ,
document_text ,
FILEINF,
p_client_abs
) ;
END PB_MESSAGE;
/
Тестовая код исходной процедуры: 1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
CREATE OR REPLACE PROCEDURE message
(
out_error OUT INTEGER,
client_absid IN INTEGER,
document_subject IN VARCHAR,
document_text IN VARCHAR,
document_attachedfiles IN FILEINF_T,
p_client_abs IN VARCHAR
) IS
BEGIN
out_error := 0;
EXCEPTION
WHEN OTHERS THEN
out_error := SQLCODE;
RAISE;
END message;
/
Объявление local external function:
1.
2.
3.
subroutine PB_MESSAGE(ref long OUT_ERROR,long CLIENT_ABSID,string DOCUMENT_SUBJECT, &
string DOCUMENT_TEXT,string DAF_ATTACHEDFILES_NAME,blob DAF_ATTACHEDFILES_VAL, &
string P_CLIENT_ABS) RPCFUNC ALIAS FOR "PB_MESSAGE"
Тестовый код: 1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
n_tr tr
tr = create n_tr
tr.DBMS = "O90 Oracle9i (9.0.1)"
tr.LogPass = "***"
tr.ServerName = "ATDEV"
tr.LogId = "***"
tr.AutoCommit = False
connect using tr;
if tr.SQLCODE <> 0 THEN
MessageBox ("", tr.SQLErrText)
return
end if;
long ll_return = -1, pclient_absid
string pdocument_subject, pdocument_text
FILEINF_T files
string pclient_abs
files.attachedfiles_name = "test"
files.attachedfiles_val = blob("test")
tr.PB_MESSAGE(ll_return, pclient_absid, pdocument_subject, pdocument_text, files.attachedfiles_name, files.attachedfiles_val, pclient_abs)
if tr.SQLCODE <> 0 THEN
MessageBox (string(ll_return), tr.SQLErrText)
return
end if;
MessageBox ("Success", ll_return)
PB 9.0.3 build 8836
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
select BANNER from v$version;
BANNER
--------------------------------------------------------------------------------
Oracle Database 11g Enterprise Edition Release 11.2.0.1.0 - Production
PL/SQL Release 11.2.0.1.0 - Production
CORE 11.2.0.1.0 Production
TNS for Linux: Version 11.2.0.1.0 - Production
NLSRTL Version 11.2.0.1.0 - Production
5 rows selected.
Oracle client 10.2.0.1 |
|
|
