alerter.nfm

Oracle Data Access Components Source Code ODAC v.6.70.0.45

inherited AlerterFrame: TAlerterFrame
  Width = 695
  object Splitter1: TSplitter
    Left = 280
    Top = 32
    Height = 235
    Beveled = True
    Color = 170
    ParentColor = False
  end
  object Panel2: TPanel
    Left = 0
    Top = 32
    Width = 280
    Height = 235
    Align = alLeft
    Anchors = [akTop]
    BevelOuter = bvNone
    Constraints.MinWidth = 280
    TabOrder = 0
    object meLog1: TMemo
      Left = 0
      Top = 117
      Width = 280
      Height = 118
      Align = alClient
      ScrollBars = ssVertical
      TabOrder = 1
    end
    object Panel12: TPanel
      Left = 0
      Top = 0
      Width = 280
      Height = 117
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      object Label7: TLabel
        Left = 10
        Top = 5
        Width = 56
        Height = 13
        Caption = 'Session 1'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clMaroon
        Font.Height = 13
        Font.Name = 'Tahoma'
        Font.Pitch = fpVariable
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Panel1: TPanel
        Left = 10
        Top = 23
        Width = 259
        Height = 87
        BevelOuter = bvNone
        Color = 170
        TabOrder = 0
        object btStart1: TSpeedButton
          Left = 1
          Top = 1
          Width = 85
          Height = 22
          Caption = 'Start'
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          Transparent = False
          OnClick = btStart1Click
        end
        object btStop1: TSpeedButton
          Left = 87
          Top = 1
          Width = 85
          Height = 22
          Caption = 'Stop'
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          Transparent = False
          OnClick = btStop1Click
        end
        object btSend1: TSpeedButton
          Left = 173
          Top = 1
          Width = 85
          Height = 22
          Caption = 'Send ->'
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          Transparent = False
          OnClick = btSend1Click
        end
        object Panel13: TPanel
          Left = 1
          Top = 24
          Width = 257
          Height = 62
          Anchors = [akLeft, akTop, akRight, akBottom]
          BevelOuter = bvNone
          TabOrder = 0
          object Label3: TLabel
            Left = 5
            Top = 13
            Width = 40
            Height = 13
            Caption = 'TimeOut'
          end
          object Label9: TLabel
            Left = 5
            Top = 38
            Width = 28
            Height = 13
            Caption = 'Event'
          end
          object Label5: TLabel
            Left = 119
            Top = 13
            Width = 35
            Height = 13
            Caption = 'Interval'
          end
          object Label1: TLabel
            Left = 119
            Top = 38
            Width = 43
            Height = 13
            Caption = 'Message'
          end
          object edEvent1: TEdit
            Left = 49
            Top = 34
            Width = 59
            Height = 21
            TabOrder = 2
            Text = 'ODAC'
          end
          object edTimeOut1: TEdit
            Left = 49
            Top = 9
            Width = 59
            Height = 21
            TabOrder = 0
            Text = '100'
            OnExit = edTimeOut1Exit
          end
          object edMessage1: TEdit
            Left = 165
            Top = 34
            Width = 85
            Height = 21
            TabOrder = 3
            Text = 'Hello Session2!'
          end
          object edInterval1: TEdit
            Left = 165
            Top = 9
            Width = 85
            Height = 21
            TabOrder = 1
            Text = '5'
            OnExit = edInterval1Exit
          end
        end
      end
    end
  end
  object Panel6: TPanel
    Left = 0
    Top = 0
    Width = 695
    Height = 32
    Align = alTop
    BevelOuter = bvNone
    Color = 170
    TabOrder = 2
    object Panel3: TPanel
      Left = 0
      Top = 1
      Width = 2299
      Height = 30
      Anchors = [akLeft, akTop, akRight, akBottom]
      BevelOuter = bvNone
      TabOrder = 0
      object rbPipes: TRadioButton
        Left = 101
        Top = 9
        Width = 89
        Height = 17
        Caption = 'Use Pipes'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = 170
        Font.Height = 11
        Font.Name = 'Tahoma'
        Font.Pitch = fpVariable
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        OnClick = rbAlertsClick
      end
      object rbAlerts: TRadioButton
        Left = 11
        Top = 10
        Width = 89
        Height = 16
        Caption = 'Use Alerts'
        Checked = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = 170
        Font.Height = 11
        Font.Name = 'Tahoma'
        Font.Pitch = fpVariable
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        TabStop = True
        OnClick = rbAlertsClick
      end
    end
  end
  object Panel4: TPanel
    Left = 283
    Top = 32
    Width = 412
    Height = 235
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object meLog2: TMemo
      Left = 0
      Top = 116
      Width = 412
      Height = 119
      Align = alClient
      ScrollBars = ssVertical
      TabOrder = 1
    end
    object Panel11: TPanel
      Left = 0
      Top = 0
      Width = 412
      Height = 116
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      object Label8: TLabel
        Left = 8
        Top = 5
        Width = 56
        Height = 13
        Caption = 'Session 2'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clMaroon
        Font.Height = 13
        Font.Name = 'Tahoma'
        Font.Pitch = fpVariable
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Panel5: TPanel
        Left = 10
        Top = 23
        Width = 345
        Height = 87
        BevelOuter = bvNone
        Color = 170
        TabOrder = 0
        object btStart2: TSpeedButton
          Left = 1
          Top = 1
          Width = 85
          Height = 22
          Caption = 'Start'
          Flat = True
          Transparent = False
          OnClick = btStart2Click
        end
        object btStop2: TSpeedButton
          Left = 87
          Top = 1
          Width = 85
          Height = 22
          Caption = 'Stop'
          Flat = True
          Transparent = False
          OnClick = btStop2Click
        end
        object btSend2: TSpeedButton
          Left = 173
          Top = 1
          Width = 85
          Height = 22
          Caption = '<- Send'
          Flat = True
          Transparent = False
          OnClick = btSend2Click
        end
        object btMultiSend: TSpeedButton
          Left = 259
          Top = 1
          Width = 85
          Height = 22
          Caption = '<<- Multi Send'
          Flat = True
          Transparent = False
          OnClick = btMultiSendClick
        end
        object Panel14: TPanel
          Left = 1
          Top = 24
          Width = 343
          Height = 62
          Anchors = [akLeft, akTop, akRight, akBottom]
          BevelOuter = bvNone
          TabOrder = 0
          object Label2: TLabel
            Left = 120
            Top = 33
            Width = 43
            Height = 13
            Caption = 'Message'
          end
          object Label4: TLabel
            Left = 8
            Top = 8
            Width = 40
            Height = 13
            Caption = 'TimeOut'
          end
          object Label6: TLabel
            Left = 120
            Top = 8
            Width = 35
            Height = 13
            Caption = 'Interval'
          end
          object Label10: TLabel
            Left = 8
            Top = 33
            Width = 28
            Height = 13
            Caption = 'Event'
          end
          object Delay: TLabel
            Left = 261
            Top = 8
            Width = 27
            Height = 13
            Caption = 'Delay'
          end
          object edMessage2: TEdit
            Left = 168
            Top = 29
            Width = 85
            Height = 21
            TabOrder = 4
            Text = 'Hello Session1!'
          end
          object edTimeOut2: TEdit
            Left = 55
            Top = 4
            Width = 55
            Height = 21
            TabOrder = 0
            Text = '5'
            OnExit = edTimeOut2Exit
          end
          object edInterval2: TEdit
            Left = 168
            Top = 4
            Width = 85
            Height = 21
            TabOrder = 1
            Text = '0'
            OnExit = edInterval2Exit
          end
          object edEvent2: TEdit
            Left = 55
            Top = 29
            Width = 55
            Height = 21
            TabOrder = 3
            Text = 'ODAC'
          end
          object edDelay: TEdit
            Left = 299
            Top = 4
            Width = 38
            Height = 21
            TabOrder = 2
            Text = '0,1'
          end
        end
      end
    end
  end
  object OraAlerter1: TOraAlerter
    Session = ODACForm.OraSession
    Events = 'ODAC'
    TimeOut = 100
    Interval = 5
    EventType = etAlert
    OnEvent = OraAlerter1Event
    OnTimeOut = OraAlerter1TimeOut
    Left = 63
    Top = 202
  end
  object OraAlerter2: TOraAlerter
    Session = OraSession2
    Events = 'ODAC'
    TimeOut = 5
    EventType = etAlert
    OnEvent = OraAlerter2Event
    OnTimeOut = OraAlerter2TimeOut
    Left = 373
    Top = 199
  end
  object sqMultiSend: TOraSQL
    NonBlocking = True
    SQL.Strings = (
      'declare'
      '  T NUMBER;'
      'begin'
      '  for i in 1 .. 50 loop'
      '  -- 0.1 sec delay'
      '    T := DBMS_UTILITY.Get_Time + :Delay * 100;'
      '    while DBMS_UTILITY.Get_Time < T loop'
      '      NULL;'
      '    end loop;'
      '    DBMS_ALERT.Signal(:Name, :Msg || '#39' '#39' || i);'
      '    COMMIT;'
      '  end loop;'
      'end;')
    Left = 405
    Top = 199
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'Delay'
      end
      item
        DataType = ftUnknown
        Name = 'Name'
      end
      item
        DataType = ftUnknown
        Name = 'Msg'
      end>
  end
  object OraSession2: TOraSession
    LoginPrompt = False
    Left = 341
    Top = 199
  end
end