progressor.nfm

odac for oralce 8i,10g,11g easy to connect to oralce from delphi

inherited ProgressorFrame: TProgressorFrame
  OnResize = FrameResize
  object Panel1: TPanel
    Left = 4
    Top = 3
    Width = 422
    Height = 24
    BevelOuter = bvNone
    Color = 170
    TabOrder = 0
    object btStart: TSpeedButton
      Left = 170
      Top = 1
      Width = 83
      Height = 22
      Caption = 'Start'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = False
      OnClick = btStartClick
    end
    object btBreak: TSpeedButton
      Left = 254
      Top = 1
      Width = 83
      Height = 22
      Caption = 'Break'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = False
      OnClick = btBreakClick
    end
    object Panel2: TPanel
      Left = 1
      Top = 1
      Width = 168
      Height = 22
      BevelOuter = bvNone
      TabOrder = 0
      object Label1: TLabel
        Left = 3
        Top = 4
        Width = 23
        Height = 13
        Caption = 'Time'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 140
        Top = 4
        Width = 17
        Height = 13
        Caption = 'sec'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object edTime: TEdit
        Left = 50
        Top = 1
        Width = 81
        Height = 21
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        Text = '10'
      end
    end
    object Panel5: TPanel
      Left = 338
      Top = 1
      Width = 83
      Height = 22
      BevelOuter = bvNone
      TabOrder = 1
      object cbSmooth: TCheckBox
        Left = 17
        Top = 3
        Width = 61
        Height = 17
        Caption = 'Smooth'
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 0
        OnClick = cbSmoothClick
      end
    end
  end
  object Panel3: TPanel
    Left = 79
    Top = 100
    Width = 455
    Height = 75
    Anchors = []
    BevelOuter = bvNone
    Color = 170
    TabOrder = 1
    object Panel4: TPanel
      Left = 1
      Top = 1
      Width = 453
      Height = 73
      Anchors = [akLeft, akTop, akRight, akBottom]
      BevelOuter = bvNone
      TabOrder = 0
      object lbTime: TLabel
        Left = 338
        Top = 7
        Width = 49
        Height = 16
        Caption = '0:00:00'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lbPercent: TLabel
        Left = 429
        Top = 7
        Width = 22
        Height = 16
        Alignment = taRightJustify
        Caption = '0%'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clMaroon
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object ProgressBar: TProgressBar
        Left = 120
        Top = 26
        Width = 227
        Height = 27
        Anchors = [akLeft, akTop, akRight, akBottom]
        Smooth = True
        Step = 1
        TabOrder = 0
      end
    end
  end
  object OraSQL: TOraSQL
    NonBlocking = True
    SQL.Strings = (
      'declare'
      '  T NUMBER;'
      '  Event VARCHAR2(30);'
      '  Message VARCHAR2(10);'
      '  Status NUMBER;'
      'begin'
      '  DBMS_ALERT.Register('#39'evBreak'#39');'
      '  for i in 1 .. :Time * 5 loop'
      '  -- 0.2 sec delay'
      '    T := DBMS_UTILITY.Get_Time + 20; --10'
      '    while DBMS_UTILITY.Get_Time < T loop'
      '      NULL;'
      '    end loop;'
      '    DBMS_ALERT.Signal('#39'evProgress'#39', '#39#39');'
      '    COMMIT;'
      '    DBMS_ALERT.WaitAny(Event, Message, Status, 0);'
      '    if Event = '#39'EVBREAK'#39' then'
      '      exit;'
      '    end if;'
      '  end loop;'
      '  DBMS_ALERT.Remove('#39'evBreak'#39');'
      'end;')
    AfterExecute = OraSQLAfterExecute
    Left = 136
    Top = 80
    ParamData = <
      item
        DataType = ftInteger
        Name = 'Time'
        Value = 5
      end>
  end
  object OraSession2: TOraSession
    ConnectPrompt = False
    Left = 208
    Top = 80
  end
  object OraAlerter: TOraAlerter
    Session = OraSession2
    Events = 'evProgress'
    TimeOut = 10
    EventType = etAlert
    OnEvent = OraAlerterEvent
    OnTimeOut = OraAlerterTimeOut
    Left = 240
    Top = 80
  end
end