unittcpudp.~dfm

采用WINSOCK2编写的TCP通信程序

object FormTCPUDP: TFormTCPUDP
  Left = 180
  Top = 100
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'TCP/UDP'#25968#25454#36890#35759
  ClientHeight = 258
  ClientWidth = 664
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel
    Left = 17
    Top = 170
    Width = 59
    Height = 17
    AutoSize = False
    Caption = #25509#25910#20869#23481
  end
  object Label3: TLabel
    Left = 80
    Top = 146
    Width = 417
    Height = 13
    AutoSize = False
    Caption = 
      #25805#20316#30721'                                '#21253#24207#21015#21495'                         ' +
      '                         '#21629#20196#23383
  end
  object Bevel2: TBevel
    Left = -8
    Top = 134
    Width = 670
    Height = 2
  end
  object Label6: TLabel
    Left = 5
    Top = 80
    Width = 73
    Height = 13
    AutoSize = False
    Caption = #26381#21153#31471#21457#24448
  end
  object Label7: TLabel
    Left = 18
    Top = 112
    Width = 57
    Height = 13
    AutoSize = False
    Caption = #21457#36865#20869#23481
  end
  object BtnSend: TButton
    Left = 583
    Top = 79
    Width = 65
    Height = 25
    Caption = #21457#36865#25968#25454
    Enabled = False
    TabOrder = 0
    OnClick = BtnSendClick
  end
  object MemoReceive: TMemo
    Left = 80
    Top = 170
    Width = 569
    Height = 64
    ScrollBars = ssVertical
    TabOrder = 1
  end
  object EditSend: TEdit
    Left = 80
    Top = 108
    Width = 569
    Height = 21
    TabOrder = 2
  end
  object STOpCode: TStaticText
    Left = 128
    Top = 146
    Width = 41
    Height = 17
    Alignment = taCenter
    AutoSize = False
    BevelKind = bkFlat
    BorderStyle = sbsSunken
    TabOrder = 3
  end
  object STIndex: TStaticText
    Left = 280
    Top = 146
    Width = 81
    Height = 17
    Alignment = taCenter
    AutoSize = False
    BevelKind = bkFlat
    BorderStyle = sbsSunken
    TabOrder = 4
  end
  object STCommand: TStaticText
    Left = 472
    Top = 146
    Width = 41
    Height = 17
    Alignment = taCenter
    AutoSize = False
    BevelKind = bkFlat
    BorderStyle = sbsSunken
    TabOrder = 5
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 161
    Height = 73
    TabOrder = 6
    object Label1: TLabel
      Left = 5
      Top = 22
      Width = 73
      Height = 13
      AutoSize = False
      Caption = #26412#22320#31471#21475#21495
    end
    object EditHostPort: TEdit
      Left = 80
      Top = 17
      Width = 49
      Height = 21
      TabOrder = 0
      OnChange = EditHostPortChange
    end
    object ChkBind: TCheckBox
      Left = 80
      Top = 48
      Width = 49
      Height = 17
      Caption = #32465#23450
      TabOrder = 1
      OnClick = ChkBindClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 160
    Top = 0
    Width = 209
    Height = 73
    TabOrder = 7
    object PanelDest: TPanel
      Left = 8
      Top = 8
      Width = 193
      Height = 60
      BevelOuter = bvNone
      TabOrder = 0
      object Label4: TLabel
        Left = 6
        Top = 12
        Width = 65
        Height = 17
        AutoSize = False
        Caption = #30446#30340'ip'#22320#22336
      end
      object Label5: TLabel
        Left = 0
        Top = 41
        Width = 73
        Height = 17
        AutoSize = False
        Caption = #30446#30340#31471#21475#21495
      end
      object EditRemoteHost: TEdit
        Left = 80
        Top = 6
        Width = 89
        Height = 21
        TabOrder = 0
        OnChange = EditRemoteHostChange
      end
      object EditRemotePort: TEdit
        Left = 80
        Top = 37
        Width = 49
        Height = 21
        TabOrder = 1
        OnChange = EditRemotePortChange
      end
    end
  end
  object GroupBox3: TGroupBox
    Left = 368
    Top = 0
    Width = 201
    Height = 73
    TabOrder = 8
    object Bevel1: TBevel
      Left = 100
      Top = 6
      Width = 2
      Height = 65
    end
    object RBTCP: TRadioButton
      Left = 24
      Top = 16
      Width = 73
      Height = 17
      Caption = 'TCP'#26041#24335
      TabOrder = 0
      OnClick = RBTCPClick
    end
    object RBUDP: TRadioButton
      Left = 24
      Top = 48
      Width = 73
      Height = 17
      Caption = 'UDP'#26041#24335
      TabOrder = 1
      OnClick = RBUDPClick
    end
    object Panel1: TPanel
      Left = 112
      Top = 8
      Width = 81
      Height = 57
      BevelOuter = bvNone
      TabOrder = 2
      object RBClient: TRadioButton
        Left = 9
        Top = 40
        Width = 57
        Height = 17
        Caption = #23458#25143#31471
        Enabled = False
        TabOrder = 0
        OnClick = RBClientClick
      end
      object RBServer: TRadioButton
        Left = 8
        Top = 8
        Width = 73
        Height = 17
        Caption = #26381#21153#22120#31471
        Enabled = False
        TabOrder = 1
        OnClick = RBServerClick
      end
    end
  end
  object GroupBox4: TGroupBox
    Left = 568
    Top = 0
    Width = 93
    Height = 73
    TabOrder = 9
    object BtnConnect: TButton
      Left = 15
      Top = 10
      Width = 66
      Height = 22
      Caption = #36830#25509
      TabOrder = 0
      OnClick = BtnConnectClick
    end
    object BtnClose: TButton
      Left = 15
      Top = 42
      Width = 66
      Height = 22
      Caption = #20851#38381
      Enabled = False
      TabOrder = 1
      OnClick = BtnCloseClick
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 235
    Width = 664
    Height = 23
    Panels = <
      item
        Width = 380
      end
      item
        Width = 150
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object CmbSendTo: TComboBox
    Left = 80
    Top = 78
    Width = 369
    Height = 21
    ItemHeight = 13
    TabOrder = 11
    OnKeyPress = CmbSendToKeyPress
  end
end