ts.dfm

tcp测试程序

        ParentFont = False
        TabOrder = 4
        OnClick = sndb2Click
        Kind = bkYes
      end
      object GroupBox1: TGroupBox
        Left = 3
        Top = 75
        Width = 609
        Height = 278
        Caption = '接收内容'
        TabOrder = 5
        object Label6: TLabel
          Left = 17
          Top = 24
          Width = 79
          Height = 16
          Caption = '数据块长度：0'
        end
        object m21: TMemo
          Left = 7
          Top = 43
          Width = 595
          Height = 223
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 4
        end
        object m22: TMemo
          Left = 7
          Top = 43
          Width = 595
          Height = 223
          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 = 0
        end
        object RadioButton1: TRadioButton
          Left = 288
          Top = 16
          Width = 81
          Height = 17
          Caption = '文本方式'
          TabOrder = 1
          OnClick = RadioButton1Click
        end
        object RadioButton2: TRadioButton
          Left = 384
          Top = 16
          Width = 81
          Height = 17
          Caption = '二进制方式'
          Checked = True
          TabOrder = 2
          TabStop = True
          OnClick = RadioButton2Click
        end
        object BitBtn1: TBitBtn
          Left = 523
          Top = 14
          Width = 75
          Height = 25
          Caption = '清除'
          TabOrder = 3
          OnClick = BitBtn1Click
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = '客户端(二进制)'
      ImageIndex = 2
      object Label8: TLabel
        Left = 24
        Top = 280
        Width = 60
        Height = 16
        Caption = '数据            '
      end
      object Label9: TLabel
        Left = 448
        Top = 280
        Width = 129
        Height = 16
        Caption = '长度                  类型         '
      end
      object ls1: TListView
        Left = 16
        Top = 16
        Width = 505
        Height = 249
        Columns = <
          item
            Caption = '数据'
            Width = 350
          end
          item
            Caption = '长度'
          end
          item
            Caption = '类型'
          end>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        GridLines = True
        Items.Data = {
          2C0000000100000000000000FFFFFFFFFFFFFFFF020000000000000004B2E2CA
          D4013604D7D6B7FBFFFFFFFF}
        MultiSelect = True
        RowSelect = True
        ParentFont = False
        TabOrder = 0
        ViewStyle = vsReport
      end
      object c1: TComboBox
        Left = 520
        Top = 304
        Width = 81
        Height = 24
        ItemHeight = 16
        TabOrder = 1
        Text = '字符'
        Items.Strings = (
          '字符'
          '整型')
      end
      object c2: TSpinEdit
        Left = 448
        Top = 304
        Width = 49
        Height = 26
        MaxValue = 512
        MinValue = 1
        TabOrder = 2
        Value = 4
      end
      object c3: TEdit
        Left = 16
        Top = 304
        Width = 417
        Height = 24
        TabOrder = 3
        Text = '16'
      end
      object lsb: TBitBtn
        Left = 529
        Top = 16
        Width = 80
        Height = 41
        Caption = '发送'
        Font.Charset = ANSI_CHARSET
        Font.Color = clRed
        Font.Height = -16
        Font.Name = '宋体'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 4
        OnClick = lsbClick
        Kind = bkIgnore
      end
      object Panel1: TPanel
        Left = 528
        Top = 64
        Width = 81
        Height = 185
        BevelOuter = bvLowered
        TabOrder = 5
        object BitBtn6: TBitBtn
          Left = 8
          Top = 5
          Width = 65
          Height = 40
          Caption = '清除'
          TabOrder = 0
          OnClick = BitBtn6Click
          Kind = bkRetry
        end
        object BitBtn2: TBitBtn
          Left = 8
          Top = 49
          Width = 65
          Height = 40
          Caption = '插入'
          TabOrder = 1
          OnClick = BitBtn2Click
          Kind = bkYes
        end
        object BitBtn7: TBitBtn
          Left = 8
          Top = 93
          Width = 65
          Height = 40
          Caption = '删除'
          TabOrder = 2
          OnClick = BitBtn7Click
          Kind = bkCancel
        end
        object BitBtn5: TBitBtn
          Left = 8
          Top = 137
          Width = 65
          Height = 40
          Caption = '追加'
          TabOrder = 3
          OnClick = BitBtn5Click
          Kind = bkAll
        end
      end
    end
    object TabSheet4: TTabSheet
      Caption = '报文模版'
      ImageIndex = 3
      object GroupBox3: TGroupBox
        Left = 24
        Top = 32
        Width = 561
        Height = 281
        Caption = '客服报文'
        TabOrder = 0
        object lv2: TListView
          Left = 16
          Top = 16
          Width = 529
          Height = 249
          Columns = <
            item
              Caption = '说明'
              Width = 150
            end
            item
              Caption = '报文'
              Width = 350
            end>
          GridLines = True
          Items.Data = {
            F30200000B00000000000000FFFFFFFFFFFFFFFF01000000000000000CB2E9D1
            AFB5B1D4C2B7D1D3C32135353B3037303130313B31333832313336303734357E
            337E30303030303030303B00000000FFFFFFFFFFFFFFFF01000000000000000E
            B6CCCFFBCFA2BBB0B7D1B2E9D1AF2135353B3037303130353B31333832313336
            303734357E337E30303030303030303B00000000FFFFFFFFFFFFFFFF01000000
            000000000CB2E9D1AFB5B1C7B0C7B7B7D11831313B3037303130323B31333932
            303738373136307E333B00000000FFFFFFFFFFFFFFFF01000000000000000CB2
            E9D1AFCAD6BBFAC3DCC2EB1F35333B3031303430323B31333730323039373434
            367E3435363339367E333B00000000FFFFFFFFFFFFFFFF01000000000000000C
            D0DEB8C4CAD6BBFAC3DCC2EB1F35333B3031303430333B313336303231343030
            30307E3435363339367E333B00000000FFFFFFFFFFFFFFFF0100000000000000
            0CBBFDB7D6BACDD0C5D3C3B6C82931383B3037303130363B3133373532373234
            3031377E337E323030343035323331353A35373A31373B00000000FFFFFFFFFF
            FFFFFF01000000000000000DC0DBBCC6B7D6D6D32FB4CECAFD2A3630353B3037
            303130373B31333630323030393236377E337E323030343035323331363A3030
            3A32383B00000000FFFFFFFFFFFFFFFF01000000000000000DCCD8B7FEC9EAC7
            EB2FC8A1CFFB2A32303B3037303130383B31333630323134303030307E31317E
            323030343035323331363A30363A31313B00000000FFFFFFFFFFFFFFFF010000
            00000000000AC3CECDF8D0C5CFA2B7D11634363B3037303730303B3133363032
            3134303030303B00000000FFFFFFFFFFFFFFFF01000000000000000CD5CACEF1
            D3C5BBDDBDF0B6EE1B3133313B3037303730333B31333630323134303030307E
            337E303B00000000FFFFFFFFFFFFFFFF010000000000000008BDC9B7D1B2E9D1
            AF1B3133313B3037303730323B31333830323035313031327E337E303BFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
          ReadOnly = True
          RowSelect = True
          TabOrder = 0
          ViewStyle = vsReport
          OnDblClick = lv2DblClick
        end
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 400
    Width = 643
    Height = 24
    Panels = <
      item
        Text = 'Copyright:Billing Center'
        Width = 200
      end
      item
        Text = 'P/N:20040501'
        Width = 100
      end>
    SimplePanel = False
  end
  object ss1: TServerSocket
    Active = False
    Port = 0
    ServerType = stNonBlocking
    OnClientConnect = ss1ClientConnect
    OnClientDisconnect = ss1ClientDisconnect
    OnClientRead = ss1ClientRead
    Left = 432
  end
  object cs1: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 0
    OnConnect = cs1Connect
    OnRead = cs1Read
    Left = 472
  end
end