client.~dfm

局域网内的2机通讯,好像还有些欠缺。由于没有时间和精力在继续改正

object Form1: TForm1
  Left = 194
  Top = 119
  Width = 696
  Height = 480
  Caption = #20004#26426#36890#20449#65292#25991#20214#20256#36865#23458#25143#31471#65293#65293'06 '#32423#35745#31185'6'#29677#23391#20891'3106006670'
  Color = clInfoBk
  Font.Charset = GB2312_CHARSET
  Font.Color = clMaroon
  Font.Height = -21
  Font.Name = #26999#20307'_GB2312'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 21
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 673
    Height = 313
    TabOrder = 0
    object Memo1: TMemo
      Left = 8
      Top = 16
      Width = 657
      Height = 289
      Lines.Strings = (
        'Memo1')
      TabOrder = 0
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 320
    Width = 337
    Height = 121
    TabOrder = 1
    object Memo2: TMemo
      Left = 8
      Top = 16
      Width = 321
      Height = 57
      Lines.Strings = (
        'Memo2')
      TabOrder = 0
    end
    object Button2: TButton
      Left = 88
      Top = 80
      Width = 105
      Height = 33
      Caption = #21457#36865#20449#24687
      TabOrder = 1
      OnClick = Button2Click
    end
  end
  object GroupBox3: TGroupBox
    Left = 352
    Top = 320
    Width = 329
    Height = 121
    TabOrder = 2
    object Label1: TLabel
      Left = 16
      Top = 16
      Width = 132
      Height = 21
      Caption = #26381#21153#22120#22320#22336#65306
    end
    object Button1: TButton
      Left = 32
      Top = 80
      Width = 65
      Height = 33
      Caption = #36830#25509
      TabOrder = 0
      OnClick = Button1Click
    end
    object Edit1: TEdit
      Left = 144
      Top = 16
      Width = 161
      Height = 29
      TabOrder = 1
      Text = '127.0.0.1'
    end
    object Button3: TButton
      Left = 256
      Top = 80
      Width = 57
      Height = 33
      Caption = #20851#38381
      TabOrder = 2
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 24
      Top = 48
      Width = 89
      Height = 25
      Caption = #27983#35272
      TabOrder = 3
      OnClick = Button4Click
    end
    object Edit2: TEdit
      Left = 144
      Top = 48
      Width = 161
      Height = 29
      TabOrder = 4
    end
    object Button5: TButton
      Left = 136
      Top = 80
      Width = 89
      Height = 33
      Caption = #21457#36865#25991#20214
      TabOrder = 5
      OnClick = Button5Click
    end
  end
  object Client: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 1024
    OnConnect = ClientConnect
    OnDisconnect = ClientDisconnect
    OnRead = ClientRead
    Left = 32
    Top = 216
  end
  object NMStrm1: TNMStrm
    Port = 6711
    ReportLevel = 0
    Left = 168
    Top = 208
  end
  object OpenDialog1: TOpenDialog
    Left = 296
    Top = 232
  end
end