unit_client.dfm

ftp,telnet,ssh,都可以测试

object Form1: TForm1
  Left = 200
  Top = 134
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Client'
  ClientHeight = 227
  ClientWidth = 460
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 0
    Top = 144
    Width = 521
    Height = 9
    Shape = bsTopLine
  end
  object Label1: TLabel
    Left = 16
    Top = 152
    Width = 25
    Height = 13
    Caption = 'Host:'
  end
  object Label2: TLabel
    Left = 152
    Top = 152
    Width = 22
    Height = 13
    Caption = 'Port:'
  end
  object S1: TStatusBar
    Left = 0
    Top = 208
    Width = 460
    Height = 19
    Panels = <
      item
        Width = 150
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object M1: TMemo
    Left = 0
    Top = 0
    Width = 460
    Height = 137
    TabStop = False
    Align = alTop
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 2
    OnClick = M1Click
  end
  object Edit1: TEdit
    Left = 0
    Top = 181
    Width = 353
    Height = 21
    TabOrder = 1
    Text = 'Edit1'
    OnKeyPress = Edit1KeyPress
  end
  object Button1: TButton
    Left = 360
    Top = 181
    Width = 97
    Height = 21
    Caption = 'New Window'
    TabOrder = 3
    OnClick = Button1Click
  end
  object edtHost: TEdit
    Left = 48
    Top = 152
    Width = 97
    Height = 21
    TabOrder = 4
    Text = 'edtHost'
  end
  object edtPort: TEdit
    Left = 184
    Top = 152
    Width = 73
    Height = 21
    TabOrder = 5
    Text = 'edtPort'
  end
  object btnConnect: TButton
    Left = 264
    Top = 152
    Width = 75
    Height = 25
    Caption = 'Connect'
    TabOrder = 6
    OnClick = btnConnectClick
  end
  object bntDisConnect: TButton
    Left = 338
    Top = 152
    Width = 75
    Height = 25
    Caption = 'DisConnect'
    TabOrder = 7
    OnClick = bntDisConnectClick
  end
  object Client: TClientSocket
    Active = False
    Address = '127.0.0.1'
    ClientType = ctNonBlocking
    Port = 12
    OnConnect = ClientConnect
    OnDisconnect = ClientDisconnect
    OnRead = ClientRead
    Left = 336
    Top = 48
  end
end