Как при выполнении долгой операции в Oracle показать прогресс бар?

=== Как при выполнении долгой операции в Oracle показать прогресс бар? ===
Ниже приведен пример, как это сделать при помощи Direct Oracle Access, надеюсь этот кусок кода несложно запустить в отдельном процессе, а в другом можно запустить перемесчатель прогресс бара. Есть готовая компонента, могу поделиться.
// на создании потока вставим то, что будет выбирать необходимую информацию
Self.fods.SQL.Text := 'SELECT SOFAR FROM V$SESSION_LONGOPS WHERE CONTEXT=:FK_ID';
Self.fods.DeclareVariable('FK_ID', otInteger);
Self.fods.SetVariable('FK_ID', ID);
// На выполнение потока вешаем открытие/закрытие TOracleDataSet
while (Terminated = false) do
begin
 Self.fods.Close;
 Self.fods.Open;
 Self.fpb.Progress := Self.fods.FieldByName('SOFAR').AsInteger;
 //^^^^Эта строчка как раз и устанавливает нужный прогрессбар в нужную позицию...
 end;
Ну и соответственно перед выполнением всего этого дела необходимо выставить максимальное число (100%) :
 PROCEDURE SETMaxValue(nVal IN NUMBER);
Минимальное:
 PROCEDURE SETMinValue(nVal IN NUMBER);
Значение шага:
 PROCEDURE SetStepValue(nValue IN NUMBER);
Вышеприведенный кусок кода - клиентская часть, но есть и "подводный камень" - серверная часть... Данный метод подходит только для функций, процедур и пакетов, в которых вы можете написать вставить следующую строчку:
 PROGRESS_BAR.STEPIT;
Код пакета PROGRESS_BAR приведен ниже:
create or replace package PROGRESS_BAR
IS
-- Wrote by Philip A. Milovanov
nMaxValue NUMBER:=0;
nMinValue NUMBER:=0;
nCurrentValue NUMBER:=0;
nStepValue NUMBER:=1;
nID PLS_INTEGER;
slno PLS_INTEGER;
target PLS_INTEGER;
PROCEDURE SETMaxValue(nVal IN NUMBER);
PROCEDURE SETMinValue(nVal IN NUMBER);
FUNCTION INIT RETURN NUMBER;
PROCEDURE StepIt;
PROCEDURE SetStepValue(nValue IN NUMBER);
PROCEDURE StepIt(C IN NUMBER);
END; -- Package Specification PROGRESS_BAR
/
--Сам пакет:
Create or Replace Package Body PROGRESS_BAR
IS
-- Wrote by Philip A. Milovanov
PROCEDURE SETMaxValue(nVal IN NUMBER) IS
BEGIN
if nVal<nMinValue THEN
RAISE_APPLICATION_ERROR(-20001,'Ìèíèìàëüíîå çíà÷åíèå íå äîëæíî áûòü áîëüøå ìàêñèìàëüíîãî ìèí:'||nMinValue||' ,ìàêñ:'||nVal);
END IF;
nMaxValue:=nVal;
END;
PROCEDURE SETMinValue(nVal IN NUMBER) IS
BEGIN
if nVal>nMaxValue THEN
RAISE_APPLICATION_ERROR(-20001,'Ìèíèìàëüíîå çíà÷åíèå íå äîëæíî áûòü áîëüøå ìàêñèìàëüíîãî ìèí:'||nVal||' ,ìàêñ:'||nMaxValue);
END IF;
nMinValue:=nVal;
END;
FUNCTION INIT RETURN NUMBER IS
CURSOR c IS SELECT OBJECT_ID FROM ALL_OBJECTS WHERE OBJECT_NAME='PROGRESS_BAR';
i NUMBER;
BEGIN
OPEN c;
FETCH c INTO target;
CLOSE c;
SELECT SEQ_TPROCESS_BAR.NEXTVAL INTO i FROM DUAL;
nCurrentValue:=nMinValue;
nID:=DBMS_APPLICATION_INFO.set_session_longops_nohint;
DBMS_APPLICATION_INFO.SET_SESSION_LONGOPS(nID,slno,'CALCULATING REPORT',target,i,nCurrentValue,nMaxValue,'PROGRESS BAR INFO',NULL);
RETURN i;
END;
PROCEDURE StepIt IS
BEGIN
nCurrentValue:=nCurrentValue+nStepValue;
DBMS_APPLICATION_INFO.SET_SESSION_LONGOPS(nID,slno,'CALCULATING REPORT',target,nMinValue,nCurrentValue,nMaxValue,'PROGRESS BAR INFO',NULL);
END;
PROCEDURE SetStepValue(nValue IN NUMBER) IS
BEGIN
nStepValue:=nValue;
END;
PROCEDURE StepIt(C IN NUMBER) IS
BEGIN
nCurrentValue:=nCurrentValue+c;
DBMS_APPLICATION_INFO.SET_SESSION_LONGOPS(nID,slno,'CALCULATING REPORT',target,nMinValue,nCurrentValue,nMaxValue,'PROGRESS BAR INFO',NULL);
END;
END;
Author: Philip A. Milovanov ( http://korys.chat.ru )
Source: Взято из http://forum.sources.ru
ID: 02731