Componentes.Terceros.RemObjects/internal/5.0.24.615/1/RemObjects SDK for Delphi/Samples/Service Discovery/ServiceDiscoveryMain.dfm

object ServiceDiscoveryMainForm: TServiceDiscoveryMainForm
  Left = 275
  Top = 222
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  BorderWidth = 5
  Caption = 'RemObjects SDK Discovery Sample'
  ClientHeight = 376
  ClientWidth = 583
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object RoPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
    Left = 0
    Top = 0
    Width = 212
    Height = 48
    Cursor = crHandPoint
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 52
    Width = 289
    Height = 270
    Anchors = [akLeft, akTop, akRight, akBottom]
    Caption = ' Client '
    TabOrder = 0
    DesignSize = (
      289
      270)
    object Label1: TLabel
      Left = 11
      Top = 16
      Width = 80
      Height = 13
      Caption = 'Look for service:'
    end
    object Label2: TLabel
      Left = 11
      Top = 88
      Width = 74
      Height = 13
      Caption = 'Found Servers:'
    end
    object ed_ServiceName: TEdit
      Left = 8
      Top = 29
      Width = 273
      Height = 21
      Anchors = [akLeft, akTop, akRight]
      TabOrder = 0
      Text = 'IRODiscoveryService'
    end
    object btn_LookupService: TBitBtn
      Left = 8
      Top = 56
      Width = 273
      Height = 25
      Action = ac_DiscoverServers
      Anchors = [akLeft, akTop, akRight]
      Caption = 'Discover Servers'
      TabOrder = 1
    end
    object lb_Servers: TListBox
      Left = 8
      Top = 101
      Width = 273
      Height = 160
      Anchors = [akLeft, akTop, akRight, akBottom]
      ItemHeight = 13
      TabOrder = 2
    end
  end
  object GroupBox2: TGroupBox
    Left = 296
    Top = 52
    Width = 287
    Height = 270
    Anchors = [akLeft, akTop, akRight, akBottom]
    Caption = ' Server '
    TabOrder = 1
    DesignSize = (
      287
      270)
    object Label3: TLabel
      Left = 11
      Top = 16
      Width = 240
      Height = 13
      Caption = 'List of Services supported by this server instance:'
    end
    object ed_Services: TMemo
      Left = 8
      Top = 29
      Width = 271
      Height = 174
      Anchors = [akLeft, akTop, akRight, akBottom]
      Lines.Strings = (
        'SomeService'
        'SomeOtherService')
      TabOrder = 0
      OnChange = btn_UpdateServiceListClick
    end
    object Panel1: TPanel
      Left = 8
      Top = 225
      Width = 273
      Height = 37
      Anchors = [akLeft, akBottom]
      BevelOuter = bvLowered
      Color = clInfoBk
      TabOrder = 1
      object Label4: TLabel
        Left = 6
        Top = 5
        Width = 250
        Height = 26
        Caption = 
          'Enter names representing the services you want to simulate as be' +
          'ing supported on this server instance.'
        WordWrap = True
      end
    end
    object cb_SupportRegisteredServerClasses: TCheckBox
      Left = 8
      Top = 205
      Width = 209
      Height = 17
      Anchors = [akLeft, akBottom]
      Caption = 'List registered RO Servers as supported'
      Checked = True
      State = cbChecked
      TabOrder = 2
      OnClick = cb_SupportRegisteredServerClassesClick
    end
  end
  object GroupBox3: TGroupBox
    Left = 0
    Top = 326
    Width = 585
    Height = 48
    Anchors = [akLeft, akBottom]
    Caption = ' Custom Discovery Options: Load'
    TabOrder = 2
    object Label5: TLabel
      Left = 304
      Top = 20
      Width = 111
      Height = 13
      Caption = 'Simulated Server Load:'
    end
    object Label6: TLabel
      Left = 8
      Top = 20
      Width = 148
      Height = 13
      Caption = 'Find a Server with Load below:'
    end
    object ed_ServerLoad: TEdit
      Left = 418
      Top = 17
      Width = 63
      Height = 21
      TabOrder = 0
      Text = '50'
    end
    object ed_MaxLoad: TEdit
      Left = 160
      Top = 17
      Width = 63
      Height = 21
      TabOrder = 1
      Text = '75'
    end
    object cb_ReturnInfo: TCheckBox
      Left = 496
      Top = 19
      Width = 81
      Height = 17
      Caption = 'Return Info'
      Checked = True
      State = cbChecked
      TabOrder = 2
    end
  end
  object ROBroadcastServer: TROBroadcastServer
    Active = True
    Dispatchers = <
      item
        Name = 'ROBINMessage_Server'
        Message = ROBINMessage_Server
        Enabled = True
      end>
    IndyUDPServer.BroadcastEnabled = True
    IndyUDPServer.Bindings = <>
    IndyUDPServer.DefaultPort = 8090
    IndyUDPServer.ThreadedEvent = True
    Port = 8090
    Left = 400
    Top = 24
  end
  object ROBroadcastChannel: TROBroadcastChannel
    ServerLocators = <>
    DispatchOptions = []
    Retrys = 5
    IndyClient.BroadcastEnabled = True
    IndyClient.Port = 8090
    Port = 8090
    Left = 215
    Top = 25
  end
  object RODiscoveryClient: TRODiscoveryClient
    Channel = ROBroadcastChannel
    Message = ROBINMessage_Client
    ServiceName = 'SomeService'
    OnNewServersFound = RODiscoveryClientNewServersFound
    OnNewServiceFound = RODiscoveryClientNewServiceFound
    Left = 272
    Top = 25
  end
  object RODiscoveryServer: TRODiscoveryServer
    OnServiceFound = RODiscoveryServerServiceFound
    Left = 456
    Top = 24
  end
  object ROBINMessage_Server: TROBinMessage
    Left = 428
    Top = 24
  end
  object ROBINMessage_Client: TROBinMessage
    Left = 244
    Top = 25
  end
  object ActionList: TActionList
    OnUpdate = ActionListUpdate
    Left = 520
    Top = 24
    object ac_DiscoverServers: TAction
      Caption = 'Discover Servers'
      OnExecute = btn_LookupServiceClick
    end
  end
end