client.~dfm

interpress 编程示例,SERVER&CLIENT

object Form1: TForm1
  Left = 199
  Top = 182
  Width = 483
  Height = 282
  Caption = #23458#25143#31471
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 328
    Top = 8
    Width = 145
    Height = 25
    AutoSize = False
    Caption = #25552#20132#32473#26381#21153#22120#31471#30340#21629#20196#38598
    Font.Charset = GB2312_CHARSET
    Font.Color = clPurple
    Font.Height = 13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 330
    Top = 192
    Width = 145
    Height = 25
    AutoSize = False
    Caption = #26381#21153#22120#30340'IP'#22320#22336
    Font.Charset = GB2312_CHARSET
    Font.Color = clPurple
    Font.Height = 13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 2
    Top = 8
    Width = 191
    Height = 25
    AutoSize = False
    Caption = #26381#21153#22120#31471#21457#22238#26469#30340#21709#24212#28040#24687
    Font.Charset = GB2312_CHARSET
    Font.Color = clPurple
    Font.Height = 13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object MemoCommands: TMemo
    Left = 328
    Top = 32
    Width = 137
    Height = 153
    Lines.Strings = (
      '37642')
    TabOrder = 0
  end
  object ListServerInfo: TListBox
    Left = 0
    Top = 32
    Width = 241
    Height = 217
    ItemHeight = 13
    TabOrder = 1
  end
  object ButtonConnect: TButton
    Left = 264
    Top = 184
    Width = 49
    Height = 25
    Caption = #36830#25509
    TabOrder = 2
    OnClick = ButtonConnectClick
  end
  object ButtonSend: TButton
    Left = 264
    Top = 32
    Width = 49
    Height = 25
    Caption = #21457#36865#21629#20196
    Enabled = False
    TabOrder = 3
    OnClick = ButtonSendClick
  end
  object ButtonClear: TButton
    Left = 264
    Top = 104
    Width = 49
    Height = 25
    Caption = #28165#31354
    Enabled = False
    TabOrder = 4
    OnClick = ButtonClearClick
  end
  object Edit1: TEdit
    Left = 328
    Top = 224
    Width = 137
    Height = 21
    TabOrder = 5
    Text = '127.0.0.1'
  end
  object IdTCPClient1: TIdTCPClient
    MaxLineAction = maException
    ReadTimeout = 0
    OnDisconnected = IdTCPClient1Disconnected
    OnConnected = IdTCPClient1Connected
    Port = 6002
    Left = 440
    Top = 192
  end
  object IdAntiFreeze1: TIdAntiFreeze
    Left = 264
    Top = 216
  end
end