clientmainunit.dfm

DELPHI编程实现的对端口通讯的封装。比较有参考意义。

object ClientMainForm: TClientMainForm
  Left = 192
  Top = 107
  Width = 442
  Height = 342
  Caption = 'ClientMainForm'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 16
    Top = 8
    Width = 24
    Height = 12
    Caption = '&host'
    FocusControl = HostEdit
  end
  object Label2: TLabel
    Left = 16
    Top = 50
    Width = 72
    Height = 12
    Caption = '&Thread Count'
    FocusControl = ThreadCountEdit
  end
  object StartButton: TButton
    Left = 16
    Top = 101
    Width = 75
    Height = 25
    Caption = '&Start test'
    TabOrder = 0
    OnClick = StartButtonClick
  end
  object HostEdit: TEdit
    Left = 16
    Top = 24
    Width = 361
    Height = 20
    TabOrder = 1
    Text = '127.0.0.1'
  end
  object ThreadCountEdit: TEdit
    Left = 16
    Top = 66
    Width = 361
    Height = 20
    MaxLength = 100
    TabOrder = 2
    Text = '200'
  end
  object StopButton: TButton
    Left = 104
    Top = 101
    Width = 75
    Height = 25
    Caption = 'Sto&p test'
    TabOrder = 3
    OnClick = StopButtonClick
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 152
    Width = 401
    Height = 137
    Caption = 'Result'
    TabOrder = 4
    object Label3: TLabel
      Left = 48
      Top = 56
      Width = 48
      Height = 12
      Caption = 'Count(&C)'
      FocusControl = CountText
    end
    object Label4: TLabel
      Left = 18
      Top = 84
      Width = 78
      Height = 12
      Caption = 'RightCount(&R)'
      FocusControl = RightCountText
    end
    object Label5: TLabel
      Left = 18
      Top = 112
      Width = 78
      Height = 12
      Caption = 'ErrorCount(&E)'
      FocusControl = ErrorCountText
    end
    object Label6: TLabel
      Left = 24
      Top = 24
      Width = 114
      Height = 12
      Caption = 'Connection Count(&C)'
      FocusControl = ConnectionCountText
    end
    object CountText: TStaticText
      Left = 104
      Top = 56
      Width = 97
      Height = 16
      AutoSize = False
      TabOrder = 0
    end
    object RightCountText: TStaticText
      Left = 104
      Top = 84
      Width = 97
      Height = 15
      AutoSize = False
      TabOrder = 1
    end
    object ErrorCountText: TStaticText
      Left = 104
      Top = 112
      Width = 81
      Height = 17
      AutoSize = False
      TabOrder = 2
    end
    object ConnectionCountText: TStaticText
      Left = 160
      Top = 24
      Width = 97
      Height = 16
      AutoSize = False
      TabOrder = 3
    end
  end
end