Главная страницаОбратная связьКарта сайта

Как при выполнении долгой операции в 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;

...


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Как при выполнении долгой операции в Oracle показать прогресс бар", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info