Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как получить в Delphi выходной параметр из процедуры в пакете? [D5, Oracle]

DPashin © (2002-05-07 09:18:00)
Я пробовал следующий код, но параметр возвращаться отказывается. Через TStoredProc процедуры в пакетах не видны,=> запустить нельзя. Что делать?

CREATE OR REPLACE
Package TESTPACK IS
PROCEDURE TestProc
( param1 IN OUT INTEGER);
END;
/

CREATE OR REPLACE
Package Body TESTPACK IS
PROCEDURE TestProc( param1 IN OUT INTEGER) is
begin
Param1:=1;
end;
END; -- Package Body TESTPACK
/

var Q:TQuery;
begin
Q:=TQuery.Create(nil);
try
Q.DataBaseName:="SALARY";
Q.SQL.Add("begin");
Q.SQL.Add("TestPack.TestProc(:Param1);");
Q.SQL.Add("end;");

Q.ParamByName("Param1").DataType:=ftInteger;
Q.ParamByName("Param1").ParamType:=ptInputOutput;
Q.ParamByName("Param1").asInteger:=0;
Q.ExecSQL;
ShowMessage(intToStr(Q.ParamByName("Param1").asInteger ));
finally
Q.Free;
end;
end;

Reindeer Moss Eater (2002-05-14 09:59:00) [1]
SQLORA32.dll прекрасно работает с любой восьмеркой

DPashin (2002-05-14 09:37:00) [2]
>Sergey13
>C BDEшным доступом не пробовал. С DOA такое работает.
К сожалению, нужно под BDE.

>А тебе нужна именно процедура?
Да. Представить в виде функции и селектить из дуала не получиться, т.к. процедура модифицирует таблицы.
----------------
>Judith
>Попробуй написать имя пакета и процедуры большими буквами.
Пробовал. Не помогло.

>dll32 должно стоять SQLORA32.DLL
SQLORA32 не работает с Oracle 8.

Judith (2002-05-13 15:31:00) [3]
Попробуй написать имя пакета и процедуры большими буквами. dll32 должно стоять SQLORA32.DLL

Sergey13 (2002-05-13 09:56:00) [4]
C BDEшным доступом не пробовал. С DOA такое работает.
А тебе нужна именно процедура? Почему не хочешь переделать ее в функцию. Может проще будет. Отселектил из дуала и все.

DPashin (2002-05-13 09:39:00) [5]
Попробовал, не помогает.
При SQLORA32 на соединении с сервером выскакивает ошибка (Internal чего-то там). Есть подозрение, что SQLORA32 работает только с Oracle 7, т.к. на Oracle 7 все ок.

Мне нужно решить проблему для Oracle 8.1.6.

ivv (2002-05-07 09:35:00) [6]
в насройках bde configuration\drivers\native\oracle\
смени парамертр dll32 на SQLORA32, он корректно работает со StoredProc, а SQLORA8 - c blob

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »