mainunit.~dfm

序采用网上介绍的方法实现最基本的P2P方式通讯.模拟实现即时消息互发. 2.P2P通讯说明: 1).网关类型是在理想状态下.即非对称型NAT. 2).同在一个内网的两个CLIENT端通讯时,

object Client: TClient
  Left = 214
  Top = 133
  Width = 527
  Height = 378
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'tQClient[PeerToPeer'#27979#35797#31243#24207' 05.02.27 v0.0.2]'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 519
    Height = 65
    Align = alTop
    TabOrder = 0
    object Label3: TLabel
      Left = 240
      Top = 12
      Width = 81
      Height = 13
      AutoSize = False
      Caption = #26381#21153#22120#31471#21475':'
    end
    object Label1: TLabel
      Left = 8
      Top = 36
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #29992#25143#26165#31216':'
    end
    object Label2: TLabel
      Left = 8
      Top = 12
      Width = 65
      Height = 21
      AutoSize = False
      Caption = #26381#21153#22120'IP:'
    end
    object UserNameEdit: TEdit
      Left = 72
      Top = 36
      Width = 153
      Height = 21
      BevelInner = bvNone
      BevelKind = bkFlat
      BorderStyle = bsNone
      ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
      TabOrder = 0
      Text = 'testBoy'
    end
    object ServerIPEdit: TEdit
      Left = 72
      Top = 12
      Width = 153
      Height = 21
      BevelInner = bvNone
      BevelKind = bkFlat
      BorderStyle = bsNone
      ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
      TabOrder = 1
      Text = '127.0.0.1'
    end
    object ServerPortEdit: TEdit
      Left = 328
      Top = 12
      Width = 105
      Height = 21
      BevelInner = bvNone
      BevelKind = bkFlat
      BorderStyle = bsNone
      ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
      TabOrder = 2
      Text = '9001'
    end
    object LogonButton: TButton
      Left = 240
      Top = 35
      Width = 89
      Height = 25
      Caption = #30331#24405
      TabOrder = 3
      OnClick = LogonButtonClick
    end
    object LogoutButton: TButton
      Left = 344
      Top = 35
      Width = 81
      Height = 25
      Caption = #27880#38144
      Enabled = False
      TabOrder = 4
      OnClick = LogoutButtonClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 65
    Width = 519
    Height = 286
    Align = alClient
    TabOrder = 1
    DesignSize = (
      519
      286)
    object Label4: TLabel
      Left = 240
      Top = 120
      Width = 39
      Height = 13
      Caption = #25509#25910#65306
    end
    object SendMsgEdit: TRichEdit
      Left = 232
      Top = 32
      Width = 281
      Height = 49
      BevelInner = bvNone
      BevelKind = bkFlat
      BorderStyle = bsNone
      ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
      Lines.Strings = (
        #20320#22909#21834'!'#21457#36865#28040#24687#26102#20808#36873#20013#24038#36793#21015#34920#30340#28040#24687#25509#25910
        #32773'!')
      TabOrder = 0
    end
    object UserList: TListView
      Left = 8
      Top = 0
      Width = 217
      Height = 265
      Anchors = [akLeft, akTop, akBottom]
      BevelInner = bvNone
      BevelKind = bkFlat
      BorderStyle = bsNone
      Columns = <
        item
          Caption = 'Name'
          Width = 80
        end
        item
          Caption = 'IP'
          Width = 80
        end
        item
          Caption = 'PORT'
        end
        item
          Caption = 'P2P'
          Width = 40
        end>
      FlatScrollBars = True
      GridLines = True
      HideSelection = False
      HotTrack = True
      ReadOnly = True
      RowSelect = True
      TabOrder = 1
      ViewStyle = vsReport
    end
    object SendMsgButton: TButton
      Left = 232
      Top = 88
      Width = 89
      Height = 25
      Caption = #21457#36865
      Enabled = False
      TabOrder = 2
      OnClick = SendMsgButtonClick
    end
    object StatusBar1: TStatusBar
      Left = 1
      Top = 263
      Width = 517
      Height = 22
      Panels = <
        item
          Width = 350
        end
        item
          Width = 50
        end>
    end
    object RecvEdit: TRichEdit
      Left = 232
      Top = 136
      Width = 281
      Height = 121
      BevelInner = bvNone
      BevelKind = bkFlat
      BorderStyle = bsNone
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
      ParentFont = False
      ScrollBars = ssVertical
      TabOrder = 4
    end
    object CheckBox1: TCheckBox
      Left = 328
      Top = 92
      Width = 73
      Height = 17
      Caption = #38656#35201#21453#39304
      Checked = True
      State = cbChecked
      TabOrder = 5
    end
    object P2PTestButton: TButton
      Left = 232
      Top = 3
      Width = 137
      Height = 25
      Caption = 'PeerToPeer'#26816#27979
      Enabled = False
      TabOrder = 6
      OnClick = P2PTestButtonClick