unit1.dfm

delphi+socket通讯的例子

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = #26381#21153#31471
  ClientHeight = 378
  ClientWidth = 700
  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 Ztailan: TStatusBar
    Left = 0
    Top = 359
    Width = 700
    Height = 19
    Panels = <
      item
        Width = 100
      end
      item
        Width = 50
      end>
    ExplicitWidth = 559
  end
  object GroupBox1: TGroupBox
    Left = 506
    Top = 0
    Width = 191
    Height = 250
    Caption = #26085#24535
    TabOrder = 1
    object Memo1: TMemo
      Left = 2
      Top = 15
      Width = 187
      Height = 233
      Align = alClient
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clLime
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      ExplicitLeft = 3
      ExplicitTop = 14
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 0
    Width = 360
    Height = 257
    Caption = #32842#22825#35760#24405
    TabOrder = 2
    object Memo2: TMemo
      Left = 3
      Top = 15
      Width = 350
      Height = 235
      TabOrder = 0
    end
  end
  object GroupBox3: TGroupBox
    Left = 510
    Top = 256
    Width = 185
    Height = 97
    Caption = #35774#32622
    TabOrder = 3
    object Label1: TLabel
      Left = 24
      Top = 24
      Width = 48
      Height = 13
      Caption = #26381#21153#31471#21475
    end
    object Edit1: TEdit
      Left = 94
      Top = 19
      Width = 73
      Height = 21
      TabOrder = 0
      Text = '1987'
    end
    object Button1: TButton
      Left = 97
      Top = 62
      Width = 75
      Height = 25
      Caption = #24320#22987#30417#21548
      TabOrder = 1
      OnClick = Button1Click
    end
  end
  object GroupBox4: TGroupBox
    Left = 0
    Top = 263
    Width = 360
    Height = 50
    Caption = #21457#36865#28040#24687
    TabOrder = 4
    object Edit2: TEdit
      Left = 5
      Top = 16
      Width = 280
      Height = 21
      TabOrder = 0
    end
    object Button2: TButton
      Left = 291
      Top = 16
      Width = 58
      Height = 22
      Caption = #21457#36865
      TabOrder = 1
      OnClick = Button2Click
    end
  end
  object GroupBox5: TGroupBox
    Left = 362
    Top = 0
    Width = 141
    Height = 353
    Caption = #36830#25509#21015#34920
    TabOrder = 5
    object ListBox1: TListBox
      Left = 2
      Top = 15
      Width = 137
      Height = 336
      Align = alClient
      ItemHeight = 13
      TabOrder = 0
      ExplicitLeft = 20
      ExplicitTop = 152
      ExplicitWidth = 121
      ExplicitHeight = 97
    end
  end
  object ServerSocket1: TServerSocket
    Active = False
    Port = 0
    ServerType = stNonBlocking
    OnClientConnect = ServerSocket1ClientConnect
    OnClientDisconnect = ServerSocket1ClientDisconnect
    OnClientRead = ServerSocket1ClientRead
    Left = 424
    Top = 312
  end
end