ts.dfm

tcp测试程序

object Form1: TForm1
  Left = 252
  Top = 207
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'SOCKET测试界面'
  ClientHeight = 424
  ClientWidth = 643
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 8
    Top = 8
    Width = 625
    Height = 385
    ActivePage = TabSheet1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object TabSheet2: TTabSheet
      Caption = '服务器'
      ImageIndex = 1
      object Label3: TLabel
        Left = 16
        Top = 16
        Width = 15
        Height = 20
        AutoSize = False
        Caption = 'IP'
        Enabled = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 216
        Top = 16
        Width = 49
        Height = 20
        AutoSize = False
        Caption = '端口'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Edit1: TEdit
        Left = 48
        Top = 16
        Width = 81
        Height = 28
        Enabled = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        Text = '连接数'
      end
      object sport: TEdit
        Left = 272
        Top = 16
        Width = 73
        Height = 24
        TabOrder = 1
        Text = '10103'
      end
      object start: TBitBtn
        Left = 386
        Top = 12
        Width = 89
        Height = 33
        Caption = '启动'
        TabOrder = 2
        OnClick = startClick
        Kind = bkAll
      end
      object GroupBox2: TGroupBox
        Left = 3
        Top = 45
        Width = 609
        Height = 303
        Caption = '接收内容'
        TabOrder = 3
        object Label7: TLabel
          Left = 17
          Top = 24
          Width = 79
          Height = 16
          Caption = '数据块长度：0'
        end
        object m11: TMemo
          Left = 7
          Top = 43
          Width = 595
          Height = 253
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Lines.Strings = (
            '')
          ParentFont = False
          TabOrder = 0
        end
        object m12: TMemo
          Left = 7
          Top = 43
          Width = 595
          Height = 253
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = '@宋体'
          Font.Style = []
          Lines.Strings = (
            'address  :00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F')
          ParentFont = False
          TabOrder = 4
        end
        object RadioButton3: TRadioButton
          Left = 288
          Top = 16
          Width = 81
          Height = 17
          Caption = '文本方式'
          TabOrder = 1
          OnClick = RadioButton3Click
        end
        object RadioButton4: TRadioButton
          Left = 384
          Top = 16
          Width = 81
          Height = 17
          Caption = '二进制方式'
          Checked = True
          TabOrder = 2
          TabStop = True
          OnClick = RadioButton4Click
        end
        object BitBtn3: TBitBtn
          Left = 523
          Top = 14
          Width = 75
          Height = 25
          Caption = '清除'
          TabOrder = 3
          OnClick = BitBtn3Click
        end
      end
      object BitBtn4: TBitBtn
        Left = 522
        Top = 12
        Width = 81
        Height = 33
        Caption = '退出'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 4
        Kind = bkClose
      end
      object se1: TSpinEdit
        Left = 136
        Top = 16
        Width = 65
        Height = 30
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxValue = 0
        MinValue = 0
        ParentFont = False
        TabOrder = 5
        Value = 0
      end
    end
    object TabSheet1: TTabSheet
      Caption = '客户端(文本)'
      object Label1: TLabel
        Left = 3
        Top = 15
        Width = 86
        Height = 20
        AutoSize = False
        Caption = '服务器IP'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 251
        Top = 15
        Width = 46
        Height = 20
        AutoSize = False
        Caption = '端口'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 4
        Top = 52
        Width = 69
        Height = 16
        AutoSize = False
        Caption = '发送内容'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object sendstr: TEdit
        Left = 83
        Top = 48
        Width = 524
        Height = 24
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnKeyUp = sendstrKeyUp
      end
      object cip: TEdit
        Left = 96
        Top = 9
        Width = 145
        Height = 28
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        Text = '10.143.10.15'
      end
      object cport: TEdit
        Left = 306
        Top = 8
        Width = 73
        Height = 28
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        Text = '18621'
      end
      object ccon: TBitBtn
        Left = 411
        Top = 7
        Width = 81
        Height = 33
        Caption = '联接'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        OnClick = cconClick
        Kind = bkRetry
      end
      object sndb2: TBitBtn
        Left = 523
        Top = 7
        Width = 75
        Height = 33
        Caption = '发送'
        Enabled = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []