chatmain.xfm

DP协议使用端口号为不同的应用保留其各自的数据传输通道。数据发送一方（可以是客户端或服务器端）将UDP数据报通过源端口发送出去

object Form1: TForm1
  Left = 55
  Top = 42
  Width = 1026
  Height = 680
  VertScrollBar.Range = 689
  HorzScrollBar.Range = 1001
  ActiveControl = memRecv
  BorderStyle = fbsSingle
  Caption = 'Chat'
  Color = clGray
  Font.Color = clYellow
  Font.Height = 17
  Font.Name = 'MS Sans Serif'
  Font.Pitch = fpVariable
  Font.Style = []
  Font.Weight = 40
  ParentFont = False
  WindowState = wsMaximized
  OnCreate = btnActivateServerClick
  PixelsPerInch = 96
  TextHeight = 20
  TextWidth = 8
  object memRecv: TMemo
    Left = 16
    Top = 136
    Width = 985
    Height = 417
    Color = clSilver
    Font.Color = clNavy
    Font.Height = 16
    Font.Name = 'MS Sans Serif'
    Font.Pitch = fpVariable
    Font.Style = [fsBold]
    ParentFont = False
    ReadOnly = True
    ScrollBars = ssAutoVertical
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 0
    Top = 553
    Width = 1026
    Height = 136
    Align = alBottom
    BevelOuter = bvNone
    Color = clGray
    TabOrder = 1
    object memSend: TMemo
      Left = 16
      Top = 0
      Width = 921
      Height = 73
      Color = clSilver
      Font.Color = 14486315
      Font.Height = 17
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpVariable
      Font.Style = []
      Font.Weight = 40
      ParentFont = False
      ScrollBars = ssAutoVertical
      TabOrder = 0
    end
    object Panel2: TPanel
      Left = 926
      Top = 0
      Width = 100
      Height = 136
      Align = alRight
      BevelOuter = bvNone
      ParentColor = True
      TabOrder = 1
      object btnSend: TButton
        Left = 8
        Top = 0
        Width = 65
        Height = 73
        Caption = #21457#36865
        Font.Color = clBlue
        Font.Height = 20
        Font.Name = 'MS Sans Serif'
        Font.Pitch = fpVariable
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        OnClick = btnSendClick
      end
    end
    object Label2: TLabel
      Left = 520
      Top = 95
      Width = 89
      Height = 20
      AutoSize = False
      Caption = #36828#31243#31471#21475
      Layout = tlCenter
    end
    object edtRemotePort: TEdit
      Left = 637
      Top = 92
      Width = 156
      Height = 28
      Color = clDark
      MaxLength = 32767
      TabOrder = 3
      Text = '5000'
    end
    object Label1: TLabel
      Left = 74
      Top = 95
      Width = 99
      Height = 20
      AutoSize = False
      Caption = #36828#31243'  IP:'
      Layout = tlCenter
    end
    object edtRemoteHost: TEdit
      Left = 199
      Top = 91
      Width = 154
      Height = 28
      Color = clDark
      MaxLength = 32767
      TabOrder = 5
      Text = '192.168.15.25'
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 1026
    Height = 105
    Align = alTop
    Color = 15233886
    Font.Color = clBlack
    Font.Height = 17
    Font.Name = 'MS Sans Serif'
    Font.Pitch = fpVariable
    Font.Style = []
    Font.Weight = 40
    ParentFont = False
    TabOrder = 2
    object Label3: TLabel
      Left = 434
      Top = 39
      Width = 79
      Height = 20
      AutoSize = False
      Caption = #26412#22320#31471#21475#65306
      Layout = tlCenter
    end
    object edtLocalPort: TEdit
      Left = 534
      Top = 35
      Width = 115
      Height = 28
      MaxLength = 32767
      TabOrder = 0
      Text = '5000'
    end
    object btnActivateServer: TButton
      Left = 808
      Top = 24
      Width = 121
      Height = 57
      Caption = #35774#32622#26412#22320#31471#21475
      TabOrder = 1
      OnClick = btnActivateServerClick
    end
    object Edit1: TEdit
      Left = 158
      Top = 35
      Width = 139
      Height = 28
      MaxLength = 32767
      TabOrder = 3
      Text = 'playboy'
    end
    object Label7: TLabel
      Left = 58
      Top = 39
      Width = 79
      Height = 20
      AutoSize = False
      Caption = #21602'     '#31216#65306
      Layout = tlCenter
    end
  end
  object TcpClient1: TTcpClient
    Left = 576
    Top = 298
  end
  object TcpServer1: TTcpServer
    OnAccept = TcpServer1Accept
    Left = 680
    Top = 274
  end
end