userver.~dfm

一个使用UDP开发的消息广播服务与客户端程序

object frmServer: TfrmServer
  Left = 282
  Top = 130
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Server'
  ClientHeight = 432
  ClientWidth = 489
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object GroupBox1: TGroupBox
    Left = 8
    Top = 16
    Width = 393
    Height = 65
    Caption = #26381#21153#22120#20449#24687
    TabOrder = 0
    object LabeledEdit1: TLabeledEdit
      Left = 104
      Top = 45
      Width = 97
      Height = 12
      TabStop = False
      BevelKind = bkSoft
      BevelOuter = bvNone
      BiDiMode = bdLeftToRight
      BorderStyle = bsNone
      Color = clBtnFace
      EditLabel.Width = 72
      EditLabel.Height = 12
      EditLabel.BiDiMode = bdLeftToRight
      EditLabel.Caption = #26381#21153#22120#22320#22336#65306
      EditLabel.ParentBiDiMode = False
      LabelPosition = lpLeft
      LabelSpacing = 3
      ParentBiDiMode = False
      ReadOnly = True
      TabOrder = 0
      Text = '255.255.255.255'
    end
    object LabeledEdit2: TLabeledEdit
      Left = 320
      Top = 45
      Width = 57
      Height = 12
      TabStop = False
      BevelKind = bkSoft
      BevelOuter = bvNone
      BiDiMode = bdLeftToRight
      BorderStyle = bsNone
      Color = clBtnFace
      EditLabel.Width = 84
      EditLabel.Height = 12
      EditLabel.BiDiMode = bdLeftToRight
      EditLabel.Caption = #26381#21153#22120#31471#21475#21495#65306
      EditLabel.ParentBiDiMode = False
      LabelPosition = lpLeft
      LabelSpacing = 3
      ParentBiDiMode = False
      ReadOnly = True
      TabOrder = 1
      Text = '0'
    end
    object LabeledEdit9: TLabeledEdit
      Left = 104
      Top = 21
      Width = 273
      Height = 12
      TabStop = False
      BevelInner = bvNone
      BevelKind = bkSoft
      BevelOuter = bvNone
      BiDiMode = bdLeftToRight
      BorderStyle = bsNone
      Color = clBtnFace
      EditLabel.Width = 72
      EditLabel.Height = 12
      EditLabel.BiDiMode = bdLeftToRight
      EditLabel.Caption = #26381#21153#22120#21517#31216#65306
      EditLabel.ParentBiDiMode = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      LabelPosition = lpLeft
      LabelSpacing = 3
      ParentBiDiMode = False
      ParentFont = False
      ReadOnly = True
      TabOrder = 2
      Text = '0'
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 88
    Width = 393
    Height = 89
    Caption = #25968#25454#24211#20449#24687
    TabOrder = 7
    object LabeledEdit6: TLabeledEdit
      Left = 104
      Top = 21
      Width = 97
      Height = 12
      TabStop = False
      BevelKind = bkSoft
      BevelOuter = bvNone
      BiDiMode = bdLeftToRight
      BorderStyle = bsNone
      Color = clBtnFace
      EditLabel.Width = 96
      EditLabel.Height = 12
      EditLabel.BiDiMode = bdLeftToRight
      EditLabel.Caption = #20840#37096#26381#21153#22120#25968#37327#65306
      EditLabel.ParentBiDiMode = False
      LabelPosition = lpLeft
      LabelSpacing = 3
      ParentBiDiMode = False
      ReadOnly = True
      TabOrder = 0
      Text = 'A'
    end
    object LabeledEdit4: TLabeledEdit
      Left = 320
      Top = 21
      Width = 57
      Height = 12
      TabStop = False
      BevelKind = bkSoft
      BevelOuter = bvNone
      BiDiMode = bdLeftToRight
      BorderStyle = bsNone
      Color = clBtnFace
      EditLabel.Width = 96
      EditLabel.Height = 12
      EditLabel.BiDiMode = bdLeftToRight
      EditLabel.Caption = #27880#20876#26381#21153#22120#25968#37327#65306
      EditLabel.ParentBiDiMode = False
      LabelPosition = lpLeft
      LabelSpacing = 3
      ParentBiDiMode = False
      ReadOnly = True
      TabOrder = 1
      Text = 'A'
    end
    object LabeledEdit7: TLabeledEdit
      Left = 104
      Top = 45
      Width = 97
      Height = 12
      TabStop = False
      BevelKind = bkSoft
      BevelOuter = bvNone
      BiDiMode = bdLeftToRight
      BorderStyle = bsNone
      Color = clBtnFace
      EditLabel.Width = 96
      EditLabel.Height = 12
      EditLabel.BiDiMode = bdLeftToRight
      EditLabel.Caption = #22312#32447#26381#21153#22120#25968#37327#65306
      EditLabel.ParentBiDiMode = False
      LabelPosition = lpLeft
      LabelSpacing = 3
      ParentBiDiMode = False
      ReadOnly = True
      TabOrder = 2
      Text = 'A'
    end
    object LabeledEdit8: TLabeledEdit
      Left = 320
      Top = 45
      Width = 57
      Height = 12
      TabStop = False
      BevelKind = bkSoft
      BevelOuter = bvNone
      BiDiMode = bdLeftToRight
      BorderStyle = bsNone
      Color = clBtnFace
      EditLabel.Width = 108
      EditLabel.Height = 12
      EditLabel.BiDiMode = bdLeftToRight
      EditLabel.Caption = #27880#20876#29992#25143#22312#32447#25968#37327#65306
      EditLabel.ParentBiDiMode = False
      LabelPosition = lpLeft
      LabelSpacing = 3
      ParentBiDiMode = False
      ReadOnly = True
      TabOrder = 3
      Text = 'A'
    end
    object LabeledEdit3: TLabeledEdit
      Left = 104
      Top = 69
      Width = 97
      Height = 12
      TabStop = False
      BevelKind = bkSoft
      BevelOuter = bvNone
      BiDiMode = bdLeftToRight
      BorderStyle = bsNone
      Color = clBtnFace
      EditLabel.Width = 84
      EditLabel.Height = 12
      EditLabel.BiDiMode = bdLeftToRight
      EditLabel.Caption = #20840#37096#29992#25143#25968#37327#65306
      EditLabel.ParentBiDiMode = False
      LabelPosition = lpLeft
      LabelSpacing = 3
      ParentBiDiMode = False
      ReadOnly = True
      TabOrder = 4
      Text = 'A'
    end
    object LabeledEdit5: TLabeledEdit
      Left = 320
      Top = 69
      Width = 57
      Height = 12
      TabStop = False
      BevelKind = bkSoft
      BevelOuter = bvNone
      BiDiMode = bdLeftToRight
      BorderStyle = bsNone
      Color = clBtnFace
      EditLabel.Width = 84
      EditLabel.Height = 12
      EditLabel.BiDiMode = bdLeftToRight
      EditLabel.Caption = #22312#32447#29992#25143#25968#37327#65306
      EditLabel.ParentBiDiMode = False
      LabelPosition = lpLeft
      LabelSpacing = 3
      ParentBiDiMode = False
      ReadOnly = True
      TabOrder = 5
      Text = 'A'
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 413
    Width = 489
    Height = 19
    Panels = <
      item
        Text = #26381#21153#22120#26102#38388#65306
        Width = 200
      end
      item
        Alignment = taRightJustify
        BiDiMode = bdLeftToRight
        ParentBiDiMode = False
        Text = ' '#36719#20214#24320#21457#23567#32452' 2002     Ver 0.01  '
        Width = 50
      end>
    SimplePanel = False
  end
  object Button1: TButton
    Left = 408
    Top = 251
    Width = 75
    Height = 22
    Caption = #21551#21160
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 408
    Top = 387
    Width = 75
    Height = 22
    Caption = #36864#20986
    TabOrder = 6
    OnClick = Button2Click
  end
  object UDPMemo: TMemo
    Left = 8
    Top = 208
    Width = 393
    Height = 201
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 9
  end
  object Button3: TButton
    Left = 408
    Top = 184
    Width = 75
    Height = 22
    Caption = #24191#25773#28040#24687
    TabOrder = 1
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 408
    Top = 323
    Width = 75
    Height = 22
    Caption = #26029#24320#36830#25509
    TabOrder = 4
    OnClick = Button4Click
  end
  object Edit1: TEdit
    Left = 8
    Top = 184
    Width = 393
    Height = 20
    TabOrder = 10
    OnKeyPress = Edit1KeyPress
  end
  object Button5: TButton
    Left = 408
    Top = 278
    Width = 75
    Height = 22
    Caption = #20851#38381
    TabOrder = 3
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 408
    Top = 351
    Width = 75
    Height = 22
    Caption = #28165#31354#32426#24405
    TabOrder = 5
    OnClick = Button6Click
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 176
  end
  object SServer: TServerSocket
    Active = False
    Port = 4046
    ServerType = stNonBlocking
    OnAccept = SServerAccept
    OnClientConnect = SServerClientConnect
    OnClientDisconnect = SServerClientDisconnect
    OnClientRead = SServerClientRead
    OnClientError = SServerClientError
    Left = 448
    Top = 120
  end
  object SClient: TClientSocket
    Active = False
    Address = '172.16.9.32'
    ClientType = ctNonBlocking
    Port = 4047
    Left = 448
    Top = 152
  end
end