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

Delphi , Базы данных , 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;

...

Статья предлагает способ отображения прогресс-бара при выполнении долгоживущей операции в Oracle с помощью Direct Oracle Access (DOA) и пакета DBMS_APPLICATION_INFO. Код разделен на две части: клиентская часть, которая устанавливает прогресс-бар, и серверная часть, которая обновляет прогресс-бар.

Клиентская часть использует DOA для выполнения запроса SQL, который извлекает текущее значение прогресса из представления V$SESSION_LONGOPS. Свойство Progress объекта FPB затем обновляется этим значением.

Серверная часть определяет пакет под названием PROGRESS_BAR, который содержит процедуры и функции для установки максимального, минимального и текущего значений прогресс-бара, а также для шагания прогресс-бара. Функция INIT инициализирует пакет, получая максимальное значение из представления V$SESSION_LONGOPS и устанавливая начальную величину прогресс-бара.

Процедуры SETMaxValue, SETMinValue и SetStepValue позволяют установить максимальное, минимальное и шаговое значения для прогресс-бара. Процедура StepIt увеличивает текущее значение прогресс-бара на указанное шаговое значение и обновляет представление V$SESSION_LONGOPS соответственно.

Чтобы использовать этот код, вам нужно создать новый пакет specification и body в вашей базе данных Oracle, а затем вызывать процедуры и функции, предоставленные пакетом, из клиентской части кода.

В примере ниже показано, как можно модифицировать предоставленный код для упрощения использования:

CREATE OR REPLACE PACKAGE BODY PROGRESS_BAR AS

  PROCEDURE SET_MAX_VALUE(nVal IN NUMBER) IS
  BEGIN
    nMaxValue := nVal;
  END;

  PROCEDURE SET_MIN_VALUE(nVal IN NUMBER) IS
  BEGIN
    nMinValue := nVal;
  END;

  PROCEDURE STEP_IT(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 PROGRESS_BAR;

Вы можете вызывать процедуры и функции из клиентской части кода с помощью следующей синтаксис:

DECLARE
  progress_bar PROGRESS_BAR;
BEGIN
  progress_bar.SET_MAX_VALUE(100); -- Установка максимального значения в 100
  progress_bar.SET_MIN_VALUE(0); -- Установка минимального значения в 0
  progress_bar.INIT; -- Инициализация прогресс-бара

  FOR i IN 1 .. 10 LOOP
    progress_bar.STEP_IT(i); -- Шагание прогресс-бара на 1 каждую итерацию
  END LOOP;
END;

Код отображает прогресс-бар, который инкрементируется от 0 до 100 в 10 шагах.

Обратите внимание, что это только пример, и вам может потребоваться модификация кода для соответствия вашей конкретной задаче. Кроме того, будьте осторожны при использовании пакета DBMS_APPLICATION_INFO, так как оно может иметь значимое влияние на производительность, если используется неправильно.

Как выполнить долгую операцию в Oracle и отображать прогресс бар.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Oracle ::