servermainunit.dfm

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

object ServerMainForm: TServerMainForm
  Left = 192
  Top = 107
  Width = 696
  Height = 480
  Caption = 'ServerMainForm'
  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 = 24
    Top = 32
    Width = 42
    Height = 12
    Caption = 'Port(&P)'
    FocusControl = PortEdit
  end
  object PortEdit: TEdit
    Left = 72
    Top = 28
    Width = 121
    Height = 20
    TabOrder = 0
    Text = '211'
  end
  object ActiveButton: TButton
    Left = 200
    Top = 24
    Width = 75
    Height = 25
    Caption = 'Start'
    TabOrder = 1
    OnClick = ActiveButtonClick
  end
  object MsgMemo: TMemo
    Left = 392
    Top = 8
    Width = 273
    Height = 401
    Lines.Strings = (
      'MsgMemo')
    ScrollBars = ssVertical
    TabOrder = 2
  end
  object Button1: TButton
    Left = 24
    Top = 176
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 3
    OnClick = Button1Click
  end
  object ClientMsgEdit: TEdit
    Left = 24
    Top = 136
    Width = 257
    Height = 20
    TabOrder = 4
    Text = 'ClientMsgEdit'
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 224
    Width = 337
    Height = 137
    Caption = 'Result'
    TabOrder = 5
    object Label3: TLabel
      Left = 24
      Top = 56
      Width = 48
      Height = 12
      Caption = 'Count(&C)'
      FocusControl = CountText
    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 ConnectionCountText: TStaticText
      Left = 160
      Top = 24
      Width = 97
      Height = 16
      AutoSize = False
      TabOrder = 1
    end
  end
end