unit1.~dfm

实现网络消息信史服务的程序

    00000000000000000000000000000000000000000000000013C9F011B3D60F9E
    BD00000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00004FE0FF18D7FF11BBDF000000000000000000000000000000000000000000
    00000000000000000000000012C5EB11B5D80FA4C30000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000036DCFF12C5EB0F
    A3C200000000000000000000000000000000000000000000000000000013C6EC
    12C3E911B8DB10ABCC0000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000005CE3FF14D6FF11B4D700000000000000000000
    000000000000000000000000000000000012C5EB12C4EA12BCE1000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0085EAFF4BE0FF13CDF410ADCE00000000000000000000000000000000000000
    000012BFE413C8EE13C8EF12C3E9000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000000000000000000000000000000000000000083E9FF46DFFF13CC
    F311B1D300000000000000000000000000000012BCE013C8EF13CFF713CEF600
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000000000000000000000089EBFF53E1FF17D6FF12C4EA11B8DB11B4
    D711B9DD12C3E913CEF514D5FE17D6FF00000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000009BEEFF74E7FF4DE0FF2FDBFF1FD8FF1ED8FF25D9FF2FDBFF31DB
    FF00000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    9BEEFF84EAFF72E6FF66E4FF5DE3FF0000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000FFFFFFFFFFFF
    FFE0FFFFFFFFFFFFFFE0FFFFFFFFFFFFFFE0FFFFFFFFFFFFFFE0FFFC00000007
    FFE0FFF800000007FFE0FFF800000007FFE0FFF800000007FFE0FFF800000007
    FFE0FFF001FFC007FFE0FFF001FFC007FFE0FFF041FFC007FFE0FFE0C1FFC007
    FFE0FFE0C1FFC183FFE0FFE0E0FFC1C3FFE0FFC1E0FFC1C3FFE0FFC1E0FFC3C1
    FFE0FF83F07FC3C1FFE0FF83F07F83E1FFE0FF87F07F87E0FFE0FF07F07F87F0
    FFE0FF0FF03F87F87FE0FE0FF03F07F87FE0FE0FF03F07F83FE0FC1FF03F07F8
    3FE0FC1FF00007F81FE0F83FF00007FC1FE0F83FF00007FC0FE0F03FF00007FE
    07E0F07FF00007FE07E0E07FF00007FE03E0E07FF00007FF03E0C07FF00007FF
    01E0C0FFF00007FF00E0C0FFF00007FF80E0C0FFF00007FF8060E0FFF00007FF
    8060F0FFF00007FFC060F8FFF00007FFC1E0FCFFF00007FFC7E0FFFFF00007FF
    FFE0FFFFF00007FFFFE0FFFFF00007FFFFE0FFFFFC001FFFFFE0FFFFFC7F0FFF
    FFE0FFFFF8FF8FFFFFE0FFFFF8FF8FFFFFE0FFFFF1FFC7FFFFE0FFFFF1FFC7FF
    FFE0FFFFF1FFC7FFFFE0FFFFF1FFC7FFFFE0FFFFF8FF87FFFFE0FFFFF8FF8FFF
    FFE0FFFFF87F0FFFFFE0FFFFFC3E1FFFFFE0FFFFFE003FFFFFE0FFFFFF007FFF
    FFE0FFFFFFC1FFFFFFE0FFFFFFFFFFFFFFE0}
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 70
    Height = 13
    Caption = #23545#26041'IP'#22320#22336#65306
  end
  object Label2: TLabel
    Left = 8
    Top = 56
    Width = 60
    Height = 13
    Caption = #21457#36865#28040#24687#65306
  end
  object Label3: TLabel
    Left = 216
    Top = 8
    Width = 60
    Height = 13
    Caption = #40681#35748#28040#24687#65306
  end
  object IP: TComboBox
    Left = 8
    Top = 24
    Width = 185
    Height = 21
    Hint = #25552#31034#65306#35831#36755#20837#23545#26041#35745#31639#26426#30340'IP'#12290#22914#26524#26159#23616#22495#32593#65292#20063#21487#36755#20837#35745#31639#26426#21517
    BevelKind = bkFlat
    Ctl3D = False
    ItemHeight = 13
    ParentCtl3D = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    Text = 'IP'
    Items.Strings = (
      'Localhost')
  end
  object Msg: TMemo
    Left = 8
    Top = 72
    Width = 193
    Height = 81
    Hint = #25552#31034#65306#36755#20837#24453#21457#36865#28040#24687#65292#28982#21518#35831#25353'['#21457#36865#28040#24687']'
    Ctl3D = False
    Lines.Strings = (
      'Msg')
    ParentCtl3D = False
    ParentShowHint = False
    ScrollBars = ssVertical
    ShowHint = True
    TabOrder = 1
  end
  object AddMsg: TLabeledEdit
    Left = 216
    Top = 200
    Width = 209
    Height = 19
    Ctl3D = False
    EditLabel.Width = 60
    EditLabel.Height = 13
    EditLabel.Caption = #28155#21152#28040#24687#65306
    LabelPosition = lpAbove
    LabelSpacing = 3
    ParentCtl3D = False
    TabOrder = 2
    OnChange = AddMsgChange
  end
  object ManMsg: TListBox
    Left = 216
    Top = 24
    Width = 209
    Height = 153
    Hint = #25552#31034#65306#21452#20987#21487#21152#20837#21040'['#21457#36865#28040#24687']'#26694#20013
    Ctl3D = False
    ItemHeight = 13
    ParentCtl3D = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnClick = ManMsgClick
  end
  object BitBtn1: TBitBtn
    Left = 336
    Top = 232
    Width = 85
    Height = 30
    Caption = #21152#20837#28040#24687
    Enabled = False
    TabOrder = 4
    OnClick = BitBtn1Click
    Kind = bkIgnore
  end
  object MSend: TBitBtn
    Left = 8
    Top = 200
    Width = 70
    Height = 30
    Hint = #21457#36865#28040#24687#26694#20013#30340#28040#24687#32473#23545#26041
    Caption = #21457#36865
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    OnClick = MSendClick
    Kind = bkRetry
  end
  object TS: TLabeledEdit
    Left = 216
    Top = 293
    Width = 209
    Height = 19
    Ctl3D = False
    EditLabel.Width = 60
    EditLabel.Height = 13
    EditLabel.Caption = #29366#24577#25552#31034#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    LabelPosition = lpAbove
    LabelSpacing = 3
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 6
  end
  object FromName: TLabeledEdit
    Left = 8
    Top = 176
    Width = 185
    Height = 19
    Hint = #25552#31034#65306#26174#31034#22312#23545#26041#35745#31639#26426#26426#19978#30340#21517#23383#65288#26082#21457#36865#26041#65289
    Ctl3D = False
    EditLabel.Width = 60
    EditLabel.Height = 13
    EditLabel.Caption = #26174#31034#21517#23383#65306
    LabelPosition = lpAbove
    LabelSpacing = 3
    ParentCtl3D = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 240
    Width = 193
    Height = 73
    Caption = #21442#25968#35774#32622
    TabOrder = 8
    object Label4: TLabel
      Left = 8
      Top = 24
      Width = 60
      Height = 13
      Caption = #21457#36865#27425#25968#65306
    end
    object ShowCS: TLabel
      Left = 136
      Top = 24
      Width = 9
      Height = 16
      Hint = #24050#32463#25104#21151#21457#36865#30340#28040#24687#20010#25968
      Caption = '#'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
    end
    object Ran: TCheckBox
      Left = 8
      Top = 48
      Width = 169
      Height = 17
      Caption = #24490#29615#21457#36865#40681#35748#28040#24687#20013#30340#28040#24687
      TabOrder = 0
    end
    object UpDown1: TUpDown
      Left = 105
      Top = 20
      Width = 16
      Height = 21
      Associate = Edit1
      Min = 1
      Max = 1000
      Position = 1
      TabOrder = 1
      Thousands = False
      Wrap = False
    end
    object Edit1: TEdit
      Left = 72
      Top = 20
      Width = 33
      Height = 21
      TabOrder = 2
      Text = '1'
    end
  end
  object MCancel: TBitBtn
    Left = 88
    Top = 200
    Width = 70
    Height = 30
    Hint = #20572#27490#24403#21069#30340#21457#36865#25805#20316
    Caption = #21462#28040
    Enabled = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 9
    OnClick = MCancelClick
    Kind = bkNo
  end
end