pipes.dfm

Oracle Data Access Components Source Code ODAC v.6.70.0.45

inherited PipesFrame: TPipesFrame
  object meOutput: TMemo
    Left = 0
    Top = 26
    Width = 443
    Height = 251
    Align = alClient
    Color = clBtnFace
    ScrollBars = ssVertical
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 443
    Height = 26
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object Panel2: TPanel
      Left = 1
      Top = 1
      Width = 380
      Height = 24
      BevelOuter = bvNone
      Color = 170
      TabOrder = 0
      object btStart: TSpeedButton
        Left = 1
        Top = 1
        Width = 82
        Height = 22
        Caption = 'Start'
        Flat = True
        Transparent = False
        OnClick = btStartClick
      end
      object btClear: TSpeedButton
        Left = 297
        Top = 1
        Width = 82
        Height = 22
        Caption = 'Clear'
        Flat = True
        Transparent = False
        OnClick = btClearClick
      end
      object Panel3: TPanel
        Left = 84
        Top = 1
        Width = 212
        Height = 22
        BevelOuter = bvNone
        TabOrder = 0
        object Label1: TLabel
          Left = 6
          Top = 5
          Width = 78
          Height = 13
          Caption = 'Message source'
        end
        object rbClient: TRadioButton
          Left = 89
          Top = 5
          Width = 57
          Height = 14
          Caption = 'Client'
          Checked = True
          TabOrder = 0
          TabStop = True
        end
        object rbServer: TRadioButton
          Left = 145
          Top = 5
          Width = 60
          Height = 14
          Caption = 'Server'
          TabOrder = 1
        end
      end
    end
  end
  object sqSend: TOraSQL
    Session = ODACForm.OraSession
    SQL.Strings = (
      'declare'
      '  Res NUMBER;'
      'begin'
      '  DBMS_PIPE.Pack_Message('#39'-- Message from client --'#39');'
      '  DBMS_PIPE.Pack_Message('#39'1. String'#39');'
      '  DBMS_PIPE.Pack_Message('#39'It is string'#39');'
      '  DBMS_PIPE.Pack_Message('#39'2. Number'#39');'
      '  DBMS_PIPE.Pack_Message(1234);'
      '  DBMS_PIPE.Pack_Message('#39'3. Date'#39');'
      '  DBMS_PIPE.Pack_Message(SysDate);'
      '  DBMS_PIPE.Pack_Message('#39'-------------------------'#39');'
      '  Res := DBMS_PIPE.Send_Message('#39'evODAC'#39');'
      'end;')
    Debug = True
    Left = 178
    Top = 63
  end
  object OraAlerter1: TOraAlerter
    Session = ODACForm.OraSession
    Events = 'evODAC'
    EventType = etPipe
    Left = 146
    Top = 63
  end
  object OraSession2: TOraSession
    ConnectPrompt = False
    Left = 274
    Top = 63
  end
  object OraAlerter2: TOraAlerter
    Session = OraSession2
    Events = 'evODAC'
    EventType = etPipe
    OnEvent = OraAlerter2Event
    Left = 306
    Top = 63
  end
end