server.dfm

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

object Form1: TForm1
  Left = 192
  Top = 114
  Width = 696
  Height = 480
  Caption = #20004#26426#36890#20449#65292#25991#20214#20256#36865#26381#21153#22120#31471
  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 = 241
    TabOrder = 0
    object Memo1: TMemo
      Left = 8
      Top = 16
      Width = 657
      Height = 217
      Lines.Strings = (
        'Memo1')
      TabOrder = 0
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 256
    Width = 369
    Height = 185
    TabOrder = 1
    object Memo2: TMemo
      Left = 8
      Top = 16
      Width = 353
      Height = 129
      Lines.Strings = (
        'Memo2')
      TabOrder = 0
    end
    object Button2: TButton
      Left = 128
      Top = 152
      Width = 81
      Height = 25
      Caption = #21457#36865
      TabOrder = 1
      OnClick = Button2Click
    end
  end
  object GroupBox3: TGroupBox
    Left = 384
    Top = 256
    Width = 297
    Height = 185
    TabOrder = 2
    object Label1: TLabel
      Left = 8
      Top = 64
      Width = 110
      Height = 21
      Caption = #23458#25143#22320#22336#65306
    end
    object Button1: TButton
      Left = 32
      Top = 144
      Width = 73
      Height = 33
      Caption = #21551#21160
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button3: TButton
      Left = 128
      Top = 144
      Width = 73
      Height = 33
      Caption = #20851#38381
      TabOrder = 1
      OnClick = Button3Click
    end
    object Edit1: TEdit
      Left = 112
      Top = 56
      Width = 177
      Height = 29
      TabOrder = 2
    end
  end
  object Server: TServerSocket
    Active = False
    Port = 1024
    ServerType = stNonBlocking
    OnAccept = ServerAccept
    OnClientRead = ServerClientRead
    Left = 480
    Top = 360
  end
  object NMStrmServ1: TNMStrmServ
    Port = 6711
    ReportLevel = 0
    OnMSG = NMStrmServ1MSG
    Left = 624
    Top = 392
  end
  object SaveDialog1: TSaveDialog
    Left = 408
    Top = 368
  end
end